CLIST to read a line

The following CLIST can be used to read a line from dataset USERID.PARM1. Here FIL1 is symbolic name of the file.

 

ALLOC F(FIL1) DA('USERID.PARM1') SHR REU     
OPENFILE FIL1                                 
GETFILE FIL1                                  
CLOSFILE FIL1                                 
FREE FILE(FIL1)                               
SET VAL1 = &SUBSTR(1:7,&FIL1)                 
SET VAL2 = &SUBSTR(9:16,&FIL1)                
WRITE &VAL1                                   
WRITE &VAL2                                   
END