The following code can be used to create a flat file using CLIST.

SET PS=USERID.DATA.SET

IF &SYSDSN('&PS') =OK THEN +

DELETE '&PS'

ALLOC DA('&PS') F(FIL1) NEW SPACE(250 20) TRACKS RELEASE + LRECL(80) RECFM(F B) DSORG(PS)

FREE FILE(FIL1)

"; ; ; ;