IDENTIFICATION DIVISION.
       PROGRAM-ID. BIGGEST-AMONG-THREE-NUMBERS.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  NUM1   PIC S9(3).
       01  NUM2   PIC S9(3).
       01  NUM3   PIC S9(3).
       01  BIGNUM PIC -ZZ9.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY (01 01) ERASE.
           DISPLAY (02 05) "Enter the First Number  : ".
           ACCEPT (02 31) NUM1.
           DISPLAY (04 05) "Enter the Second Number : ".
           ACCEPT (04 31) NUM2.
           DISPLAY (06 05) "Enter the Third Number  : ".
           ACCEPT (06 31) NUM3.
           IF NUM1 > NUM2
              IF NUM1 > NUM3
                 MOVE NUM1 TO BIGNUM
              ELSE
                 MOVE NUM3 TO BIGNUM
           ELSE
              IF NUM2 > NUM3
                 MOVE NUM2 TO BIGNUM
              ELSE
                 MOVE NUM3 TO BIGNUM.
           DISPLAY (08 05) "The Biggest Number : " BIGNUM.
           DISPLAY (09 05) "=============================".
           STOP RUN.