USING LOGICAL PROCESSING
7-44 XEROX DOCUPRINT 180 LPS PDL REFERENCE
Example
Following is an example of using the RSUSPEND and RRESUME
commands.
T1:TABLE CONSTANT=(’//JOB ’,’//EXEC’);
T2:TABLE CONSTANT=(’EOJ ’);
T3:TABLE CONSTANT=(’//EXEC’);
C1:CRITERIA CONSTANT=(1,6,EQ,T1);
C2:CRITERIA CONSTANT=(1,4,EQ,T2);
C3:CRITERIA CONSTANT=(1,6,EQ,T3);
RSUSPEND TEST=(C1,OR,C2),
BEGIN=CURRENT;
RRESUME TEST=(C3,OR,C2),
BEGIN=NEXT;
The printing of the input data records in the following sample data is
suspended (from record //JOB to //EXEC) by the preceding
RSUSPEND command. Printing resumes after the //EXEC data
record (RRESUME command above).
//JOB .FOR001A0
//OPTION CATAL
//ASSIGN SYSRLB,3340,TEMP Records not to be printed
INCLUDE IMPCBBM
//EXEC FCOBOL
.
.
. Data to be printed
.
.