HP 3000 Manuals

HP COBOL II/XL Programmer's Guide

Internal Names 

An internal name is a compiler-generated name that is not recognized
outside the program.  The compiler generates an internal name for each:

   *   program-id of a nested program.
   *   ENTRY statement literal of a nested program.
   *   Nested program name that a CALL or CANCEL statement specifies.
   *   Nested procedure for USE GLOBAL, ALTERable GOTO, and CALL or
       CANCEL identifier.

Because nested programs cannot be called by programs outside the
outermost program containing them, you only need to know their internal
names when you are in DEBUG, debugging them or a program containing them
(see Chapter 7  for their format).

The internal names of outermost programs are of the same format as
external names.

Example 

The following shows an outer program containing a nested program that
itself contains a nested program.  The example illustrates the external
name of the outer program and the internal names of the nested program.

     IDENTIFICATION DIVISION.
     PROGRAM-ID. ANCESTOR-PROG.     The external name is ancestor_prog. 

         :                           
     IDENTIFICATION DIVISION.
     PROGRAM-ID. CHILD-PROG.     The internal name is ancestor_prog$003$child_prog. 

         :                           
     IDENTIFICATION DIVISION.
     PROGRAM-ID. GRANDCHILD-PROG.     The internal name is 

         :                 ancestor_prog$004$grandchild_prog. 

     END PROGRAM GRANDCHILD-PROG.
     END PROGRAM CHILD-PROG.
     END PROGRAM ANCESTOR-PROG.

MPE/iX 5.0 Documentation