6.0

106
C
/* SPOOLFILE IN TRANSIT. THE PROCEDURE IS THE
FOLLOWING: */
/* - COPY THE TRIGGER INTO A TEMP
FILE. */
/* - APPEND THE SPOOLFILE INTO THE TEMP
FILE */
/* - CREATE A SPOOLFILE FROM THIS PHYSICAL
FILE */
/
*************************************************************
************/
CPYF FROMFILE(&TRIGGERLIB/&TRIGGERFN) +
TOFILE(QTEMP/TRANSITF)
FROMMBR(*ALL) +
MBROPT(*REPLACE) FMTOPT(*NOCHK)
CPYSPLF FILE(&SPLFNAME) TOFILE(QTEMP/
TRANSITF) +
JOB(&SPLFNB/&SPLFUSER/&SPLFJOB)
MBROPT(*ADD)
CPYF FROMFILE(QTEMP/TRANSITF) +
TOFILE(&WATCHPRTFL/&WATCHPRTFN) +
PRINT(*COPIED) FMTOPT(*NOCHK)
CHGSPLFA FILE(&WATCHPRTFN) SPLNBR(*LAST) +
OUTQ(&OUTPUTQDLB/&OUTPUTQD)
/
*************************************************************
************/
/* ERASE THE TEMPORARY SPOOLFILES CREATED BY THE COPY
OPERATIONS. */
/
*************************************************************
************/