How about a LINKAGE SECTION to access the parm //STEPNAME EXEC PGM=program,PARM='' or //STEPNAME EXEC PGM=program,PARM='DEBUG'
Inside the program, LINKAGE SECTION. 01 PARM-ALL. 05 PARM-LENGTH PIC S9(4) COMP. 05 PARM-DATA. 10 PARM-BYTE PIC X OCCURS 0 TO 100 DEPENDING ON PARM-LENGTH. PROCEDURE DIVISION. IF PARM-LENGTH > 4 AND PARM-DATA = 'DEBUG' DISPLAY 'PARA xxxx Varialble = ' Variable. END-IF. You have the overhead of the Ifs every time, but can rerun with a different parm todo your debugging. Or comment out the with debugging mode to take the code out. On Mon, Jun 4, 2012 at 12:11 PM, Farley, Peter x23353 <peter.far...@broadridge.com> wrote: > The subject is the question. Obviously I can insert a WORKING-STORAGE switch > that is off by default and a "D"ebugging line in the PROCEDURE division to > turn "on" that switch when "WITH DEBUGGING" is in effect, but this seems > clumsy to me. > > If there is another way, I'd appreciate any info you can provide. > > Peter > > > This message and any attachments are intended only for the use of the > addressee and may contain information that is privileged and confidential. If > the reader of the message is not the intended recipient or an authorized > representative of the intended recipient, you are hereby notified that any > dissemination of this communication is strictly prohibited. If you have > received this communication in error, please notify us immediately by e-mail > and delete the message and any attachments from your system. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
