home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
3x400
/
chgjobl.lzh
/
CHGJOBL.CLP
next >
Wrap
Text File
|
1987-05-22
|
721b
|
15 lines
CHGJOBLOG: PGM PARM(&OUTQ)
/* (c) 1987 by Q38. All rights reserved. */
DCL &OUTQ *CHAR 20
DCL &JOBNAME *CHAR 10
DCL &USER *CHAR 10
DCL &JOBNBR *CHAR 6
MONMSG MSGID(CPF0000)
RTVJOBA JOB(&JOBNAME) USER(&USER) NBR(&JOBNBR)
SBMJOB JOB(CHGJOBLOG) JOBQ(QCTL) RQSDTA('ChgJobLog2 +
Job(' *CAT &JOBNAME *TCAT '.' *CAT &USER +
*TCAT '.' *CAT &JOBNBR *TCAT ') outq(' *CAT +
%SST(&OUTQ 01 10) *TCAT '.' *CAT %SST(&OUTQ +
11 10) *TCAT ')')
ENDPGM: ENDPGM