Comment out to disable.
- The SOURCE-COMPUTER statement should code "WITH DEBUGGING MODE" in the
CONFIGURATION-SECTION of ENVIRONMENT DIVISION to enable the debugging line.
On Sun, Dec 31, 2023 at 5:46 PM Farley, Peter <
0000031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:
> I have a little mystery concerning debugging lines ("D" in column 7) in
> COBOL subroutines compiled in the same input file as the main program.
> Sample output and code are pasted below.
>
>
>
> The execution JCL for this sample program includes a CEEOPTS DD with the
> LE "DEBUG" option set so debugging lines SHOULD display on SYSOUT. In my
> little test, only the debugging line in the main program displays on SYSOUT.
>
>
>
> Q1: Can anyone tell me why the debugging line in the subroutine does not
> execute at run time?
>
> Q2: Is there any way I can adjust the code or the compile process to cause
> the subroutine debugging line to execute at run time?
>
>
>
> Peter
>
>
>
> Sample SYSOUT output:
>
>
>
> DBGSAMPL I=+000000003,J=+000000004,K=+000000002
>
>
>
> Sample COBOL code compiled as a single SYSIN file to the compiler, using
> options 'AR(EX),DS(S),NOSEQ':
>
>
>
> IDENTIFICATION DIVISION.
>
> PROGRAM-ID. DBGSAMPL.
>
> ENVIRONMENT DIVISION.
>
> CONFIGURATION SECTION.
>
> SOURCE-COMPUTER.
>
> Z-SYSTEM
>
> WITH DEBUGGING MODE
>
> .
>
> DATA DIVISION.
>
> LOCAL-STORAGE SECTION.
>
> 01 I PIC S9(9) BINARY VALUE 1.
>
> 01 J PIC S9(9) BINARY VALUE 2.
>
> 01 K PIC S9(9) BINARY VALUE 3.
>
> PROCEDURE DIVISION.
>
> MAIN-PARAGRAPH.
>
> CALL "SUBSAMP1" USING I, J, K
>
> D DISPLAY "DBGSAMPL I=" I ",J=" J ",K=" K
>
> GOBACK
>
> .
>
> END PROGRAM DBGSAMPL.
>
> IDENTIFICATION DIVISION.
>
> PROGRAM-ID. SUBSAMP1.
>
> ENVIRONMENT DIVISION.
>
> DATA DIVISION.
>
> LINKAGE SECTION.
>
> 01 I1 PIC S9(9) BINARY VALUE 1.
>
> 01 J1 PIC S9(9) BINARY VALUE 2.
>
> 01 K1 PIC S9(9) BINARY VALUE 3.
>
> PROCEDURE DIVISION USING I1, J1, K1.
>
> MAIN-PARAGRAPH.
>
> MOVE K1 TO I1
>
> MOVE J1 TO K1
>
> MOVE 4 TO J1
>
> D DISPLAY "SUBSAMP1 I=" I1 ",J=" J1 ",K=" K1
>
> GOBACK
>
> .
>
> END PROGRAM SUBSAMP1.
>
> --
>
> 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...@listserv.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...@listserv.ua.edu with the message: INFO IBM-MAIN
