Re: Embarrassingly...

[dmosley@xxxxxxxxxx]

Thanks a bunch everyone for the replies.
And, David, I actually did come across that.

I just created a simple command that allowed you to enter a "Search
Attribute" parameter and return it's value.
Very simply, I did a WRKJOB OUTPUT(*PRINT), and then copied to file, and
then read the file till I found my "Search Attribute" and then
returned it's value.  Not very hi-tech or glamorous on the inside, but hey,
as long as it does what I need, when I need it.
(Kind of pulled an old-school TAATOOL trick) (No disrepect intended).

dav

David L. Mosley, Jr.
Systems Analyst
2000 CentreGreen Way
Suite 250
Cary, NC 27513



                    "David Morris"
                    <David.Morris@plum        To:     <rpg400-l@midrange.com>
                    creek.com>                cc:
                    Sent by:                  Subject:     Re: Embarrassingly...
                    rpg400-l-admin@mid
                    range.com


                    03/26/02 03:10 PM
                    Please respond to
                    rpg400-l






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?
>

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.