IMSCOBOL procedure

The IMSCOBOL procedure is a two-step compile and bind procedure for IMS applications that are written in COBOL.

Parameters

The following parameters are valid for the IMSCOBOL procedure. See Parameter descriptions for IMS procedures for descriptions.

  • MBR=
  • SOUT=
  • SYS2=
  • NODE1=
  • NODE2=

DD statements

The following DD statements are valid for the IMSCOBOL procedure. See DD statement descriptions for descriptions.

  • DFSRESLB DD
  • SYSLIB DD
  • SYSLIN DD
  • SYSLMOD DD
  • SYSPRINT DD
  • SYSUTn DD

JCL

The JCL in Sample compile and bind procedure for IMS COBOL assumes that:
  • You supply source data from SYSIN.
  • The output class is A.
  • MBR=NAME, where NAME is the load module name for the program.
  • SYSDA is a generic device name.

Sample compile and bind procedure for IMS COBOL

//       PROC MBR=TEMPNAME,PAGES=60,SYS2=,
//            LNGPRFX=IGY,
//            LIBPRFX=CEE,
//            SOUT=A
//C      EXEC PGM=IGYCRCTL,REGION=4M,
//        PARM='SIZE(832K),BUF(10K),LINECOUNT(50)'
//STEPLIB  DD DSN=&LNGPRFX..SIGYCOMP,
//         DISP=SHR
//SYSLIN   DD DSN=&&LIN,DISP=(MOD,PASS),UNIT=SYSDA,
//         DCB=(IMS.&SYS2.PROCLIB),
//         SPACE=(3520,(40,10),RLSE,,ROUND)
//SYSPRINT DD SYSOUT=&SOUT,
//         DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA),
//         SPACE=(605,(&PAGES.0,&PAGES),RLSE,,ROUND)
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//L      EXEC PGM=IEWL,REGION=4M,
//            PARM='XREF,LET,LIST',
//            COND=(8,LT,C)
//SYSLIB   DD DSN=&LIBPRFX..SCEELKED,
//         DISP=SHR
//SDFSRESL DD DSN=IMS.&SYS2.SDFSRESL,DISP=SHR
//SYSLIN   DD DSN=&&LIN,DISP=(OLD,DELETE),
//         VOL=REF=*.C.SYSLIN
//         DD DISP=SHR,
//         DSN=IMS.&SYS2.PROCLIB(CBLTDLI)
//         DD DDNAME=SYSIN
//SYSLMOD  DD DISP=SHR,
//         DSN=IMS.&SYS2.PGMLIB(&MBR)
//SYSPRINT DD SYSOUT=&SOUT,
//         DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605),
//         SPACE=(605,(&PAGES.0,&PAGES),RLSE,,ROUND)
//SYSUT1   DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),
//         DISP=(,DELETE),
//         SPACE=(3520,(100,10),RLSE,,ROUND)