RE: Finding Current Subsystem

[Gary Thompson <gthompson@xxxxxxxxxxx>]

Good suggestion Diego:

*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
  5770SS1 V7R1M0 100423                          Display Job                          AS400    03/19/15 07:46:09          Page    1
   Job name . . . . . . . . . . :   GTHOMPSON1      User  . . . . . . :   GTHOMPSON    Number . . . . . . . . . . . :   171331     
   Job description  . . . . . . :   BASIS2          Library . . . . . :   SWIRE                                                    
 MSGID      TYPE                    SEV  DATE      TIME             FROM PGM     LIBRARY     INST     TO PGM      LIBRARY     INST 
 CPF1124    Information             00   03/19/15  05:55:10.338312  QWTPIIPP     QSYS        04C0     *EXT                    *N   
                                      Message . . . . :   Job 171331/GTHOMPSON/GTHOMPSON1 started on 03/19/15 at                   
                                        05:55:10 in subsystem QINTER in QSYS. Job entered system on 03/19/15 at                    
                                        05:55:10.                                                                                  



-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Diego Kesselman
Sent: Thursday, March 19, 2015 7:37 AM
To: Midrange Systems Technical Discussion
Subject: Re: Finding Current Subsystem

Maybe you can perform DSPJOBLOG with output and look for the data you need

2015-03-19 7:30 GMT-06:00 Rich Loeber <rich@xxxxxxxxx>:
>    I think I'm having a brain cramp.  Is there an easy way in a CL program to
>    find out what subsystem the program is currently running in?  I would have
>    thought it would be available from RTVJOBA, but no dice.  I also looked at
>    the values returned from the QUSLJOB API but I don't see it there either.
>
>    Suggestions?
>
>    Rich Loeber - @richloeber
>    Kisco Information Systems
>    [1]http://www.kisco.com
>
> References
>
>    Visible links
>    1. http://www.kisco.com/
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
> list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, 
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take 
> a moment to review the archives at 
> http://archive.midrange.com/midrange-l.