Filter
Top Products
Using logical processing
3-52 Using LCDS Print Description Language
• DJDE records are processed, not ignored, even when
detected after an RSUSPEND record and before the
corresponding RRESUME record.
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
.
.