NBSpool for MPE Reference Guide

Background Processing
5-17
Example
The following example shows a background job that has multiple XEQs and WHILE loops within a
single job:
!JOB NBSPOOL,MGR.NETBASE
!
!RUN NBSPOOL.PUB.NETBASE
START LPD
!
XEQ;WAIT=15;BACKGROUND;PROCNUM=1
ERROR IGNORE
MOVE *LJ4A TO QUEST;LPR;DEST="LJ4MX"
END
XEQ;WAIT=15;BACKGROUND;PROCNUM=2
ERROR IGNORE
MOVE *LJ4B TO QUEST;LPR;DEST="LJ3SI"
END
XEQ;WAIT=15;BACKGROUND;PROCNUM=3
ERROR IGNORE
MOVE *LJ8 TO LJ2;PTYPE=LJ;PRINTER=RAW
END
XEQ LJ4XEQ;WAIT=15;BACKGROUND;PROCNUM=5
XEQ;WAIT=15;BACKGROUND;PROCNUM=6
WHILE *LANACC,*LANACC2,*LANACC3
ERROR IGNORE
MOVE !CURRENT,*LANACC TO LANLJ1;PTYPE=LJ
MOVE !CURRENT,*LANACC2 TO LANLJ1;PTYPE=LJ;PRINTER=LJ132
MOVE !CURRENT,*LANACC3 TO LANLJ1;PTYPE=LJ;PRINTER=LJLAND
END
XEQ;WAIT=15;BACKGROUND;PROCNUM=7
WHILE *605,%7
ERROR IGNORE
MOVE !CURRENT TO LADC;LPR;DEST=“LADCREP-S -J/nb/nff”;PRINTER=RAW
END
END
EXIT
!
!EOJ