Keywords › Keyword Descriptions › INTERVAL › Example 1

Example 1

This example selects the first two records for printing and skips the next three records. It continues with this interval selection until the EOF.

PRINT ,
  FORMAT(LIST)
  INTERVAL(2,3),

You would expect output similar to this:

Print Report                 DSN = USER010.CAWABAT2.JOB04334.D0000101.?   Rec Length = 80
                                                                                
111111  APPLE                                                           
222222  APPLE                                                           
666666  APPLE                                                           
777777  ORANGE                                                          
BBBBBB  APPLE                                                           
CCCCCC  APPLE                                                           
*** CAWA2101I  DDNAME SYSUT1   records read:    15, selected 6                  
                                                                                
*** CAWA2550I  PRINT completed   RC = 0   High RC = 0 

CAWA2001I SYSLIST output was directed to SYSPRINT
                                                 
CAWA2000I Utility ending, Max CC=0                                         

Example 2

This example selects the first two records for printing and skips the next three records. It continues with this interval selection until the EOF.

PRINT ,
  FORMAT(LIST),  
  INTERVAL(2,3),
  SELRECIF(1,0,EQ,C'APPLE')

Since record 777777 does not have C'APPLE' in it, that record is not selected to be printed. The output follows.

Print Report                 DSN = USER010.CAWABAT2.JOB04538.D0000101.?   Rec Le
                                                                                
111111  APPLE                                                           
222222  APPLE                                                           
666666  APPLE                                                           
BBBBBB  APPLE                                                           
CCCCCC  APPLE                                                           
*** CAWA2101I  DDNAME SYSUT1   records read:    15, selected 5                  
                                                                                
*** CAWA2550I  PRINT completed   RC = 0   High RC = 0                           
                                                                                
CAWA2001I SYSLIST output was directed to SYSPRINT                               
                                                    
CAWA2000I Utility ending, Max CC=0