Xerox 701P21091 manual Rsuspend and Rresume example

Using logical processing

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