PGM /* Create the file before compiling the CLP */
/* CRTPF FILE(QTEMP/SBSJ) RCDLEN(132) */
DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10)
DCL VAR(&JOBUSER) TYPE(*CHAR) LEN(10)
DCL VAR(&JOBNBR) TYPE(*CHAR) LEN(10) DCLF FILE(QGPL/SBSJ)
MONMSG MSGID(CPF0000)
OVRPRTF OVRPRTF FILE(QPDSPSBJ) HOLD(*YES)
WRKUSRJOB USER(QTMHHTTP) STATUS(*ACTIVE) OUTPUT(*PRINT)
CLRPFM FILE(QGPL/SBSJ)
CPYSPLF FILE(QPDSPSBJ) TOFILE(QGPL/SBSJ) SPLNBR(*LAST)
DLTSPLF FILE(QPDSPSBJ) SPLNBR(*LAST)
DLTOVR FILE(*ALL)
/* READ DATABASE FILE */
OVRDBF FILE(SBSJ) TOFILE(QGPL/SBSJ)
LOOP RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIN))
IF COND(%SST(&SBSJ 4 8) *EQ 'ZENDPHP7') THEN(DO)
CHGVAR VAR(&JOBNAME) VALUE(%SST(&SBSJ 4 8))
CHGVAR VAR(&JOBUSER) VALUE(%SST(&SBSJ 17 8))
CHGVAR VAR(&JOBNBR) VALUE(%SST(&SBSJ 30 7))
CHGDTAARA DTAARA(QGPL/ZSUPSTS (1 8)) VALUE(&JOBNAME)
CHGDTAARA DTAARA(QGPL/ZSUPSTS (12 8)) VALUE(&JOBUSER)
CHGDTAARA DTAARA(QGPL/ZSUPSTS (23 8)) VALUE(&JOBNBR)
ENDJOB JOB(&JOBNBR/&JOBUSER/&JOBNAME) OPTION(*IMMED)
GOTO CMDLBL(FIN)
ENDDO
GOTO CMDLBL(LOOP)
FIN: ENDPGM
|