DB2 graphic  QMF Version 8

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 QMF810.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 z/OS

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='QMF810.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=QMF810.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 z/OS

When QMF is installed, the QMF edit exit program is installed with a program language of Assembler. 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).


Go to the previous page Go to the next page

Downloads | Library | Support | Support Policy | Terms of use | Feedback
Copyright IBM Corporation 1982,2004 Copyright IBM Corporation 1982, 2004
timestamp Last updated: March, 2004