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