Create PDS using CLIST

Wed, 08/01/2012 – 03:19

#1

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)

“; ; ; ;

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

Share this if you liked it!

Disclaimer