how to add a member into the PDS using JCL

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)

 /*