Oce XDL, Reference Manual

Page: 175 / 255

Using Logical Processing RSUSPEND and RRESUME Commands
A29247-X4-X-8-7672
167
Example
Following is an example of using 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 (from
record //JOB to //EXEC) by the preceding RSUSPEND command. Printing resumes after
the //EXEC data record (RRESUME command above).