COBOL

If you use the integrated CICS® translator, the compilation requires the RENT compiler option, so no CBL card needs to be added during translation.

COBOL programs that use a separate translation step are automatically eligible for the ERDSA, for the following reasons:
  • The CBLCARD translator option (the default) causes the required compiler option, RENT, to be included automatically on the CBL statement generated by the CICS translator. If you use the NOCBLCARD translator option, you can specify the RENT option either on the PARM statement of the compilation job step, or by using the COBOL macro IGYCOPT to set installation-defined options.
  • The COBOL compiler automatically generates code that conforms to read-only and 31-bit addressing standards.
  • The CICS EXEC interface module for COBOL (DFHELII) is link-edited with AMODE(31) and RMODE(ANY). Therefore, your program is link-edited as AMODE(31) and RMODE(ANY) automatically when you include the CICS EXEC interface stub. See The CICS-supplied interface modules.
You also need to specify the reentrant attribute to link-edit. The CICS-supplied procedure DFHYITVL has a LNKPARM parameter that specifies a number of link-edit options. To link-edit an ERDSA-eligible program, override this parameter from the calling job, and add RENT to any other options you require. For example:
//COBPROG  JOB 1,user_name,MSGCLASS=A,CLASS=A,NOTIFY=userid
//YITVL    EXEC DFHYITVL,
           .
           (other parameters as necessary)
           .
//         LNKPARM='LIST,XREF,RENT'