Overriding Parameters and Programs


Program Code :

Code For Catalog

000001 //CATLOG11 PROC                                             
000002 //STEP1 EXEC PGM=IEFBR14                                    
000003 //DD1 DD DSN=OZA090.ANN13.PS,DISP=(NEW,CATLG,DELETE),       
000004 // SPACE=(TRK,(1,3),RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000005 //                                                          

000001 //OZA09012 JOB NOTIFY=&SYSUID     
000002 //DDI JCLLIB ORDER=OZA090.PROC.PDS
000003 //STEP2 EXEC PROC=PROC            
000004 //STEP1.DD1 DD DSN=OZA090.ANN154.PS
000005 //SYSPRINT DD SYSOUT=*            
000006 //SYSOUT DD SYSOUT=*              
000007 //SYSIN DD *                      
000008 /*                                
000009 //                                

Code For Instream :

000001 //OZA090BB JOB NOTIFY=&SYSUID                          
000002 //AB PROC                                              
000003 //STEP1 EXEC PGM=IEFBR14                               
000004 //DD1 DD DSN=OZA090.BALA123.PS,                         
000005 //         DISP=(NEW,CATLG,DELETE),                    
000006 //         SPACE=(TRK,(1,2),RLSE),                     
000007 //         DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)         
000008 // PEND                                                 
000009 //STEP2 EXEC PROC=AB                                   
000010 //STEP1.DD1 DD DSN=OZA090.BALL.PS,SPACE=(CYL,(2,3),RLSE)
000011 //SYSPRINT DD SYSOUT=*                                 
000012 //SYSOUT DD SYSOUT=*                                    
000013 //                                                     

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