Richard, You need to activate the object time switch. Add the following DD statement to your JCL and you will see the debugging stats
//GO.CEEOPTS DD * DEBUG Thanks, Kolusu IBM Mainframe Discussion List <[email protected]> wrote on 04/06/2017 03:35:45 PM: > From: Richard Zierdt <[email protected]> > To: [email protected] > Date: 04/06/2017 03:36 PM > Subject: COBOL Declaratives Use for Debugging On > Sent by: IBM Mainframe Discussion List <[email protected]> > > Enterprise COBOL supposedly supports a paragraph-tracing capability, > by using the SOURCE-COMPUTER . . . WITH DEBUGGING MODE statement > along with Declaratives section / USE FOR DEBUGGING in the > Procedure Division. The COBOL-provided system variable Debug-Name > is supposed to provide the name of the paragraph the program is > running in, essentially providing a trace of the paragraphs that > were executed. > > What I coded is based on the COBOL Programming Guide, Ver 5.1, > SC14-7382-00, page 383, and while the program runs, it does not > produce any expected DISPLAY statements, as coded under DEBUG- > DECLARATIVES-PARAGRAPH. > > Code is below. It's short. > Perhaps the problem is one of incompatible COBOL compile options. I > tried TEST and NOTEST. OPTIMIZE(0) is set. Or perhaps a missing, > but required, DD statement is needed (except then I would have > expected "DD STATEMENT MISSING.") > Or perhaps there's a COBOL installation parameter that disables this > functionality, but I could not find one, if one exists. > > If someone has a working example of this, showing the COBOL syntax > and compile options used, I'd appreciate it. > > Otherwise, it will remain as one of those COBOL Unsolved Mysteries. > > Best - > Richard Zierdt > > // EXEC IGYWCLG > IDENTIFICATION DIVISION. > PROGRAM-ID. COBOLDM. > AUTHOR. Testing COBOL's WITH DEBUGGING MODE capability. > ENVIRONMENT DIVISION. > CONFIGURATION SECTION. > SOURCE-COMPUTER. IBM-370 WITH DEBUGGING MODE. > > DATA DIVISION. > WORKING-STORAGE SECTION. > 01 W Pic 9(9) Value Zero. > 01 Total Pic 9(9) Value 1. > 01 Trace-Message Pic X(30) Value " Trace for Procedure-Name : ". > > PROCEDURE DIVISION. > DECLARATIVES. > DEBUG-DECLARATIVES SECTION. > USE FOR DEBUGGING ON Some-Routine. > DEBUG-DECLARATIVES-PARAGRAPH. > DISPLAY TRACE-MESSAGE, DEBUG-NAME, TOTAL. > END DECLARATIVES. > Main-Program Section. > Perform Paragraph-A > Perform Some-Routine > Perform Some-Routine > Perform Some-Routine > Perform Some-Routine > Perform Paragraph-C > Display 'End of Debug program' > Stop Run. > > Paragraph-A. > add 1 to W. > Some-Routine. > add 3 to Total. > Paragraph-C. > Perform Paragraph-D > add 5 to W. > Paragraph-D. > add 7 to W. > //GO.SYSOUT DD SYSOUT=* DISPLAY commands > //MSGFILE DD SYSOUT=* Language Environment (didn't help) > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
