stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
Hi here is the simple JCL to create 2 PDS in a single step.
//abc JOB (TDEV,TST),'abc',MSGCLASS=9,
// CLASS=C,NOTIFY=abc
//*
//STEP01 EXEC PGM=IEFBR14
//DD01 DD DSN=temp1.TEMP.FILE4,
// DISP=(MOD,CATLG,DELETE),
// SPACE=(TRK,1),UNIT=SYSDA,
// DCB=(DSCB1,RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//DD02 DD DSN=temp1.TEMP.FILE3,
// DISP=(MOD,CATLG,DELETE),
// SPACE=(TRK,1),UNIT=SYSDA,
// DCB=(DSCB1,RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//*
similarly u can delete the pds in a single step.
correct me if i m not correct |
|
stly Warnings : 1 New User
Joined: 25 Jul 2005 Posts: 93
|
|
|
|
Hi ramesh,
small correction for my prev post.i have coded space paramter such that PS will be created.
just change the space parameter.
ex:SPACE=(CYL,(2,5,5),rlse)
5-specifies the directory block |
|