Library View Topics Framed Contents Revised Topics Previous Topic Next Topic Search Search ResultsPrevious Topic MatchNext Topic Match Notes List Notes Print Download No PDF Handheld DisconnectedHandheld ConnectedHelp

X 8.1.9 READY or RESET TRACE Statement

X The READY or RESET TRACE statement can only appear in the Procedure
X Division, but has no effect on your program. 



 X  ___ Format _____________________________________________________________ 
 X |                                                                        |
 X | >>__ _READY_ __TRACE__._____________________________________________>< |
 X |     |_RESET_|                                                          |
   |                                                                        |
   |________________________________________________________________________|

X You can reproduce the function of READY TRACE by using the USE FOR
X DEBUGGING declarative, DISPLAY statement, and DEBUG-ITEM special register.
X For example: 



 X               .
 X               .
 X      ENVIRONMENT DIVISION.
 X        CONFIGURATION SECTION.
 X        SOURCE-COMPUTER. IBM-390 WITH DEBUGGING MODE.
 X               .
 X      DATA DIVISION.
 X               .
 X        WORKING-STORAGE SECTION.
 X        01 TRACE-SWITCH        PIC 9 VALUE 0.
 X           88  READY-TRACE           VALUE 1.
 X           88  RESET-TRACE           VALUE 0.
 X               .
 X      PROCEDURE DIVISION.
 X        DECLARATIVES.
 X        COBOL-II-DEBUG SECTION.
 X          USE FOR DEBUGGING ON ALL PROCEDURES.
 X        COBOL-II-DEBUG-PARA.
 X          IF READY-TRACE THEN
 X              DISPLAY DEBUG-NAME
 X          END-IF.
 X        END DECLARATIVES.
 X        MAIN-PROCESSING SECTION.
 X               .
 X        PARAGRAPH-3.
 X               .
 X          SET READY-TRACE TO TRUE.
 X        PARAGRAPH-4.
 X               .
 X        PARAGRAPH-6.
 X               .
 X          SET RESET-TRACE TO TRUE.
 X        PARAGRAPH-7.

X where DEBUG-NAME is a field of the DEBUG-ITEM special register that
X displays the procedure-name causing execution of the debugging procedure.
X (In this example, the object program displays the names of procedures
X PARAGRAPH-4 through PARAGRAPH-6 as control reaches each procedure within
X the range.)

X At run time, you must specify the DEBUG run-time option to activate this
X debugging procedure. In this way, you have no need to recompile the
X program to activate or deactivate the debugging declarative.

Previous Topic Next Topic © Copyright IBM Corp. 1991, 1998

IBM Library Server Copyright 1989, 2005 IBM Corporation. All rights reserved.




Return to library:   z/OS | z/OS.e | TPF | z/VSE | z/VM | IBM Hardware | IBM System z Redbooks
Glossary:   IBM terminology
Publications:   How to order publications
Readers:   Download IBM Library Reader | Download IBM Softcopy Reader | Download Adobe® Acrobat® Reader®
Library management:   Download IBM Softcopy Librarian
Contacts:   Contact z/OS

Adobe, the Adobe logo, Acrobat, the Acrobat logo, and Acrobat Reader are registered trademarks of Adobe Systems incorporated.