Xerox FreeFlow Rsuspend and Rresume example, Begin=Current, Option Catal Assign SYSRLB,3340,TEMP

Using logical processing

•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	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 (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.

//JOB FOR001A0

//OPTION CATAL

//ASSIGN SYSRLB,3340,TEMP

INCLUDE IMPCBBM //EXEC FCOBOL

Records that will not be printed

.

.Data that will be printed

.

.

3-52 Using LCDS Print Description Language