6.0

104
C
DCLF FILE(OBJLUNE/WATCHWORK)
/
*************************************************************
************/
/* CREATE THE TEMPORARY FILE NEEDED DURING THE
PROGRAM */
/
*************************************************************
************/
CRTPF FILE(QTEMP/TRANSITF) RCDLEN(200) +
TEXT('file to build the new
spoolfile')
MONMSG MSGID(CPF7302) /* file already exists
*/
/
*************************************************************
************/
/* TAKE A SNAPSHOT OF THE OUTPUT QUEUE IN A FILE AND SEND IT IN
THE */
/* WORKFILE FILE. THIS WILL ALLOW US TO MANIPULATE THE
CONTENT. */
/
*************************************************************
************/
WRKOUTQ OUTQ(&OUTPUTQSLB/&OUTPUTQS)
OUTPUT(*PRINT)
CPYSPLF FILE(QPRTSPLQ) TOFILE(OBJLUNE/
WATCHWORK) +
SPLNBR(*LAST)
DLTSPLF FILE(QPRTSPLQ) SPLNBR(*LAST)
/
*************************************************************
************/