MVSFORUMS.com

[tommy123]

Hai,


Can anyone tell me the difference in the two ways of programming first one i am not using Debugging mode whereas second one i am using Debugging mode but i am getting the same output.Then what is the use of debugging mode when both cases i am getting the same result.



IDENTIFICATION DIVISION.
PROGRAM-ID. TESTPGM.
AUTHOR. ABC.
DATE-WRITTEN. 05/06/05.
DATE-COMPILED. 05/06/05.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
*SOURCE-COMPUTER. IBM-390 WITH DEBUGGING MODE.
SOURCE-COMPUTER. IBM-390.
OBJECT-COMPUTER. IBM-390.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FILLER PIC X(35)
VALUE "TESTPGM WORKING STORAGE AREA BEGINS".
PROCEDURE DIVISION.
0000-MAIN.
DISPLAY "ENTERING TESTPGM ".
DISPLAY "HAI".

DISPLAY "EXITING TESTPGM ".
0000-EXIT.
EXIT.
STOP RUN.



OUTPUT
------


ENTERING TESTPGM
HAI
EXITING TESTPGM






IDENTIFICATION DIVISION.
PROGRAM-ID. TESTPGM.
AUTHOR. ABC.
DATE-WRITTEN. 05/06/05.
DATE-COMPILED. 05/06/05.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-390 WITH DEBUGGING MODE.
*SOURCE-COMPUTER. IBM-390.
OBJECT-COMPUTER. IBM-390.
INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FILLER PIC X(35)
VALUE "TESTPGM WORKING STORAGE AREA BEGINS".
PROCEDURE DIVISION.
0000-MAIN.
D DISPLAY "ENTERING TESTPGM ".
DISPLAY "HAI".

D DISPLAY "EXITING TESTPGM ".
0000-EXIT.
EXIT.
STOP RUN.



OUTPUT
------


ENTERING TESTPGM
HAI
EXITING TESTPGM



Can anyone please help me to modify the program to understand Debugging mode "D" quite well.

[kolusu]

tommy123,

Check the 4th topic in the below link

http://www.mvsforums.com/helpboards/viewtopic.php?t=3208&highlight=column

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu