6.0

CL Program for AS/400 Systems
105
/* READ THE CONTENT OF THE WORKFILE TO DETERMINE IF THERE ARE
SPOOLFILES */
/* TO BE TREATED. IF THE SPOOLFILE STATUS IS NOT RDY THIS IS
BECAUSE */
/* WE ARE IN THE HEATHER LINES OR THE STATUS IS HLD OR SAV,
ETC... */
/
*************************************************************
************/
BEGIN: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
/* eof +
of file encountered */
IF COND(%SST(&WATCHWORK 36 3) *NE RDY)
THEN(GOTO +
CMDLBL(BEGIN)) /* bypass of heathers
and +
non ready spools */
CHGVAR VAR(&SPLFNAME) VALUE(%SST(&WATCHWORK 2
10))
CHGVAR VAR(&SPLFUSER) VALUE(%SST(&WATCHWORK
13 10))
CHGVAR VAR(&SPLFSTS) VALUE(%SST(&WATCHWORK 36
3))
CHGVAR VAR(&SPLFJOB) VALUE(%SST(&WATCHWORK 82
10))
CHGVAR VAR(&SPLFNB) VALUE(%SST(&WATCHWORK 93
6))
/
*************************************************************
************/
/* CREATION OF NEW SPOOLFILE FROM THE TRIGGER AND DATA FROM THE
*/