Hopefully, this tells the whole story...
 ID DIVISION.
 PROGRAM-ID. DBUGDEMO.
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 SOURCE-COMPUTER. HP3000 WITH DEBUGGING MODE.
 SPECIAL-NAMES.
     SW15 IS PARM1, ON STATUS IS DEBUG-ACTIVE;
     .
 PROCEDURE DIVISION.
 DECLARATIVES.
 GENERAL-DEBUGGING SECTION.
     USE FOR DEBUGGING ON ALL PROCEDURES.
 REQD-SILLY-PARAG-NAME.
     DISPLAY DEBUG-LINE " " DEBUG-NAME " " DEBUG-CONTENTS
     .
 END DECLARATIVES.
 THE-REAL-STUFF SECTION.
D    DISPLAY "Pgm was compiled with DEBUGGING MODE specified."
D    IF DEBUG-ACTIVE
D        DISPLAY "Pgm was compiled w/ DEBUGGING MODE"
D                " AND run with PARM=1"
D    END-IF
     DISPLAY "NORMAL FIRST LINE OF CODE..."
     STOP RUN.

To answer your question specifically, USE the D-in-7 option and remove the
WITH DEBUGGING clause to eliminate all the D-in-7 code at compile time.

K Tracy Pierce, Systems Programmer
Golden Gate Bridge, Hwy & Trnsp Dist
PO Box 9000, Presidio Station
San Francisco, CA  94129-0601
mailto:[log in to unmask]
415-923-2266











> -----Original Message-----
> From: David Burney [mailto:[log in to unmask]]
> Sent: Monday, August 21, 2000 7:42 AM
> To: [log in to unmask]
> Subject: 'with debugging mode' overhead
>
>
> Greetings listmembers and listmemberettes.
>
> I've a question concerning the use of 'with debugging
> mode.' in Cobol code. I use this occasionally in my
> code to determine logic flow and variable values at
> specific points in the code.  Yet, I do not use the
> "D" indicator in column 7.  My question is, when I
> compile the code and run the object without using the
> ';parm=1' parameter to invoke the debug process, is
> there any performance loss ?  In other words, is leaving
> the 'with debugging mode' code in the program, even
> though I don't invoke it with ';parm=1' more system
> intensive ?
>
> As always, TIA.
>
> --------------------------------------------------------------
> --------------
> -------
> David Burney                                          dburney @
> summitracing.com
> Summit Racing Equipment
> http://www.summitracing.com
>                                     -----------
> "There's no such thing as a bad day when there's a doorknob on the
>   the inside of the door."              - Lieutenant Paul
> Galanti      P.O.W.
>                         -----------
>       All opinions expressed herein are my own and reflect,
>                   in no way, those of my employer.
>