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

COBAL FIND THE MISTAKE IN THE CODE AND THEN EXCECUTE THE COD EAND FIND THE OUTPUT ? IDENTIFICATION DIVISION. PROGRAM-ID. SAII. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-D PIC 9(1) VALUE 65. 01 WS-E PIC 8(3) VALUE 45. 01 WS-F PIC 9(2) VALUE 34. PROCEDURE DIVISION. A1 00-FIRST-PARA. IF WS-D IS LESS THAN WS-E AND WS-D-WS-F THEN DISPLAY \'Both condition OK\' ELSE DISPLAY \'Error\' END-IF.

Solution

Excecutable code:

IDENTIFICATION DIVISION.

PROGRAM-ID. SAII.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-D PIC 9(3) VALUE 65.

01 WS-E PIC 9(3) VALUE 45.

01 WS-F PIC 9(3) VALUE 34.

PROCEDURE DIVISION.

A100-FIRST-PARA.

IF WS-D IS LESS THAN WS-E AND WS-D=WS-F THEN

DISPLAY \'Both condition OK\'

ELSE

DISPLAY \'Error\'

END-IF.

STOP RUN.

OUTPUT: