COBOL Manual for TNS and TNS/R Programs

Migrating TNS Programs to Native Programs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
33-14
Removal Required
•
USE DEBUGGING Statement
The 1985 COBOL standard classifies the USE DEBUGGING statement as
obsolete, so you are advised not to use it even in TNS HP COBOL programs. The
NMCOBOL and ECOBOL compilers do not recognize the USE DEBUGGING
statement, and the COBOL85 compiler no longer recognizes the names of the
debug items, which are:
°
DEBUG-CONTENTS
°
DEBUG-ITEM
°
DEBUG-LINE
°
DEBUG-NAME
°
DEBUG-SUB-1
°
DEBUG-SUB-2
°
DEBUG-SUB-3
•
GLOBAL Keyword in USE AFTER EXCEPTION Statement in Declaratives
Portion
Like the COBOL85 compiler, the NMCOBOL and ECOBOL compilers allow the
GLOBAL keyword in USE AFTER EXCEPTION in the Declaratives Portion;
however, if the GLOBAL keyword appears in that context and a nested program
implicitly references the declarative by means of an I/O statement, the NMCOBOL
or ECOBOL compiler issues an error message.
If your TNS program has GLOBAL in a USE AFTER EXCEPTION in the
Declaratives Portion—that is, if it has a global declarative exception procedure—
duplicate the global declarative exception procedure in each nested program. This
might require that you add the GLOBAL clause to each data item that the global
declarative exception procedure uses, so that the copy in the nested program
references it correctly.
Remove any references to these TNS libraries, which NMCOBOL and ECOBOL
compilers cannot use and do not need (see Native SRLs (for TNS/R) or DLLs (for
TNS/E) are consulted automatically):
•
CBL85UTL
•
COBOLLIB
•
CLULIB
Make these substitutions:
Replace ...
With ...
TNS/R TNS/E
COBOLEX0 NMCOBEX0 ECOBEX0
COBOLEX1 NMCOBEX1 ECOBEX1
COBOLEXT NMCOBEXT ECOBEXT