IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
02 A PIC 9(2).
02 B PIC 9(2)
PROCEDURE DIVISION.
P1.
DISPLAY "ENTER THE TWO NUMBER".
ACCEPT A.
ACCEPT B.
IF A IS > B
DISPLAY "A IS LARGEST", A
ELSE
DISPLAY "B IS LARGEST", B.
STOP RUN.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
02 A PIC 9(2).
02 B PIC 9(2)
PROCEDURE DIVISION.
P1.
DISPLAY "ENTER THE TWO NUMBER".
ACCEPT A.
ACCEPT B.
IF A IS > B
DISPLAY "A IS LARGEST", A
ELSE
DISPLAY "B IS LARGEST", B.
STOP RUN.