Creating a file using CLIST

1 post / 0 new
Anonymous (not verified)
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)

"; ; ; ;

Sponsored Listing

Click the +1 button  below to share it with your friends and colleagues

 

Share this if you liked it!

 

Disclaimer

Navigation