|
Charles, if you're watching, hope you don't mind my passing this on... PGM (&F3 &F12) /* 09/07/1999 Charles R. Pence in newsgroup comp.sys.ibm.as400.misc. */ DCL VAR(&F3) TYPE(*CHAR) LEN(1) /* F03 indicator */ DCL VAR(&F12) TYPE(*CHAR) LEN(1) /* F12 indicator */ DCL VAR(&BIGFLD) TYPE(*CHAR) LEN(900) /* receiver var for APIs */ DCL VAR(&DEVDNM) TYPE(*CHAR) LEN(10) /* Device Description Name */ DCL VAR(&INTJOB) TYPE(*CHAR) LEN(16) VALUE(' ') DCL VAR(&JOBTYP) TYPE(*CHAR) LEN(01) /* Batch=0 Interactive=1 */ DCL VAR(&QJOBNM) TYPE(*CHAR) LEN(26) VALUE('*') /* qualified job name */ DCL VAR(&RCVLEN) TYPE(*CHAR) LEN(4) VALUE(x'00000384') /* &BIGFLD is 456 bytes*/ /* Get sbsd & rtgdta for where job is running */ CALL PGM(QUSRJOBI) PARM(&BIGFLD &RCVLEN 'JOBI0600' &QJOBNM &INTJOB) CHGVAR VAR(&F3) VALUE(%SST(&BIGFLD 103 01)) CHGVAR VAR(&F12) VALUE(%SST(&BIGFLD 104 01)) RETURN ENDPGM ----- Original Message ----- From: Joe Giusto <JGiusto@patuxent.com> > +--- > | This is the Midrange System Mailing List! > | To submit a new message, send your mail to MIDRANGE-L@midrange.com. > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. > | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: david@midrange.com > +--- __________________________________________________ Do You Yahoo!? Thousands of Stores. Millions of Products. All in one place. Yahoo! Shopping: http://shopping.yahoo.com +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
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.