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