COBOL Manual for TNS and TNS/R Programs

Run-Time Diagnostic Messages
HP COBOL Manual for TNS and TNS/R Programs—522555-006
48-20
Message List
Recovery.
•
COBOL85 compiler
In the CRE, the program might have written data in the upper 64 KB of the user
data segment. The upper 64 KB are reserved for CRE and run-time library data.
Check the program’s logic. Use the selected debugger to help isolate the problem
or consult your system administrator.
In the non-CRE environment, one of these things might have happened:
°
The pointer at location G[0] is not %100000.
°
The value of the 2 bytes at %100000 is not %76.
°
The value of the 2 bytes at %100027 is not zero.
To correct the problem, initialize uninitialized pointers.
•
NMCOBOL compiler
The MCB is not at a fixed location. To find it, use the noft command EXTSYMTBL.
Then use the selected debugger to help isolate the problem. See Example 48-4.
12 (none)
Cause. The CRE or run-time library detected a logic error within its own domain. For
example, although each data item it is using is valid, the values of the data items are
mutually inconsistent.
Effect. The CRE calls PROCESS_STOP_, specifying the ABEND variant and the text
“Logic error.”
Recovery. The program might have written data in the upper 64 KB of the user data
segment. The upper 64 KB are reserved for CRE and run-time library data. Check the
program’s logic. Use the selected debugger to help isolate the problem or consult your
system administrator.
13 (131)
Cause. The pointer at location G[0] of the program’s user data segment (for TNS
programs) or symbolic location _MCB (for native programs) to its primary data
structure—the Master Control Block (MCB)—does not point to the MCB. Both the CRE
and run-time libraries can report this error.
Effect. The CRE attempts to restore the MCB pointer and to write a message to the
standard log file; however, because its environment might be corrupted, the CRE might
not be able to log a message. In that case, it calls PROCESS_STOP_, specifying the
ABEND variant and the text “Corrupted Environment.”
Logic error
MCB pointer corrupt