Using logical processing
//JOB FOR001A0
//OPTION CATAL
//ASSIGN SYSRLB,3340,TEMP
//EXEC FCOBOL
3-52
•
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.
T1: TABLE
T2: TABLE
T3: TABLE
C1: CRITERIA
C2: CRITERIA
C3: CRITERIA
RSUSPEND
RRESUME
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.
INCLUDE IMPCBBM
.
.
.
.
CONSTANT=('//JOB ','//EXEC');
CONSTANT=('EOJ ');
CONSTANT=('//EXEC');
CONSTANT=(1,6,EQ,T1);
CONSTANT=(1,4,EQ,T2);
CONSTANT=(1,6,EQ,T3);
TEST=(C1,OR,C2),
BEGIN=CURRENT;
TEST=(C3,OR,C2), BEGIN=NEXT;
Records that will not be printed
Data that will be printed
Using LCDS Print Description Language