|
Hi, RTVJOBD should also do the trick. This gives many other additional information too. On 10/31/06, cobol400-l-request@xxxxxxxxxxxx < cobol400-l-request@xxxxxxxxxxxx> wrote:
midrange.com
Send COBOL400-L mailing list submissions to
cobol400-l@xxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/cobol400-l
or, via email, send a message with subject or body 'help' to
cobol400-l-request@xxxxxxxxxxxx
You can reach the person managing the list at
cobol400-l-owner@xxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific
than "Re: Contents of COBOL400-L digest..."
Today's Topics:
1. API from COBOL/ILE to get batch job info? (Michael Rosinger)
2. Re: API from COBOL/ILE to get batch job info? (David Gibbs)
3. Re: API from COBOL/ILE to get batch job info? (Winchester Terry)
4. Re: API from COBOL/ILE to get batch job info? (Michael Rosinger)
5. Re: API from COBOL/ILE to get batch job info? (Michael Rosinger)
6. Re: API from COBOL/ILE to get batch job info? (Winchester Terry)
----------------------------------------------------------------------
message: 1
date: Tue, 31 Oct 2006 07:15:26 -0500
from: "Michael Rosinger" <mrosinger@xxxxxxxxx>
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
------------------------------
message: 2
date: Tue, 31 Oct 2006 05:23:21 -0700
from: David Gibbs <david@xxxxxxxxxxxx>
subject: Re: [COBOL400-L] API from COBOL/ILE to get batch job info?
Michael Rosinger wrote:
> Is there a way to get job information from a COBOL/ILE batch program
during
> run-time? Things like jobname, user, etc? TIA
QUSRJOBI should do the trick.
It does for all other languages :)
david
------------------------------
message: 3
date: Tue, 31 Oct 2006 07:24:45 -0500
from: "Winchester Terry" <terry.winchester@xxxxxxxxxxxxxxx>
subject: Re: [COBOL400-L] API from COBOL/ILE to get batch job info?
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.
------------------------------
message: 4
date: Tue, 31 Oct 2006 08:05:04 -0500
from: "Michael Rosinger" <mrosinger@xxxxxxxxx>
subject: Re: [COBOL400-L] API from COBOL/ILE to get batch job info?
Excellent! Thank you.
--
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.
>
>
>
>
------------------------------
message: 5
date: Tue, 31 Oct 2006 08:13:36 -0500
from: "Michael Rosinger" <mrosinger@xxxxxxxxx>
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.
>
>
>
>
------------------------------
message: 6
date: Tue, 31 Oct 2006 08:19:04 -0500
from: "Winchester Terry" <terry.winchester@xxxxxxxxxxxxxxx>
subject: Re: [COBOL400-L] 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.
------------------------------
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest
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.
End of COBOL400-L Digest, Vol 4, Issue 108
******************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
