Compile JCL's

                                       About Us        Services        Courses        Case Studies        Mainframe Forum        Mainframe Jobs        Contact Us         Mainframe Connectivity


Compile JCL’S:

COBOL program compile JCL:

//IND220CL JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),        
//             NOTIFY=&SYSUID,REGION=6M                                
//************************************************************         
//* CHANGE THE MEM NAME TO YOUR PRORAM NAME                            
//* CHANGE THE SYSIN LIBRARY AS YOUR PROGRAM LIBRARY                   
//* CHANGE THE SYSLIB LIBRARY AS YOUR COPY LIBRARY                     
//* CHANGE THE SYSLMOD LIBRARY AS YOUR LOAD MODULE LIBRARY             
//************************************************************         
//JOBPROC  JCLLIB ORDER=IND120.INDUS.PROCLIB                             
//COBCL    EXEC COBCL,MEM=KSDSDYR                                      
//COMPILE.SYSIN  DD  DSN=IND220.INDUS.COBOL(&MEM),DISP=SHR             
//COMPILE.SYSLIB DD  DSN=IND220.INDUS.COPYLIB,DISP=SHR                 
//LKED.SYSLMOD DD  DSN=IND220.INDUS.LOADLIB(&MEM),DISP=SHR             
//                                                                     

Compile procedure:


//COBCL PROC LNGPRFX='IGY',SYSLBLK=0000,LIBPRFX='CEE'                  
//*                                                                    
//COMPILE  EXEC PGM=IGYCRCTL,REGION=2048K,                             
//         PARM='RES,LIB,OBJECT,APOST,TEST,DYNAM,LIST'                 
//STEPLIB  DD  DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR                      
//SYSPRINT DD  SYSOUT=*                                                
//SYSLIN   DD  DSNAME=&&LOADSET,UNIT=SYSALLDA,                         
//             DISP=(MOD,PASS),SPACE=(TRK,(3,3)),                      
//             DCB=(BLKSIZE=&SYSLBLK)                                  
//SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                         
//SYSUT2   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                         
//SYSUT3   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                         
//SYSUT4   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                         
//SYSUT5   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                         
//SYSUT6   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                         
//SYSUT7   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1))                         
//*                                                                    
//LKED   EXEC PGM=HEWL,COND=(8,LT,COMPILE),REGION=1024K,PARM='XREF'    
//SYSLIB   DD  DSNAME=&LIBPRFX..SCEELKED,DISP=SHR                      
//SYSPRINT DD  SYSOUT=*                                                
//SYSLIN   DD  DSNAME=&&LOADSET,DISP=(OLD,DELETE)                      
//         DD  DDNAME=SYSIN                                            
//SYSUT1   DD  UNIT=SYSALLDA,SPACE=(TRK,(10,10))                       

 

COBOL + CICS program compile JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************                  
//JOBPROC  JCLLIB ORDER=IND220.INDUS.PROCLIB                           
//CICSCOB  EXEC CICSCOB,                                               
//             COPYLIB=IND220.INDUS.COPYLIB,                           
//             LOADLIB=IND220.INDUS.LOADLIB                            
//TRN.SYSIN  DD DSN=IND220.INDUS.CICS(CUSTINQ3),DISP=SHR               
//LKED.SYSLIB DD                                                       
//            DD                                                       
//            DD DSN=IND220.INDUS.LOADLIB,DISP=SHR                     
//LKED.SYSIN DD  *                                                     
  NAME CUSTINQ3(R)                                                     
//                                                                     
                                                                       
compile procedure
                      
//CICSCOB  PROC OUTC=*,              CLASS FOR PRINT OUTPUT            
//       COPYLIB='JCLERROR',         PRIVATE COPY LIBRARY              
//       LOADLIB='JCLERROR'          OUTPUT LOAD LIBRARY               
//*                                                                    
//*                                                                    
//*      THIS PROCEDURE CONTAINS 4 STEPS                               
//*      1.   EXEC THE COBOL TRANSLATOR                                
//*           (USING THE SUPPLIED SUFFIX 1$)                           
//*      2.   EXEC THE COBOL COMPILER                                  
//*      3.   REBLOCK SDFHC370(DFHEILID) FOR USE BY THE LINKEDIT STEP  
//*      4.   LINKEDIT THE OUTPUT INTO DATASET &LOADLIB                
//*                                                                    
//*      THE FOLLOWING JCL SHOULD BE USED                              
//*      TO EXECUTE THIS PROCEDURE                                     
//*                                                                    
//*      //APPLPROG EXEC DFHYITVL                                      
//*      //TRN.SYSIN  DD *                                             
//*         .                                                          
//*         . APPLICATION PROGRAM                                      
//*         .                                                          
//*      /*                                                            
//*      //LKED.SYSIN DD *                                             
//*         NAME ANYNAME(R)                                            
//*      /*                                                            
//*                                                                    
//*      WHERE   ANYNAME   IS THE NAME OF YOUR APPLICATION PROGRAM.    
//*      (REFER TO THE SYSTEM DEFINITION GUIDE FOR FULL DETAILS,       
//*      INCLUDING WHAT TO DO IF YOUR PROGRAM CONTAINS CALLS TO        
//*      THE COMMON PROGRAMMING INTERFACE.)                            
//*                                                                    
//TRN    EXEC PGM=DFHECP1$,                                            
//            PARM='COBOL3',                                           
//            REGION=4M                                                
//STEPLIB  DD DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR                      
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSPUNCH DD DSN=&&SYSCIN,                                            
//            DISP=(,PASS),UNIT=SYSDA,                                 
//            DCB=BLKSIZE=400,                                         
//            SPACE=(400,(400,100))                                    
//*                                                                    
//COB    EXEC PGM=IGYCRCTL,REGION=4M,                                  
//  PARM='NODYNAM,LIB,OBJECT,RES,APOST,MAP,XREF,NOSEQUENCE'            
//STEPLIB  DD DSN=IGY.SIGYCOMP,DISP=SHR                                
//SYSLIB   DD DSN=&COPYLIB,DISP=SHR                                    
//         DD DSN=CICSTS23.CICS.SDFHCOB,DISP=SHR                       
//         DD DSN=CICSTS23.CICS.SDFHMAC,DISP=SHR                       
//         DD DSN=CICSTS23.CICS.SDFHSAMP,DISP=SHR                      
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSIN    DD DSN=&&SYSCIN,DISP=(OLD,DELETE)                           
//SYSLIN   DD DSN=&&LOADSET,DISP=(MOD,PASS),                           
//            UNIT=SYSDA,SPACE=(80,(250,100))                          
//SYSUT1   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT2   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT3   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT4   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT5   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT6   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT7   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//*                                                                    
//COPYLINK EXEC PGM=IEBGENER,COND=(7,LT,COB)                           
//SYSUT1   DD DSN=CICSTS23.CICS.SDFHSAMP(DFHEILID),DISP=SHR            
//SYSUT2   DD DSN=&&COPYLINK,DISP=(NEW,PASS),                          
//            DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),                     
//            UNIT=SYSDA,SPACE=(400,(20,20))                           
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSIN    DD DUMMY                                                    
//*                                                                    
//LKED   EXEC PGM=IEWL,REGION=4M,                                      
//            PARM='LIST,XREF',COND=(5,LT,COB)                         
//SYSLIB   DD DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR                      
//         DD DSN=CEE.SCEELKED,DISP=SHR                                
//SYSLMOD  DD DSN=&LOADLIB,DISP=SHR                                    
//SYSUT1   DD UNIT=SYSDA,DCB=BLKSIZE=1024,                             
//            SPACE=(1024,(200,20))                                    
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSLIN   DD DSN=&&COPYLINK,DISP=(OLD,DELETE)                         
//         DD DSN=&&LOADSET,DISP=(OLD,DELETE)                          
//         DD DDNAME=SYSIN                                             

 

Map compile JCL:


//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************                  
//JOBPROC  JCLLIB ORDER=IND120.INDUS.PROCLIB                             
//CICSMAP  EXEC CICSMAP,                                               
//         OUTC=*,                                                     
//         COPYLIB=IND220.INDUS.COPYLIB,     *CICS MAP COPYLIB         
//         LOADLIB=IND220.INDUS.LOADLIB,                               
//         MAPNAME=MENSET1                 *NAME OF MAPSET             
//COPY.SYSUT1  DD  DSN=IND220.INDUS.MAPLIB(ANIL1),DISP=SHR             
//                                                                     
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&                    
//DFHMAPS PROC INDEX='CICSTS23.CICS', FOR SDFHMAC                      
//             LOADLIB='JCLERROR',           TARGET LOADLIB FOR MAP    
//             COPYLIB='JCLERROR',           TARGET COPYLIB FOR DSECT  
//             MAPNAME='MAPCICS',              NAME OF MAPSET - REQUIRED
//             A=,                           A=A FOR ALIGNED MAP       
//             RMODE=24,                     24/ANY                    
//             ASMBLR=ASMA90,                ASSEMBLER PROGRAM NAME    
//             REG=2048K,                    REGION FOR ASSEMBLY       
//             OUTC='*',                     PRINT SYSOUT CLASS        
//             WORK=SYSDA                    WORK FILE UNIT            
//COPY     EXEC PGM=IEBGENER                                           
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSUT2   DD DSN=&&TEMPM,UNIT=&WORK,DISP=(,PASS),                     
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),                     
//            SPACE=(400,(50,50))                                      

//SYSIN    DD DUMMY                                                    
//*SYSUT1 DD * NEEDED FOR THE MAP SOURCE                               
//ASMMAP   EXEC PGM=&ASMBLR,REGION=&REG,                               
//* NOLOAD CHANGED TO NOOBJECT                                         
//  PARM='SYSPARM(&A.MAP),DECK,NOOBJECT'                               
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSLIB   DD DSN=&INDEX..SDFHMAC,DISP=SHR                             
//         DD DSN=SYS1.MACLIB,DISP=SHR                                 
//SYSUT1   DD UNIT=&WORK,SPACE=(CYL,(5,5))                             
//SYSUT2   DD UNIT=&WORK,SPACE=(CYL,(5,5))                             
//SYSUT3   DD UNIT=&WORK,SPACE=(CYL,(5,5))                             
//SYSPUNCH DD DSN=&&MAP,DISP=(,PASS),UNIT=&WORK,                       
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),                     
//            SPACE=(400,(50,50))                                      
//SYSIN    DD DSN=&&TEMPM,DISP=(OLD,PASS)                              
//LINKMAP  EXEC PGM=IEWL,PARM='LIST,LET,XREF,RMODE(&RMODE)'            
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSLMOD  DD DSN=&LOADLIB(&MAPNAME),DISP=SHR                          
//SYSUT1   DD UNIT=&WORK,SPACE=(1024,(20,20))                          
//SYSLIN   DD DSN=&&MAP,DISP=(OLD,DELETE)                              
//* NOLOAD CHANGED TO NOOBJECT                                         
//ASMDSECT EXEC PGM=&ASMBLR,REGION=&REG,                               
//  PARM='SYSPARM(&A.DSECT),DECK,NOOBJECT'                             
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSLIB   DD DSN=&INDEX..SDFHMAC,DISP=SHR                             
//         DD DSN=SYS1.MACLIB,DISP=SHR                                 
//SYSUT1   DD UNIT=&WORK,SPACE=(CYL,(5,5))                             
//SYSUT2   DD UNIT=&WORK,SPACE=(CYL,(5,5))                             
//SYSUT3   DD UNIT=&WORK,SPACE=(CYL,(5,5))                             
//SYSPUNCH DD DSN=&COPYLIB(&MAPNAME),DISP=OLD                          
//SYSIN    DD DSN=&&TEMPM,DISP=(OLD,DELETE)                            

 

COBOL + DB2 + CICS compile JCL:


//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************                  
//JOBPROC  JCLLIB ORDER=IND120.INDUS.PROCLIB                             
//DB2CICS  EXEC DB2CICS,                                               
//             DBRMLIB='IND220.INDUS.DBRMLIB',                         
//             DB2COPY='IND220.INDUS.COPYLIB',                         
//             COPYLIB='IND220.INDUS.COPYLIB',                         
//             LOADLIB='IND220.INDUS.LOADLIB',                         
//             MEM=CICDB202    * SHOULD BE SAME AS PROGRAM NAME        
//SYSIN    DD  DSN=IND220.INDUS.DB2(CICDB202),DISP=SHR                 
//LKED.SYSIN    DD  *                                                  
  INCLUDE SYSLIB(DSNCLI)                                               
  NAME CICDB202(R)                                                     
//                                                                     


compile procedure


//DB2CICS  PROC OUTC=*,              CLASS FOR PRINT OUTPUT            
//       DB2COPY='JCLERROR',         NAME OF DB2 DCLGEN COPY LIBRARY   
//       DBRMLIB='JCLERROR',         NAME OF DB2 DBRM LIBRARY          
//       COPYLIB='JCLERROR',         NAME OF PUBPLC COPY LIBRARY       
//       LOADLIB='JCLERROR',         NAME OF OUTPUT LOAD LIBRARY       
//       MEM=TEMPNAME                                                  
//*                                                                    
//*      THIS PROCEDURE CONTAINS 5 STEPS                               
//*      1.   EXEC THE DB2 COBOL PRECOMPILER                           
//*      2.   EXEC THE CICS COBOL TRANSLATOR                           
//*      3.   EXEC THE IBM COBOL FOR OS/390 COMPILER                   
//*      5.   REBLOCK STUB FOR USE BY THE LINKEDIT STEP                
//*      6.   LINKEDIT THE OUTPUT INTO DATASET &LOADLIB                
//*                                                                    
//*      THE FOLLOWING JCL SHOULD BE USED                              
//*      TO EXECUTE THIS PROCEDURE                                     
//*                                                                    
//*      //APPLPROG EXEC DB2CICS                                       
//*      //DB2PC.SYSIN  DD *                                           
//*         .                                                          
//*         . APPLICATION PROGRAM                                      
//*         .                                                          
//*      /*                                                            
//*      //LKED.SYSIN DD *                                             
//*         NAME ANYNAME(R)                                            
//*      /*                                                            
//*                                                                    
//*      WHERE   ANYNAME   IS THE NAME OF YOUR APPLICATION PROGRAM.    
//*      (REFER TO THE SYSTEM DEFINITION GUIDE FOR FULL DETAILS,       
//*      INCLUDING WHAT TO DO IF YOUR PROGRAM CONTAINS CALLS TO        
//*      THE COMMON PROGRAMMING INTERFACE.)                            
//*                                                                    

//DB2COB   EXEC PGM=DSNHPC,PARM='HOST(IBMCOB),NOSOURCE,APOST,APOSTSQL',
//       REGION=2M                                                     
//*********************************************************************
//*            PRECOMPILE THE COBOL PROGRAM FOR DB2                    
//*********************************************************************
//STEPLIB  DD  DISP=SHR,DSN=DSN710.SDSNEXIT                            
//         DD  DISP=SHR,DSN=DSN710.SDSNLOAD                            
//SYSLIB   DD  DSN=&DB2COPY,DISP=SHR                                   
//SYSCIN   DD  DSN=&&DSNHOUT,DISP=(MOD,PASS),                          
//             UNIT=SYSDA,SPACE=(800,(400,400),,,ROUND)                
//DBRMLIB  DD  DSN=&DBRMLIB(&MEM),DISP=SHR                             
//SYSPRINT DD  SYSOUT=&OUTC                                            
//SYSTERM  DD  SYSOUT=*                                                
//SYSUDUMP DD  SYSOUT=*                                                
//SYSUT1   DD  SPACE=(800,(400,400),,,ROUND),UNIT=SYSDA                
//SYSUT2   DD  SPACE=(800,(400,400),,,ROUND),UNIT=SYSDA                
//*                                                                    
//TRN    EXEC PGM=DFHECP1$,                                            
//            COND=(4,LT,DB2COB),                                      
//            PARM='COBOL3',                                           
//            REGION=2M                                                
//STEPLIB  DD DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR                      
//SYSIN    DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)                          
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSPUNCH DD DSN=&&SYSCIN,                                            
//            DISP=(,PASS),UNIT=SYSDA,                                 
//            DCB=BLKSIZE=400,                                         
//            SPACE=(400,(400,100))                                    
//*                                                                    
//COB    EXEC PGM=IGYCRCTL,REGION=2M,                                  
//       PARM='NODYNAM,LIB,OBJECT,RENT,APOST,MAP,XREF'                 
//STEPLIB  DD DSN=IGY.SIGYCOMP,DISP=SHR                                
//SYSLIB   DD DSN=&COPYLIB,DISP=SHR                                    
//         DD DSN=CICSTS23.CICS.SDFHCOB,DISP=SHR                       
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSIN    DD DSN=&&SYSCIN,DISP=(OLD,DELETE)                           
//SYSLIN   DD DSN=&&LOADSET,DISP=(MOD,PASS),                           
//            UNIT=SYSDA,SPACE=(80,(250,100))                          
//SYSUT1   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT2   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT3   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT4   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT5   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT6   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//SYSUT7   DD UNIT=SYSDA,SPACE=(460,(350,100))                         
//*                                                                    
//COPYLINK EXEC PGM=IEBGENER,COND=(7,LT,COB)                           
//SYSUT1   DD DSN=CICSTS23.CICS.SDFHSAMP(DFHEILID),DISP=SHR            

//SYSUT2   DD DSN=&&COPYLINK,DISP=(NEW,PASS),                          
//            DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),                     
//            UNIT=SYSDA,SPACE=(400,(20,20))                           
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSIN    DD DUMMY                                                    
//*                                                                    
//*                                                                    
//LKED   EXEC PGM=IEWL,REGION=2M,                                      
//            PARM='LIST,XREF',COND=(5,LT,COB)                         
//SYSLIB   DD DSN=CICSTS23.CICS.SDFHLOAD,DISP=SHR                      
//         DD DSN=CEE.SCEELKED,DISP=SHR                                
//         DD DSN=&LOADLIB,DISP=SHR                                    
//         DD DSN=DSN710.SDSNEXIT,DISP=SHR                             
//         DD DSN=DSN710.SDSNLOAD,DISP=SHR                             
//SYSLMOD  DD DSN=&LOADLIB,DISP=SHR                                    
//SYSUT1   DD UNIT=SYSDA,DCB=BLKSIZE=1024,                             
//            SPACE=(1024,(200,20))                                    
//SYSPRINT DD SYSOUT=&OUTC                                             
//SYSLIN   DD DSN=&&COPYLINK,DISP=(OLD,DELETE)                         
//         DD DSN=&&LOADSET,DISP=(OLD,DELETE)                          
//         DD DDNAME=SYSIN                                             

 


Bind JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************                  
//JOBLIB   DD DISP=SHR,DSN=DSN710.SDSNEXIT                             
//         DD DISP=SHR,DSN=DSN710.SDSNLOAD                             
//         DD DISP=SHR,DSN=CEE.SCEERUN                                 
//BINDPLAN EXEC PGM=IKJEFT01,DYNAMNBR=20                               
//DBRMLIB  DD DSN=IND220.INDUS.DBRMLIB,DISP=SHR                        
//SYSTSPRT DD SYSOUT=*                                                 
//SYSTSPRT DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSTSIN DD *   PLAN,DBRM AND PROGRAM NAMES SHOULD BE SAME            
 DSN SYSTEM(DSN)                                                       
  BIND PLAN(CICDB202) MEMBER(CICDB202) ACT(REP) ISOLATION(CS) -        
                      QUALIFIER(IND220) OWNER(IND220)                  
 END                                                                   
//                                                                     
//                                                                     

 

COBOL + DB2 compile JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//**********************************************************           
//JOBPROC  JCLLIB ORDER=IND120.INDUS.PROCLIB                             
//DB2ICOB  EXEC PRECLINK,                                              
//    COPYLIB='IND220.SREE.DCLGEN',                                    
//    DBRMLIB='IND220.SREE.DBRMLIB',                                   
//    LOADLIB='IND220.SREE.LOADLIB',                                   
//    MEM=INSPGM,                                                      
//    LMOD=INSPGM                                                      
//SYSIN DD  DSN=IND220.SREE.DB2(INSPGM),DISP=SHR                       
//LKED.SYSIN   DD *                                                    
       INCLUDE SYSLIB(DSNELI)                                          
/*                                                                     
//                                                                     

 

compile procedure:


//DB2COB   PROC MEM=TEMPNAME,                                          
//             COPYLIB=JCLERROR,                                       
//             DBRMLIB=JCLERROR,                                       
//             LOADLIB=JCLERROR,                                       
//             LMOD=JCLERROR,                                          
//             WSPC=500,LNGPRFX='IGY',                                 
//             LIBPRFX='CEE'                     *QUALIFIER FOR LE/390 
//******************************************************************** 
//*        PRECOMPILE THE IBM COBOL PROGRAM                          * 
//******************************************************************** 
//PC       EXEC PGM=DSNHPC,                                            
//         PARM='HOST(COBOL),SOURCE'                                   
//DBRMLIB  DD DSN=&DBRMLIB(&MEM),DISP=SHR                              
//STEPLIB  DD DISP=SHR,DSN=DSN710.SDSNEXIT                             
//         DD DISP=SHR,DSN=DSN710.SDSNLOAD                             
//SYSLIB   DD DSN=&COPYLIB,DISP=SHR                                    
//SYSCIN   DD DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA,                
//            SPACE=(800,(&WSPC,&WSPC))                                
//SYSPRINT DD SYSOUT=*                                                 
//SYSTERM  DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSUT1   DD SPACE=(800,(&WSPC,&WSPC),,,ROUND)                        
//SYSUT2   DD SPACE=(800,(&WSPC,&WSPC),,,ROUND)                        
//******************************************************************** 
//*        COMPILE THE IBM COBOL PROGRAM IF THE PRECOMPILE           * 
//*        RETURN CODE IS 4 OR LESS.                                 * 
//******************************************************************** 
//COB      EXEC PGM=IGYCRCTL,                                          
//            PARM='APOST',                                            
//            COND=(4,LT,PC)                                           
//STEPLIB DD DSN=&LNGPRFX..SIGYCOMP,DISP=SHR                           
//SYSPRINT DD SYSOUT=*                                                 
//SYSTERM  DD SYSOUT=*                                                 
//SYSLIB   DD DSN=&COPYLIB,DISP=SHR                                    
//SYSLIN   DD DSN=&&LOADSET,DISP=(MOD,PASS),                           
//            SPACE=(800,(&WSPC,&WSPC))                                
//SYSIN    DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)                          
//SYSUT1   DD SPACE=(800,(&WSPC,&WSPC),,,ROUND)                        
//SYSUT2   DD SPACE=(800,(&WSPC,&WSPC),,,ROUND)                        
//SYSUT3   DD SPACE=(800,(&WSPC,&WSPC),,,ROUND)                        
//SYSUT4   DD SPACE=(800,(&WSPC,&WSPC),,,ROUND)                        
//SYSUT5   DD SPACE=(800,(&WSPC,&WSPC),,,ROUND)                        
//SYSUT6   DD SPACE=(800,(&WSPC,&WSPC),,,ROUND)                        
//SYSUT7   DD SPACE=(800,(&WSPC,&WSPC),,,ROUND)                        
//******************************************************************** 
//*        LINKEDIT IF THE PRECOMPILE AND COMPILE                    * 
//*        RETURN CODES ARE 4 OR LESS.                               * 
//******************************************************************** 
//LKED     EXEC PGM=IEWL,                                              
//         COND=((4,LT,PC),(4,LT,COB))                                 
//SYSLIB   DD DSN=&LIBPRFX..SCEELKED,DISP=SHR                          
//         DD DISP=SHR,DSN=DSN710.SDSNLOAD                             
//SYSLIN   DD DSN=&&LOADSET,DISP=(OLD,DELETE)                          
//         DD DDNAME=SYSIN                                             
//SYSLMOD  DD DSN=&LOADLIB(&LMOD),DISP=SHR                             
//SYSPRINT DD SYSOUT=*                                                 
//SYSUT1   DD SPACE=(1024,(50,50))                                     

 

Bind jcl:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//******************************************************               
//JOBLIB   DD DISP=SHR,DSN=DSN710.SDSNEXIT                             
//         DD DISP=SHR,DSN=DSN710.SDSNLOAD                             
//         DD DISP=SHR,DSN=CEE.SCEERUN                                 
//BINDPLAN EXEC PGM=IKJEFT01,DYNAMNBR=20                               
//DBRMLIB  DD DSN=IND220.SREE.DBRMLIB,DISP=SHR                         
//SYSTSPRT DD SYSOUT=*                                                 
//SYSTSPRT DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//******************************************************               
//*STATEMENTS FOR PROGRAM DB2VSAM IN OZASUP.SUP.SOURCE                 
//SYSTSIN DD *                                                         
 DSN SYSTEM(DSN)                                                       
 BIND PLAN(INSPGM) MEMBER(INSPGM) ACT(REP)-                            
      ISOLATION(CS)                                                    
 END                                                                   
/*                                                                     
//                                                                     
                                                                       

COBOL + DB2 execution JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//******************************************************               
//JOBLIB   DD DISP=SHR,DSN=DSN710.SDSNEXIT                             
//         DD DISP=SHR,DSN=DSN710.SDSNLOAD                             
//         DD DISP=SHR,DSN=CEE.SCEERUN                                 
//BINDPLAN EXEC PGM=IKJEFT01,DYNAMNBR=20                               
//DBRMLIB  DD DSN=IND220.SREE.DBRMLIB,DISP=SHR                         
//SYSTSPRT DD SYSOUT=*                                                 
//SYSTSPRT DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//******************************************************               
//*STATEMENTS FOR PROGRAM DB2VSAM IN OZASUP.SUP.SOURCE                 
//SYSTSIN DD *                                                         
 DSN SYSTEM(DSN)                                                       
 RUN PROGRAM(INSPGM) –
     PLAN(INSPGM) –
     LIB(‘IND220.INDUS.LOADLIB’)
 END                                                                   
/*                                                                     
//                                                                


PROCEDURES:

Instream procedures:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************            
//INPROC   PROC                                                  
//STEP1    EXEC PGM=DISPGM                                       
//STEPLIB  DD DSN=IND220.INDUS.LOADLIB,DISP=SHR                  
//SYSPRINT DD SYSOUT=*                                           
//SYSOUT   DD SYSOUT=*                                           
//                PEND                                                  
//STEP2    EXEC PROC=INPROC                                      
//STEP3    EXEC INPROC                                           
//                                                                

Cataloged procedures:
Cataloged proc is the member in a proc library.

IND220.INDUS.PROCLIB(CATPROC)

//CATPROC  PROC                                 
//STEP1    EXEC PGM=DISPGM                      
//STEPLIB  DD DSN=IND220.INDUS.LOADLIB,DISP=SHR 
//SYSPRINT DD SYSOUT=*                          
//SYSOUT   DD SYSOUT=*                          

 

Invoking JCL:

//IND220SO JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),                          
//             NOTIFY=&SYSUID                
//***************************************************          
//PROCLIB  JCLLIB ORDER=(IND220.INDUS.PROCLIB)                 
//STEP2    EXEC PROC=CATPROC                                   
//SYSPRINT DD SYSOUT=*                                         
//SYSOUT   DD SYSOUT=*                                         
//                                                             

 

Parameters overriding and symbolic parameters:

//IND220VI JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),  
//             NOTIFY=&SYSUID                                        
//PROC1    PROC                                                  
//STEP1    EXEC PGM=SEQWRI                                       
//STEPLIB  DD DSN=IND220.INDUS.LOADLIB,DISP=SHR                  
//SYSPRINT DD SYSOUT=*                                           
//SYSOUT   DD SYSOUT=*                                           
//STUDD    DD DSN=IND220.INDUS.STUDENT.PSFILE.TST,               
//            DISP=(NEW,CATLG,DELETE),                           
//            SPACE=(&UNI,(&PRI,&SEC),RLSE),                     
//            UNIT=SYSDA,                                        
//            DCB=(DSORG=PS,RECFM=FB,LRECL=44,BLKSIZE=440)       
//SYSIN    DD DSN=IND220.INDUS.CTLCARDS(CTL90),DISP=SHR          
//         PEND                                                  
//STEP2    EXEC PROC1,UNI=TRK,PRI=1,SEC=1                        
//STEP1.STUDD DD DSN=IND220.INDUS.STUDENT.PSFILE.TST5            
//                                                               

 

Parameters overriding, symbolic parameters and the SET statement:

//IND220VI JOB (123),'INDUS',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), 
//              NOTIFY=&SYSUID                                       
//         SET UNI=TRK,                                         
//         PRI=1,                                           
//         SEC=1                                            
//PROCLIB  JCLLIB ORDER=(IND220.INDUS.PROCLIB)                  
//STEP2    EXEC CATOVER                                         
//SYSPRINT DD SYSOUT=*                                          
//SYSOUT   DD SYSOUT=*                                          
//STEP1.STUDD DD DSN=IND220.INDUS.STUDENT.PSFILE.TST6           
//                                                              

 

cataloged procedure:

//CATOVER  PROC                                              
//STEP1    EXEC PGM=SEQWRI                                   
//STEPLIB  DD DSN=IND220.INDUS.LOADLIB,DISP=SHR              
//SYSPRINT DD SYSOUT=*                                       
//SYSOUT   DD SYSOUT=*                                       
//STUDD    DD DSN=IND220.INDUS.STUDENT.PSFILE.TST,           
//            DISP=(NEW,CATLG,DELETE),                       
//            SPACE=(&UNI,(&PRI,&SEC),RLSE),                 
//            UNIT=SYSDA,                                    
//            DCB=(DSORG=PS,RECFM=FB,LRECL=44,BLKSIZE=440)   
//SYSIN    DD DSN=IND220.INDUS.CTLCARDS(CTL90),DISP=SHR  
 
 
                                                                                                                                                                       http://www.mainframesguru.com
 
Comments