RE: Command To Check Current Subsystem

It a long way around but I've gotten it to work with other programs:

                             Work with Job (WRKJOB)                      
                                                                         
 Type choices, press Enter.                                              
                                                                         
 Job name . . . . . . . . . . . .   *             Name, *                
   User . . . . . . . . . . . . .                 Name                   
   Number . . . . . . . . . . . .                 000000-999999          
 Output . . . . . . . . . . . . .   *PRINT        *, *PRINT              
 Option . . . . . . . . . . . . . > *STSA         *SELECT, *STSA, *DFNA...

then copy the spooled to dB, read record...yata, yata, yata
API still yer best bet.
 on the subject of enhancing commands, if this is truly going to become the 'open system' that everybody is talking about I think it is up to us to make our own enhancements based on ours and other's needs, pretty soon we will be able to support ourselves, we wont need IBM, hee,hee,hee...

               ~
      ~       ,       -,     "Hmmm, looks tasty..."
              )\______) \___  /    ~        ~
             /.-.,_    ))  a`>          ~
             `     "'/ /----"  ~ http://www.ibm.com/     ~
            ~        L/                   ~
                            ~                                                                     
-----Original Message-----
From: Joe Giusto [mailto:JGiusto@patuxent.com]
Sent: Tuesday, July 11, 2000 4:49 AM
To: 'midrange-l@midrange.com'
Subject: Command To Check Current Subsystem

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.

Thank you,

Joe Giusto II
Patuxent Publishing Company
10750 Little Patuxent Parkway
Columbia, MD 21044
mailto:JGiusto@patuxent.com <mailto:jgiusto@patuxent.com>
http://www.lifegoeson.com <http://lifegoeson.com>

+---
| 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
+---