Tue, 07/17/2012 – 13:50
#1
Creating a file using CLIST
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)
“; ; ; ;
Click the +1 button  below to share it with your friends and colleagues
Share this if you liked it!
Disclaimer