RE: SUBROC

I don't have a solution, but this one brought back memories. If I
remember correctly, used it first in 1980 on a s/34 to close and reopen a
spool file to print invoices for over the counter sales. System would
have failed without it. Wouldn't have been time to seton lr, file opens
would have taken too long.

Can't believe the cheapest thing for the client wouldn't be to just
convert the programs that use subroc (can't be very many of them) to ile
and just change the the subroc logic to close and reopen. all the ocl
would still work.



Jim Horn

This email is intended only for the person or entity
to which it is addressed and may contain information
that is privileged, confidential or otherwise protected
from disclosure. If you are not the named addressee
or an employee or agent responsible for delivering
this message to the named addressee, you are not
authorized to read, print, retain copy, and disseminate
this message or any part of it. If you have received this
message in error please notify us immediately by email,
discard any paper copies and delete all electronic files
of this message.


------------------------------

message: 7
date: Tue, 18 Nov 2008 18:43:35 -0600
from: "Kevin Nunn" <knunn@xxxxxxxxxxxxxxx>
subject: SUBROC

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 :)

This email is intended only for the person or entity
to which it is addressed and may contain information
that is privileged, confidential or otherwise protected
from disclosure. If you are not the named addressee
or an employee or agent responsible for delivering
this message to the named addressee, you are not
authorized to read, print, retain copy, and disseminate
this message or any part of it. If you have received this
message in error please notify us immediately by email,
discard any paper copies and delete all electronic files
of this message.