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)
"; ; ; ;