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