Referback Statement Programs


Program Code :
Code For Instream

000001 //OZA090A  JOB NOTIFY=&SYSUID                 
000002 //REFR     PROC                               
000003 //STEP1    EXEC PGM=IEFBR14                   
000004 //SYSUT1   DD DSN=OZA090.MMM.PS,DISP=SHR,     
000005 //         SPACE=(TRK,(2,2,1),RLSE),          
000006 //         DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000007 // PEND                                       
000008 //STEP2    EXEC PROC=REFR                     
000009 //SYSUT2   DD DSN=*.STEP1.SYSUT1,DISP=SHR     
000010 //SYSPRINT DD SYSOUT=*                        
000011 //SYSOUT   DD SYSOUT=*                        
000012 //SYSIN    DD *                               
000013 /*                                            
000014 //                                             

Code For Catalog:
000001 //OZA090A  JOB NOTIFY=&SYSUID               
000002 // JCLLIB ORDER=OZA090.MANI5.PDS            
000003 //STEP1    EXEC PROC=REF                    
000004 //DD2      DD DSN=*.STEP1.DD1,DISP=SHR      
000005 //SYSPRINT DD SYSOUT=*                      
000006 //SYSOUT   DD SYSOUT=*                      
000007 //SYSIN    DD *                             
000008 /*                                          
000009 //                                           

000001 //REF     PROC                               
000002 //STEP1    EXEC PGM=IEFBR14                  
000003 //DD1      DD DSN=OZA090.MMM.PS,DISP=SHR,    
000004 //         SPACE=(TRK,(2,2,1),RLSE),         
000005 //         DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000006 //                                           
---------------------------------------------------------------------

000001 //OZA090A  JOB NOTIFY=&SYSUID                          
000002 //STEP1    EXEC PGM=IEFBR14                            
000003 //SYSUT1   DD DSN=OZA090.MMM.PS,DISP=(MOD,CATLG,CATLG),
000004 //         SPACE=(TRK,(2,2,1),RLSE),                   
000005 //         DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)         
000006 //SYSUT2   DD DSN=*.STEP1.SYSUT1,DISP=SHR              
000007 //SYSPRINT DD SYSOUT=*                                 
000008 //SYSOUT   DD SYSOUT=*                                 
000009 //SYSIN    DD *                                        
000010 /*                                                      
000011 //           


Refer Back Not Working For DISP,Space                                         

000001 //OZA090A  JOB NOTIFY=&SYSUID                  
000002 //STEP1    EXEC PGM=IEFBR14                    
000003 //SYSUT1   DD DSN=OZA090.MMM.PS,DISP=SHR,      
000004 //         SPACE=(TRK,(2,2,1),RLSE),           
000005 //         DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 
000006 //SYSUT2   DD DSN=*.STEP1.SYSUT1,DISP=SHR      
000007 //SYSPRINT DD SYSOUT=*                          
000008 //SYSOUT   DD SYSOUT=*                         
000009 //SYSIN    DD *                                
000010 /*                                             
000011 //                                             

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