GDG Program in JCL

 GDG-GENERATION
//TRGA13QQ JOB NOTIFY=TRGA13                                  
//STEP1 EXEC PGM=IDCAMS                                        
//SYSIN DD *                                                  
   DEFINE GDG (NAME(TRGA13.MOULI.GDG.BACKUP) -                
   LIMIT(5) -                                                  
   NOEMPTY SCRATCH)                                            
/*                                                            
//SYSPRINT DD SYSOUT=A                                        
//STEP2 EXEC PGM=IEFBR14                                      
//MODEL1 DD  DSN=TRGA13.MOULI.GDG.BACKUP,DISP=(NEW,KEEP,DELETE),
//           UNIT=SYSDA,SPACE=(TRK,0),                        
//           DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)              
//                                                            
***********************************************************
             GDG-VERSION GENERATION
//TRGA13AA JOB NOTIFY=TRGA13                  
//STEP1 EXEC PGM=SORT                          
//SORTIN DD DSN=TRGA13.MOULI.PS,DISP=SHR      
//SORTOUT DD DSN=TRGA13.MOULI.GDG.BACKUP(+1),  
//           DISP=(NEW,CATLG,DELETE),          
//           UNIT=SYSDA,                      
//           SPACE=(TRK,(1,5),RLSE),          
//           DCB=(TRGA13.MOULI.PSOUT)          
//SYSIN DD *                                  
    SORT FIELDS=(35,4,CH,A)                    
    SUM FIELDS=(73,6,ZD)                      
/*                                            
//SYSOUT DD SYSOUT=A                          
//                                            
***************************************************************
             GDG-PREVIOUS VERSION
//TRGA13AA JOB NOTIFY=TRGA13                        
//STEP1 EXEC PGM=SORT                              
//SORTIN DD DSN=TRGA13.MOULI.GDG.BACKUP(-1),DISP=SHR
                                                                               ==> (0)=CURRENT GDG VERSION
//SORTOUT  DD DSN=TRGA13.MOULI.PSOUT,DISP=OLD      
//SYSIN DD *                                        
    SORT FIELDS=COPY                                
/*                                                  
//SYSOUT DD SYSOUT=A                                
//                                                  
************************************************************
            GDG-DELETE
//TRGA13QQ JOB NOTIFY=TRGA13                  
//STEP1 EXEC PGM=IDCAMS                      
//SYSIN DD *                                  
   DELETE (TRGA13.MOULI.GDG.BACKUP) GDG FORCE
/*
//SYSPRINT DD SYSOUT=A
//

0 comments:

Computers TopOfBlogs Technology Blogs Mainframe interview question and answers,mainframe jobs,cobol,vsam,jcl,cics,db2,rdbms,mvs,tso,ispf,ibm,hcl,tcs,cts,wibro Blog Directory