JCL Programs- Samples
JCL Programs- Samples
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