The following are the types of JCL's used to compile Cobol programs available in Mainframe systems:

•        COBOL + DLI

All DLI programs run as subroutine to IMS.The IMS program name is DFSRRC00.It runs batch as well as online program as a subroutine. So we have to pass the program name,PSB name thru the PARM field

 //Step01 exec pgm=DFSRRC00,

                            Parm=(DL1,Pgm name,PSB

                                          name, ,,,,,,,,,,,N)  

                                                                     DBRC  IND 

  All DLI programs run as subroutine to IMS.The IMS program name is DFSRRC00.It runs batch as well as online program as a subroutine. So we have to pass the program name,PSB name thru the PARM field

 //Step01 exec pgm=DFSRRC00,

                            Parm=(DL1,Pgm name,PSB

                                       name, ,,,,,,,,,,,N)  

                                                                     DBRC  IND 

  BACKOUT STEP:

     To recover the DB’s to a point  before pgm was initiated  or to a checkpoint or sync point.

 //BACKOUT EXEC PGM=DFSRRC00,

 // PARM='DLI,DFSBBO00,<PSB-name>,,,,,,,,,,,<DBRC-Value>',

 // COND=((0,EQ,<step-name where ims-pgm is executed>),EVEN)

DFSBBO00  – Utility used  for doing back out

PSB NAME  -   The PSB Name of the Program whose errors are to be backed out.

IMSLOGR     - Defines the input IMS log dataset. This will contain the dataset used in IEFRDER in the previous step  

•         COBOL + DLI + DB2

//Step01 dd dsn=DFSRRC00,

                            Parm=(DL1,DSNMTV01,PSB name,

                                                                                ,,,,,,,,,,,N)

Pass the region,pgm name and plan name thru the  control card. 

//DDITV02  DD DSN=&CTLCARDS(IYM275D),DISP=SHR 

DB2P,SYS1,DSNMIN10,,A,-,,IYMBTPL,IYM275

END    

Give the DB2 libraries DBW2.SDSNLOAD,SDSNEXIT.

  Eg: DSNMIN10 will be in SDSN LOAD

•        COBOL + BMP

// EXEC PGM=DFSRRC00,

// PARM=(BMP,IMM0270,IMM0270,,,W10028 ,,,

 &CHKPTID,,,,,&ENV1, AGNALL,&DB2,,,,5)

Last chkpt taken DB Rgn        DB2 Rgn

If first run gv blank       

•        PSB must be promoted to the region

Onsite will generate the ACB and whenever PSB is promoted to region ACB switching has to be done .This is achieved by mailing to operation.

•        If the pgm is a chkpt restart the checkpoint id taken from the job have to be given in the CHKPTID parameter.

•         For a BMP program ensure the IMS ONLINE is given as ‘Y’ while compilation.

•        COBOL + BMP + DB2

The parm are same like the COBOL + BMP

RTT entry need to be set up.RTT is Resource Translation Table.The entry is set up by requesting the wellpoint operators.Onsite will be taking care of it in most of the cases.

If RTT entry is not present SQL will throw -922 error.

//PROCLIB  DD DSN=IMSP.PROCLIB,DISP=SHR

//DFSESL   DD DSN=&RESLIB,DISP=SHR     

//     DD DSN=&DB2..SDSNLOAD,DISP=SHR