Re: SUBROC

Kevin,

I am not in a position to try this right now, and some of it comes from
very old memory. You have been warned <grin />.

Others have pointed out that a called program cannot close a file on
behalf of its caller. However, the called program--assuming you use a
shared open--can do an FEOD. For a print file, FEOD closes the splf and
opens another one; the first splf becomes available for writing in the
usual way. I think this is the result you want.

If you want to keep code changes to a minimum, you probably to not want
to define your prtf with SHARE(*YES). You might accomplish a useful
override by // PRINTER outside a ( // LOAD, // RUN ) pair. This
suggestion, however, comes from memory so old that it might be just a
dream. If it comes to that, you can always write a CL statement within
your OCL.

One has to ask if there is a big cost to converting this function to
native code. Strictly from a coding point of view, the conversion is a
small amount of work.

Cheers,
Terry.


On Tue, 2008-11-18 at 18:43 -0600, Kevin Nunn wrote:

Hello All,

I've searched the vast internet and my problem is just too old to show up
anywhere :)

I used to be a consult for 4 clients on Advanced/36 machines, I know RPG2
inside out. 2 Years ago I took a full time job with one of my clients as
work was way to slow. I finally got them on a used AS400 and I am working on
rewriting their software in RPGILE (love it!).

Two of my other clients have converted over to an AS400 with the help of a
consultant company in my area. The last client has finally decided to get an
AS400, but they want to completely retain the programs as is. No, problem,
they'll be just run in a S/36 environment.

The problem is, several of their programs use an IBM supplied subroutine
called SUBROC to open/close a file. We used it to open/close the spool file
in order to print without exiting the program. For on demand checks for
instance.

Does anyone know of a work around for this? My first thought was to write an
ILE program that would be called from the S36 program, but 1) Not sure if a
ILE program can be called from a S36 RPG program, I think CL can, so it
should work; 2) Would the called ILE program have the access to the file and
be able to CLOSE the file, and then re-OPEN it.

Or is there some other way I could do this without exiting the program,
which would in effect, clear all the temp fields that are used?

Thanks - and I wanted to say I have really been enjoying reading the
discussions, it's been helping my learning process :)

Kev

--
Kevin Nunn
Computer Information Systems
RGV Pizza Hut, LLC