Create PDS using CLIST

1 post / 0 new
Anonymous (not verified)
Create PDS using CLIST

The following code can be used to create PDS using CLIST.

 

SET PDS=&SYSUID..COMMON.TEMP
IF &SYSDSN('&PDS') =OK THEN +
  DELETE '&PDS'
ALLOC DA('&PDS') F(FIL1) NEW  SPACE(20 20) TRACKS RELEASE +
DIR(44) LRECL(80) RECFM(F B) DSORG(PO)
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