GDG

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

 //* RESTART=STEP3                                                 

 //*GDG DEFINE                                                     

 //STEP1 EXEC  PGM=IDCAMS                                          

 //SYSPRINT   DD SYSOUT=*                                           

 //SYSIN  DD *                                                     

   DEFINE GDG           -                                          

   (NAME(G423400.JCL.DAY3.GDG)      -                              

   LIMIT(3)             -                                          

   NOEMPTY                 -                                       

   SCRATCH)                                                        

 /*                                                                 

 //*CREATE A MODEL FOR GDG                                         

 //STEP2 EXEC PGM=IEFBR14                                          

 //DD1   DD  DSN=G423400.JCL.DAY3.GDG.MODEL,                       

 //      DISP=(NEW,CATLG,DELETE),                                  

 //      SPACE=(TRK,(0)),                                          

 //      DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)                       

 //SYSPRINT   DD SYSOUT=*                                          

 //*CREATE 3 GERNARATION                                           

 //STEP3 EXEC PGM=IEFBR14                                          

 //DD1   DD DSN=G423400.JCL.DAY3.GDG(+1),DISP=(NEW,CATLG,),        

 //         SPACE=(TRK,(1,1)),                                      

 //         DCB=G423400.JCL.DAY3.GDG.MODEL                         

//DD2   DD DSN=G423400.JCL.DAY3.GDG(+2),DISP=(NEW,CATLG,),     

 //         SPACE=(TRK,(1,1)),                                  

 //         DCB=G423400.JCL.DAY3.GDG.MODEL                       

 //DD3   DD DSN=G423400.JCL.DAY3.GDG(+3),DISP=(NEW,CATLG,),     

 //         SPACE=(TRK,(1,1)),                                  

 //         DCB=G423400.JCL.DAY3.GDG.MODEL                      

 //*COPY THE INSTREAM TO THE 2CND                                

 //STEP4 EXEC PGM=IEBGENER                                      

 //SYSPRINT DD SYSOUT=*                                         

 //SYSUT2   DD   DSN=G423400.JCL.DAY3.GDG,DISP=OLD              

 //SYSUT1   DD *                                                 

 MAINFRAMES                                                     

 ABENDS                                                         

 X-WAIT                                                         

 MAXCC                                                          

 /*                                                             

 //SYSIN    DD  DUMMY                                           

 //SYSPRINT DD SYSOUT=*                                          

 //*ALTER THE ATTRIBUTE                                         

 //STEP5 EXEC PGM=IDCAMS                                        

 //SYSPRINT DD SYSOUT=*                                         

 //SYSIN    DD *                                                 

   ALTER G423400.JCL.DAY3.GDG  EMPTY                            

 /*                                                             

 //STEP6 EXEC PGM=IDCAMS                                        

 //SYSPRINT DD SYSOUT=*                                          

 //SYSIN    DD *                                                

/*                                                           

//*DELETE GDG FORCEFULLY                                     

//STEP7 EXEC PGM=IDCAMS                                       

//SYSPRINT DD SYSOUT=*                                       

//SYSIN    DD *                                              

   DELETE G423400.JCL.DAY3.GDG.* PURGE                       

   DELETE G423400.JCL.DAY3.GDG PURGE FORCE                    

/*