RE: Finding Current Subsystem

[Gary Thompson <gthompson@xxxxxxxxxxx>]

I'll second that and recommend getting a copy of API's at Work by Bruce Vining, Doug Pence and Ron Hawkins.
The text, free code and a couple week's work will set a person up . . .  

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, March 19, 2015 8:24 AM
To: Midrange Systems Technical Discussion
Subject: RE: Finding Current Subsystem

Sorry, this is going to come off harsh.  I really mean it with love though.

God save me from people that are so API phobic that believe every solution is to generate a spool file, copy it to disk, and analyze that!
Really, parsing out a substring that can shift positions in the line based on how long the job name and/or user are, or what version of the OS you are running, or... is easier than learning something new?

Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail to:  2505 Dekko Drive
          Garrett, IN 46738
Ship to:  Dock 108
          6928N 400E
          Kendallville, IN 46755
http://www.dekko.com





From:   Gary Thompson <gthompson@xxxxxxxxxxx>
To:     Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date:   03/19/2015 10:02 AM
Subject:        RE: Finding Current Subsystem
Sent by:        "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>



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.