Creating a file using CLIST

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