您的位置:首页 > 其它

how to add a member into the PDS using JCL

2010-08-24 17:49 691 查看
how to add a member into the PDS using JCL

when I have class about JCL utilities from our India teacher,I have some difficulties to use IEFBR14 to add a member to pds.so how to solve it.

we can create a ps, pds easily using IEFBR14 lke following code.

//G423400J JOB ,,NOTIFY=&SYSUID,CLASS=B,MSGLEVEL=(1,1),MSGCLASS=X

//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=E118462.JCL.PRAC5.PS,

// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB),
// SPACE=(TRK,(2,2),RLSE)
//SYSPRINT DD SYSOUT=*

//G423400J JOB ,,NOTIFY=&SYSUID,CLASS=B,MSGLEVEL=(1,1),MSGCLASS=X
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=E118462.JCL.DAY2.PDS2,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB),
// SPACE=(TRK,(1,2,1),RLSE)
//SYSPRINT DD SYSOUT=*

now, I will show the code about how to add a member into pds:

//G423400J JOB ,,NOTIFY=&SYSUID,CLASS=B,MSGLEVEL=(1,1),MSGCLASS=X
//STEP1 EXEC PGM=IEFBR14
//DD1 DD DSN=G423400.JCL.DAY2.ASSIGN4.PDS,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(3,4,2),RLSE),
// DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
//SYSPRINT DD SYSOUT=*
//*ADD A MEMBER INTO A NEW PDS
//STEP2 EXEC PGM=IEBGENER
//SYSUT1 DD *
DATA1
DATA2
/*
//SYSUT2 DD DSN=G423400.JCL.DAY2.ASSIGN4.PDS,DISP=SHR
//SYSIN DD *
GENERATE MAXNAME=1
MEMBER NAME=MEMBER3
/*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*DELETE A MEMBER FROM A PDS
//STEP3 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE G423400.JCL.DAY2.ASSIGN4.PDS(MEMBER1)
/*
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: