JCL Utilities Programs


IEBGENER :
000100 //OZA090A  JOB A123,KAR,NOTIFY=&SYSUID            
 000200 //STEP1    EXEC PGM=IEBGENER                      
 000300 //SYSUT   DD DSN=OZA090.MOVE.PDS,DISP=(NEW,CATLG),
 000400 //          DCB=(LRECL=80,BLKSIZE=800,RECFM=FB),  
 000500 //          SPACE=(TRK,(1,2,3),RLSE)              
 000600 //SYSPRINT DD  SYSOUT=*                           
 000700 //SYSIN    DD *                                   
 000800 /*                                                
 000900 //         
---------
000100 //OZA090A JOB  A123,MANI,NOTIFY=&SYSUID                              
000200 //STEP1     EXEC PGM=IEBGENER                                        
000300 //SYSUT1    DD   DSN=OZA090.MANI.PDS(MEM1),DISP=SHR                  
000400 //SYSUT2    DD   DSN=OZA090.MANI3.NEW(MEM1),SPACE=(TRK,(1,2,3),RLSE),
000500 //   DISP=(NEW,CATLG,DELETE),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)     
000700 //SYSPRINT  DD    SYSOUT=*                                           
000800 //SYSIN     DD *                                                      
000900 /*   
-------------------
000100 //OZA090K JOB  5,KARTHIK,NOTIFY=&SYSUID                            
 000200 //STEP1   EXEC PGM=IEBGENER                                        
 000300 //SYSUT1  DD   DSN=OZA090.KAR.PS,DISP=SHR                          
 000400 //SYSUT2  DD   DSN=OZA090.MANI5.PDS(MEM1),DISP=(NEW,CATLG,DELETE), 
 000500 //    SPACE=(TRK,(1,2,3),RLSE),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800) 
 000600 //SYSPRINT DD SYSOUT=*                                              
 000700 //SYSIN    DD *                                                    
 000800 /*                                                                 
 000900 //         
----------------
000100 //OZA090K JOB  5,KARTHIK,NOTIFY=&SYSUID                            
 000200 //STEP1   EXEC PGM=IEBGENER                                        
 000300 //SYSUT1  DD   DSN=OZA090.KAR.PS,DISP=SHR                          
 000400 //SYSUT2  DD   DSN=OZA090.MANI5.PDS(MEM1),DISP=(NEW,CATLG,DELETE), 
 000500 //    SPACE=(TRK,(1,2,3),RLSE),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800) 
 000600 //SYSPRINT DD SYSOUT=*                                             
 000700 //SYSIN    DD *                                                    
 000800 /*                                                                  
 000900 //                                                                                                                                                                                          
IEFBR14 :
000100 //OZA090A  JOB A123,KAR,NOTIFY=&SYSUID               
000200 //STEP1    EXEC PGM=IEFBR14                          
000300 //DATA     DD  DSN=OZA090.FILE1.PDS,DISP=(NEW,KEEP), 
000400 //          DCB=(LRECL=80,BLKSIZE=800,RECFM=FB),     
000500 //          SPACE=(TRK,(1,2,3),RLSE)                 
000600 //SYSPRINT DD  SYSOUT=*                              
000700 //SYSIN    DD *                                      
000800 /*                                                   
000900 //              
------------------
000100 //OZA090A JOB  01,MANI,NOTIFY=&SYSUID                                 
 000200 //STEP1   EXEC PGM=IEFBR14                                            
 000300 //DD1     DD   DSN=OZA090.MANICOMP.PDS(MEM2),DISP=(NEW,CATLG,DELETE), 
 000400 //        SPACE=(TRK,(1,2,3),RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
 000500 //SYSPRINT DD SYSOUT=*                                                
 000600 //SYSIN    DD *                                                        
 000700 /*                                                                    
 000800 //   
                                                                                             
IEBCOPY  (PS to PS):         
000100 //OZA090A  JOB NOTIFY=&SYSUID,TYPRUN=SCAN  
000200 //STEP1    EXEC PGM=IEBCOPY                
000300 //SYSPRINT DD SYSOUT=*                     
000400 //INP1     DD DSN=OZA090.MEM1.PS,DISP=SHR  
000600 //SYSIN    DD *                            
000610         COPY INDD=INP1,OUTDD=INP2          
000700 /*                                         
000800 //           

To  Send Message   :
000100 //OZA090AS  JOB NOTIFY=&SYSUID                       
000200 //STEP1 EXEC PGM=IKJEFT01                            
000300 //SYSTSPRT DD SYSOUT=*                               
000400 //SYSTSIN DD DDNAME=SYSIN SEND 'HELLO' U(OZA090)     
000600 /*                                                   
000700 //          
                                                                     
Data Set Concanetion :
000100 //OZA090B  JOB  10,MANKAR,NOTIFY=&SYSUID                               
000200 //STEP1    EXEC PGM=IEBGENER                                           
000300 //SYSUT1   DD   DSN=OZA090.MANI.PDS(PDSTOPDS),DISP=SHR                 
000400 //         DD   DSN=OZA090.MANI.PDS(PSTOPDS),DISP=SHR                  
000500 //SYSUT2   DD   DSN=OZA090.MANKAR1.PS,DISP=(NEW,CATLG,DELETE),         
000600 //      SPACE=(TRK,(1,2),RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)      
000700 //SYSPRINT DD SYSOUT=*                                                 
000800 //SYSIN    DD  *                                                       
000900 /*                                                                     
001000 //                                                                      

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