Re: Suggestion for a new System Request option

[dennis.e.lovelady@xxxxxxxxxxxxx]

Hi, Mark:

Right.  Also since RPGIII, we've been able to SETON/SETOF those
indicators.  But my point was that once a program is running, I don't
believe the indicators will be affected if you set job switches (outside
of the program) after job start.

I can test this easily enough with STRDBG tomorrow... probably will if
nobody beats me to it, but that's how I remember it to be.

Dennis E. Lovelady





Douglas Handy <dhandy1@bellsouth.net>
Sent by: midrange-l-admin@midrange.com
12/11/2002 04:15 PM
Please respond to midrange-l


        To:     midrange-l@midrange.com
        cc:
        Subject:        Re: Suggestion for a new System Request option

Mark/Dennis,

>>I believe the U1-U9 switches are set only at program start.

> That was never the case (at least since RPG II!), in the RPG sense.  You
>are able to freely manipulate those indicators, both in RPG and CL (not
to
>mention Cobol.)

RPG programs read in the status of U1-U8 at the start of the program, and
write
them out at the end of the program.  While the program runs they only
reflect
the internal *INUx variable inside the program.

In RPG II, we used an IBM provided assembler subroutine (SUBR20) to read /
write
the status of Ux switches *while* a program was running.  I believe there
was a
counterpart available for the S36EE where you called an IBM supplied
program
instead.

But it probably just grabs the current job switches and returns them.  You
could
do the same with an API or even a CL which used RTVJOB.

Doug
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.