Re: API from COBOL/ILE to get batch job info?

Michael,

You can find the API layouts at the InfoCenter:

http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp

Type API into the search box on the left.

Terry Winchester 
Programmer/Analyst
________________________________
The Raymond Corporation
terry.winchester@xxxxxxxxxxxxxxx 

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx 
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Rosinger
Sent: Tuesday, October 31, 2006 8:14 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: Re: [COBOL400-L] API from COBOL/ILE to get batch job info?

One other thing.... are API's like this documented in a 
separate manual 
somewhere? I looked in the ILE/COBOL Reference and 
Programmer's guide but 
did not see this. A link to the appropriate PDF(s) would be much 
appreciated!

-- 
Regards,

Michael Rosinger
Systems Programmer / DBA
Computer Credit, Inc.
640 West Fourth Street
Winston-Salem, NC  27101
336-761-1524
m rosinger at cciws dot com
"Winchester Terry" <terry.winchester@xxxxxxxxxxxxxxx> wrote 
in message 
news:mailman.10385.1162297510.2503.cobol400-l@xxxxxxxxxxxxxxx

I use the QUSRJOBI API, format name JOBI0400:

05  h1-RcvrVar.
   10  filler           pic s9(09)                  Binary.
   10  filler           pic s9(09)  value 273       Binary.
   10  filler           pic  x(10).
   10  h1-RvJobUser     pic  x(10)  value spaces.
   10  filler           pic  x(235).
   10  filler           pic  x(10).
05  h1-LenRcvrVar        pic s9(09)  value 273       Binary.
05  h1-FmtName           pic  x(08)  value 'JOBI0400'.
05  h1-QlJobName         pic  x(26)  value '*'.
05  h1-IntJobId          pic  x(16)  value ' '.
05  h1-ApiErr.
     10  filler         pic s9(09)  value 272       Binary.
     10  filler         pic s9(09)                  Binary.
     10  h1-AeMsgId     pic  x(07)  value spaces.
     10  filler         pic  x(01).
     10  h1-AeMsgDta    pic  x(256) value spaces.


call 'QUSRJOBI' using h1-RcvrVar
                     h1-LenRcvrVar
                     h1-FmtName
                     h1-QlJobName
                     h1-IntJobId
                     h1-ApiErr
move h1-RvJobUser  to h1-userid


Terry Winchester
Programmer/Analyst
________________________________
The Raymond Corporation
terry.winchester@xxxxxxxxxxxxxxx

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of 

Michael Rosinger

Sent: Tuesday, October 31, 2006 7:15 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] API from COBOL/ILE to get batch job info?

List,

Is there a way to get job information from a COBOL/ILE batch
program during
run-time? Things like jobname, user, etc? TIA

-- 
Regards,

Michael Rosinger
Systems Programmer / DBA
Computer Credit, Inc.
640 West Fourth Street
Winston-Salem, NC  27101
336-761-1524
m rosinger at cciws dot com


-- 
This is the COBOL Programming on the iSeries/AS400
(COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.

Confidentiality Notice:

The preceding e-mail message (including any attachments) contains 
information that may be confidential, protected by applicable legal 
privileges, or constitute non-public information. It is 

intended to be 

conveyed only to the designated recipient(s). If you are 

not an intended 

recipient of this message, please notify the sender by 

replying to this 

message and then delete it from your system. Use, dissemination, 
distribution or reproduction of this message by unintended 

recipients is

not authorized and may be unlawful.

-- 
This is the COBOL Programming on the iSeries/AS400 
(COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.

Confidentiality Notice:

The preceding e-mail message (including any attachments) contains information 
that may be confidential, protected by applicable legal privileges, or 
constitute non-public information. It is intended to be conveyed only to the 
designated recipient(s). If you are not an intended recipient of this message, 
please notify the sender by replying to this message and then delete it from 
your system. Use, dissemination, distribution or reproduction of this message 
by unintended recipients is 
not authorized and may be unlawful.