Subprograms › Calling COBOL in z/OS Batch

Calling COBOL in z/OS Batch

The following sample z/OS JCL sets the COBOL II runtime option RTEREUS, which improves the performance of COBOL II programs that CA Ideal batch calls and preserves the working storage between calls of the COBOL II subprogram.

//jobname JOB ....
//* -------------------------------------------------------- *
//* JCL TO ASSEMBLE THE COBOL II RUNTIME OPTION MODULE FOR   *
//* USE WITH IDEAL/COBOL II BATCH SUBPROGRAMS.               *
//* ---------------------------------------------------------*
//ASSEMBLE EXEC PGM=IFOX00,PARM='DECK',COND=(0,NE),
 //         REGION=1024K
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
//         DD  DSN=MVSSYS.COB2.V1R4MO.COB2LSRC,DISP=SHR
//SYSUT1   DD  DSN=&&SYSUT1,UNIT=VIO,SPACE=(1700,(600,100))
 //SYSUT2   DD  DSN=&&SYSUT2,UNIT=VIO,SPACE=(1700,(300,50))
 //SYSUT3   DD  DSN=&&SYSUT3,UNIT=VIO,SPACE=(1700,(300,50))
 //SYSPRINT DD  SYSOUT=*,DCB=BLKSIZE=1089
//SYSPUNCH DD  DSN=object.library.name(IGZEOPT),DISP=SHR
//SYSIN DD *
      IGZOPT SYSTYPE=OS,RTEREUS=YES
      END
/*

//jobname JOB ...
//* -------------------------------------------------------- *
//* JCL TO COMPILE & LINK EDIT A COBOL II PROGRAM WHICH IS   *
//* TO BE CALLED BY A CA Ideal BATCH PROGRAM.                 *
//* NOTE THE COBOL II AND LINK-EDIT PARAMETERS AND THE       *
//* LINK-EDIT INCLUDE STATEMENT FOR IGZEOPT (WHICH MUST      *
//* BE ASSEMBLED WITH RTEREUS=YES)                           *
//* -------------------------------------------------------- *
//COB     EXEC PGM=IGYCRCTL,
 //             PARM='APOST,NOOPT,RES,LIB,DATA(24),RENT'
//STEPLIB  DD  DSNAME=MVSSYS.COB2.V1R4M0.COB2COMP,DISP=SHR
//SYSLIB   DD  DSN=program.source.library,DISP=SHR
//SYSLIN   DD  DISP=(,PASS),
 //             UNIT=SYSDA,SPACE=(TRK,(5,5))
 //SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(1,5))
 //SYSUT2   DD  UNIT=SYSDA,SPACE=(CYL,(1,5))
 //SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(1,5))
 //SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,(1,5))
 //SYSUT5   DD  UNIT=SYSDA,SPACE=(CYL,(1,5))
 //SYSUT6   DD  UNIT=SYSDA,SPACE=(CYL,(1,5))
 //SYSUT7   DD  UNIT=SYSDA,SPACE=(CYL,(1,5))
 //COB.SYSIN DD *
INC cobol2pg
/*
//* -------------------------------------------------------- *
//LKED   EXEC  PGM=IEWL,
 //             COND=(5,LT),
 //             PARM='AMODE(24) RMODE(24) MAP'
//SYSPRINT DD  SYSOUT=*
//SYSLIB   DD  DSN=MVSSYS.COB2.V1R4M0.COB2LIB,DISP=SHR
//OBJLIB   DD  DSN=object.library.name,DISP=SHR
//SYSLMOD  DD  DSN=target.library(cobol2pg),DISP=SHR
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))
 //SYSLIN   DD  DDNAME=SYSIN
//SYSIPT DD DSN=*.COB.SYSLIN,DISP=(OLD,PASS)
 //SYSIN DD *
       INCLUDE OBJLIB (IGZEOPT)
       INCLUDE SYSIPT
          NAME cobol2pg(R)