Xerox 701P21091 - Manual (Page 232)

Using logical processing
3-52 Using LCDS Print Description Language
RSUSPEND and RRESUME example
Following is an example of the RSUSPEND and RRESUME
commands.
The printing of the input data records in the following sample
data is suspended (records from //JOB to //EXEC) by the
preceding RSUSPEND command. Printing is resumed after the
//EXEC data record by the RRESUME command that follows it.
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;
//JOB FOR001A0
//OPTION CATAL
//ASSIGN SYSRLB,3340,TEMP Records that will not be printed
INCLUDE IMPCBBM
//EXEC FCOBOL
.
. Data that will be printed
.
.