Re: Embarrassingly...

["David Morris" <David.Morris@xxxxxxxxxxxxx>]

David & Bruce,

The iSeries-toolkit open source project (www.iseries-toolkit.org)
has a RTVJOBINF module that uses QUSRJOBI. It does not
currently support the JOBI0600 format, but it does cover the 100,
300, and 700 formats -- adding support for the System 36
environment indicator should be pretty easy. The module is
available from:

http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/iseries-toolkit/CVSROOT/src/qrpglesrc/rtvjobinf.irp?rev=HEAD&content-type=text/vnd.viewcvs-markup


David Morris

>>> bvining@vnet.ibm.com 03/26/02 10:11AM >>>
Not a command, but the Retrieve Job Information (QUSRJOBI) API can
return that information.  The following will have a value of *NONE
for &ENV if not in the S/36 environment, and *S36 if in the S/36
environment.

PGM
DCL &RCVVAR *CHAR 512
DCL &ENV *CHAR 10
CALL QUSRJOBI (&RCVVAR X'00000200' JOBI0600 '*' ' ' x'00000000')
CHGVAR &ENV %SST(&RCVVAR 117 10)
ENDPGM

Bruce

>
>Embarrisingly, would anyone know of a command to retrieve an
>attribute to determine if a specific job is in 36/Mode?
>