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