Xerox 721P85530 用户手册

下载
页码 488
USING LOGICAL PROCESSING
7-44
XEROX DOCUPRINT 180 LPS PDL REFERENCE
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).
//JOB .FOR001A0
//OPTION CATAL
//ASSIGN SYSRLB,3340,TEMP Records not to be printed
  INCLUDE IMPCBBM
//EXEC  FCOBOL
       .
       .
       .                  Data to be printed
       .
       .