COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-286
USE DEBUGGING
Before the USE statement is executed, DEBUG-ITEM is filled with spaces.
Immediately before the debugging section obtains control, DEBUG-ITEM is updated:
DEBUG-LINE Contains the source line number where the procedure-name
was called
DEBUG-NAME Contains the first 30 characters of the procedure-name
If it is a paragraph-name, any section-name qualifier is
reported in DEBUG-ITEM.
DEBUG-CONTENTS Contains a nonnumeric string varying in size and value.
Depending on the situation when it is updated, it contains
one of:
•
START PROGRAM
When the first procedure in the program calls USE
•
A procedure-name
When an ALTER statement specifies that procedure as
a destination
•
Spaces
When a GO TO statement specifies the procedure
•
PERFORM LOOP
When the procedure is in a PERFORM loop
•
SORT INPUT
When the procedure is in a SORT input procedure
•
SORT OUTPUT
When the procedure is in a SORT output procedure
•
USE PROCEDURE
When the procedure is in a USE procedure section
•
FALL THROUGH
When the procedure is executed as a result of falling
through from the previous procedure