Re: Command To Check Current Subsystem

[Pete Hall <pbhall@xxxxxxxxxx>]

At 06:49 07/11/2000 , Joe Giusto wrote:
>Is there a CL command that I can use to determine the current subsystem that
>a job is running in?
>
>I want to use it to change subsystems via TFRJOB in the initial signon
>program.  The problem I am having is when I do the TFRJOB my initial program
>starts again and I go into a loop.  If I could check the current subsystem,
>I can skip the TFRJOB statement on the second pass.
>
>I tried using *LDA but that seems to be reset as well.

Joe,

There is not command, however you can determine the subsystem by reading 
the messages in the *EXT message queue (the joblog). Look at the second 
level message display for the first couple of messages, and you'll see that 
the subsystem name is in there. You can retrieve it from the message data. 
Sorry, I can't give you specifics. However, an easier alternative would be 
to create a marker object, such as a data area in QTEMP. Use CHKOBJ to see 
if it's there. If it's not, create it with CRTDTAARA, then TFRJOB. If it's 
there, you're already in the correct subsystem.

hth
Pete

Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---