Translating your COBOL program

Translate your program using the CICS translator for COBOL. When you translate your program, CICS normally supplies the standard procedure and linkage sections. Replace the standard CICS communications area DFHCOMMAREA by providing a structure as specified in the previous linkage section example.

Compiling

QMF edit exit interface control block DXEECSC, located in QMF sample library QMF720.SDSQUSRE, must be available in a macro library during the compile.

Specify COBOL compiler options RENT, RES, and NODYNAM, and run time options NOSTAE and NORTEREUS.

QMF distributes the user edit routine control block DXEECSC, using quotes as literal delimiters. You must use the QUOTE compiler option if you use the DXEECSC control block as distributed by IBM.

Link-editing

You create a new QMF edit exit module DSQUECIC by including your edit exit program DSQUXCTC with the EXEC CICS interface control module DFHECI, located in the CICS module library, as distributed by the CICS product. DFHECI must be the first module in the edit exit module and the entry point must be module DSQUECIC. Be sure to allocate COBOL libraries required for link-edit.

The module DSQUECIC must be executable in 31-bit addressing mode.

Example JCL statements for translating, compiling, and link-editing for CICS on OS/390

The following are example statements for translating, compiling, and link-editing your job for CICS.

//SAMCOBOL JOB ...
//* Add a parameter PROGLIB to procedure DFHEITVL
//*      PROGLIB=&PROGLIB,
//TRNCOMLK EXEC PROC=DFHEITVL,PROGLIB='QMF720.SDSQLOAD',
//      PARM.TRN='QUOTE',
//      PARM.COB='RENT,RES,NODYNAM,OBJECT,LIB,LIST,MAP,QUOTE'
//TRN.SYSIN DD *
      .
      Your program or modified copy of QMF sample DSQUXCTC
      .
/*
//* Provide access to QMF Edit Macro DXEECSC
//COB.SYSLIB DD  DSN=QMF720.SDSQUSRE,DISP=SHR
//LKED.SYSIN  DD  *
    INCLUDE SYSLIB(DFHECI)
    ORDER DFHECI
    ENTRY DSQUECIC
    MODE AMODE(31) RMODE(ANY)
    NAME DSQUECIC(R)
/*                                                           

CICS program definition on OS/390

When QMF is installed, the QMF edit exit program is installed with a program language of Assembly. To use the COBOL edit exit program, you must change the program language of module DSQUECIC to COBOL using the CICS program control table (PCT) macro or resource definition online (RDO).