I am trying to create PDS usign below JCL:
Code: Select all
//DISK1 DD DSN=QNQD.INPUT1.PDS,DISP= (new,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(25,10),RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
// DSORG=PO
Code: Select all
//DISK1 DD DSN=QNQD.INPUT1.PDS,DISP= (new,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(25,10),RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
// DSORG=PO
You need to be a member in order to post a reply
Not a member? register to join our community
Members can start their own topics & subscribe to topics
It’s free and only takes a minute