COBAL Find the mistake of the following code and execute the code and show the o

Question

COBAL Find the mistake of the following code and execute the code and show the output, me some explanation ?? IDENTIFICATION DIVISION. PROGRAM-ID. MIS-DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-W PIC 9(6) VALUE 5. 01 WS-X PIC 9(4) VALUE 5. 01 WS-Y PIC 9(7) VALUE 30. 01 WS-Z PIC 9(5) VALUE 20. 01 WS-A PIC 9(4) VALUE 7. 01 WS-B PIC 9(5) VALUE 8. 01 WS-D PIC 9(7) VALUE 50. 01 WS-E PIC 9(8) VALUE 10. PROCEDURE DIVISION. SUBTRACT WS-W WS-X FROM WS-Y WS-Z. SUBTRACT WS-A WS-B WS-C TO WS-D AS WS-E. DISPLAY "WS-W: " WS-W DISPLAY "WS-X: " WS-X DISPLAY "WS-Y: " WS-Y DISPLAY "WS-Z: " WS-Z DISPLAY "WS-A: " WS-A DISPLAY "WS-B: " WS-B DISPLAY "WS-C: " WS-C DISPLAY "WS-D: " WS-D DISPLAY "WS-E: " WS-E STOP RUN.

Explanation / Answer

Executable code:

IDENTIFICATION DIVISION.

PROGRAM-ID. HELLO.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-W PIC 9(6) VALUE 5.

01 WS-X PIC 9(4) VALUE 5.

01 WS-Y PIC 9(7) VALUE 30.

01 WS-Z PIC 9(5) VALUE 20.

01 WS-A PIC 9(4) VALUE 7.

01 WS-B PIC 9(5) VALUE 8.

01 WS-C PIC 9(6) VALUE 19.

01 WS-D PIC 9(7) VALUE 50.

01 WS-E PIC 9(8) VALUE 10.

PROCEDURE DIVISION.

SUBTRACT WS-W WS-X FROM WS-Y WS-Z.

SUBTRACT WS-A WS-B WS-C FROM WS-D GIVING WS-E.

DISPLAY "WS-W     : " WS-W

DISPLAY "WS-X     : " WS-X

DISPLAY "WS-Y     : " WS-Y

DISPLAY "WS-Z     : " WS-Z

DISPLAY "WS-A     : " WS-A

DISPLAY "WS-B     : " WS-B

DISPLAY "WS-C     : " WS-C

DISPLAY "WS-D     : " WS-D

DISPLAY "WS-E     : " WS-E

STOP RUN.

OUTPUT:

WS-W: 000005

WS-X : 0005

WS-Y : 0000020

WS-Z : 00010

WS-A : 0007

WS-B : 00008

WS-C : 000019

WS-D : 0000050

WS-E : 00000016

Related Questions

Navigate

• Browse (All)
• Browse C
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.