COBOL Manual for TNS and TNS/R Programs

HP COBOL CRE Support

HP COBOL Manual for TNS and TNS/R Programs—522555-006

18-7

CBL85UTL Routines

Every CBL85UTL routine has a non-CRE version and a CRE version (except one,

which is unnecessary in the CRE). The CBL85UTL file is for the COBOL85 compiler.

Its CRE routines are also in the ZCOBSRL file, which is for the NMCOBOL compiler.

A non-CRE HP COBOL program can call only the non-CRE routines, but a TNS

HP COBOL program that runs in the CRE can call any routine. If a TNS HP COBOL

program that runs in the CRE calls a non-CRE routine, it actually calls the

corresponding CRE routine indirectly. If a CRE HP COBOL program calls

COBOL^ARMTRAP, it is ignored. A native HP COBOL program can only call the native

routines in ZCOBSRL.

Corresponding non-CRE and CRE routines have the same parameters, with this

exception: COBOL85^COMPLETION has the parameter text-length, but

COBOL_COMPLETION_ does not (the CRE gets the text length from the specified text

instead).

For more information on the routines listed in Table 18-2, see CBL85UTL and

ZCOBSRL Routines.

Table 18-2. Old and New Utility Routine Names

COBOL-Environment Routine Name

CRE Routine Name

COBOL85^ARMTRAP

No equivalent (unnecessary)

COBOL85^COMPLETION COBOL_COMPLETION_

None COBOL_CONTROL_

COBOL85^RETURN^SORT^ERRORS COBOL_RETURN_SORT_ERRORS_

COBOL85^REWIND^SEQUENTIAL COBOL_REWIND_SEQUENTIAL_

COBOL85^SET^SORT^PARAM^TEXT COBOL_SET_SORT_PARAM_TEXT_

COBOL85^SET^SORT^PARAM^VALUE COBOL_SET_SORT_PARAM_VALUE_

None COBOL_SETMODE_

COBOL85^SPECIAL^OPEN COBOL_SPECIAL_OPEN_

1. These routines are only in CBL85UTL, not in ZCOBSRL.

2. These routines are in both CBL85UTL and ZCOBSRL.

3. These routines are not in ZCOBSRL. Using them causes errors.