COBAL FIND THE MISTAKE IN THE CODE AND THEN EXCECUTE THE COD

COBAL FIND THE MISTAKE IN THE CODE AND THEN EXCECUTE THE CODE AND FIND THE OUTPUT ? IDENTIFICATION DIVISION. PROGRAM-ID. COMPA. DATA DIVISION. WORKING-STORAGE SECTION. 01 WA-P PIC 4(5). 01 WS-Q PIC 4(6). PROCEDURE DIVISION. A100-FIRST-P. MOVE 25 TO WS-P. MOVE 15 TO WS-Q. IF WS-P IS GREATER THAN WS-Q THEN DISPLAY \'P IS BIGGER THAN Q\' ELSE DISPLAY \'P IS SMALLER THEN Q\' END-IF. STOP RUN.

Solution

Executable code:

IDENTIFICATION DIVISION.

PROGRAM-ID. COMPA.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-P PIC 9(5).

01 WS-Q PIC 9(6).

PROCEDURE DIVISION.

A100-FIRST-P.

MOVE 25 TO WS-P.

MOVE 15 TO WS-Q.

IF WS-P IS GREATER THAN WS-Q THEN

DISPLAY \'P IS BIGGER THAN Q\'

ELSE

DISPLAY \'P IS SMALLER THEN Q\'

END-IF.

STOP RUN.