COBOL compilation

The procedure that you use to compile a (non-CICS® TCP/IP) source VS COBOL II CICS program can be used for CICS TCP/IP programs, but it needs some modification.

The modified JCL procedure is shown in Figure 1. The procedure contains 3 steps:

TRN translates the COBOL program
COB compiles the translated COBOL program
LKED link-edits the final module to a LOADLIB

Figure 1. Modified JCL for COBOL compilation

   //CICSRS2C JOB (999,POK),'CICSRS2',NOTIFY=CICSRS2,
   //    CLASS=A,MSGCLASS=T,TIME=1439,
   //    REGION=5000K,MSGLEVEL=(1,1)
   //DFHEITVL PROC SUFFIX=1$,
   //       INDEX='CICS410',
   //       INDEX2='CICS410',
   //       OUTC=*,
   //       REG=2048K,
   //       LNKPARM='LIST,XREF',
   //       WORK=SYSDA
   //TRN    EXEC PGM=DFHECP&SUFFIX,
   //            PARM='COBOL2',
   //            REGION=&REG
   //STEPLIB  DD DSN=&INDEX2..SDFHLOAD,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUTC
   //SYSPUNCH DD DSN=&&SYSCIN,
   //            DISP=(,PASS),UNIT=&WORK,
   //            DCB=BLKSIZE=400,
   //            SPACE=(400,(400,100))
   //*
   //COB    EXEC PGM=IGYCRCTL,REGION=&REG,
   //       PARM='NODYNAM,LIB,OBJECT,RENT,RES,APOST,MAP,XREF'
   //STEPLIB  DD DSN=COBOL.V1R3M2.COB2COMP,DISP=SHR
   //SYSLIB   DD DSN=&INDEX..SDFHCOB,DISP=SHR
   //         DD DSN=&INDEX..SDFHMAC,DISP=SHR
   //         DD DSN=CICSRS2.MAPA.DATA,DISP=SHR
   //SYSPRINT DD SYSOUT=&OUTC
   //SYSIN    DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
   //SYSLIN   DD DSN=&&LOADSET,DISP=(MOD,PASS),
   //            UNIT=&WORK,SPACE=(80,(250,100))
   //SYSUT1   DD UNIT=&WORK,SPACE=(460,(350,100))
   //SYSUT2   DD UNIT=&WORK,SPACE=(460,(350,100))
   //SYSUT3   DD UNIT=&WORK,SPACE=(460,(350,100))
   //SYSUT4   DD UNIT=&WORK,SPACE=(460,(350,100))
   //SYSUT5   DD UNIT=&WORK,SPACE=(460,(350,100))
   //SYSUT6   DD UNIT=&WORK,SPACE=(460,(350,100))
   //SYSUT7   DD UNIT=&WORK,SPACE=(460,(350,100))
   //*                                                                        X
   //*
   //LKED   EXEC PGM=IEWL,REGION=&REG,
   //            PARM='&LNKPARM',COND=(5,LT,COB)
   //SYSLIB   DD DSN=&INDEX2..SDFHLOAD,DISP=SHR
   //         DD DSN=SYS1.COBOL.V1R3M2.COB2CICS,DISP=SHR
   //         DD DSN=COBOL.V1R3M2.COB2LIB,DISP=SHR
   //         DD DSN=hlq.SEZATCP,DISP=SHR
   //SYSLMOD  DD DSN=CICSRS2.CICS410.PGMLIB,DISP=SHR
   //SYSUT1   DD UNIT=&WORK,DCB=BLKSIZE=1024,
   //            SPACE=(1024,(200,20))
   //SYSPRINT DD SYSOUT=&OUTC
   //*                                                                         X
   //SYSLIN   DD DSN=&&LOADSET,DISP=(OLD,DELETE)
   //         DD DDNAME=SYSIN
   //   PEND
   //APPLPROG EXEC DFHEITVL
   //TRN.SYSIN  DD DISP=SHR,DSN=CICSRS2.JCL.DATA(SISSRR1C)
   //LKED.SYSIN DD *
      INCLUDE SYSLIB(EZACICAL)
      NAME SISSRR1C(R)
   /*