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.
midrange.com
