       IDENTIFICATION DIVISION.
       PROGRAM-ID. ComputeSizeError.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(4) VALUE 9999.
       01 B PIC 9(2) VALUE 2.
       01 C PIC 9(3).
       PROCEDURE DIVISION.
           COMPUTE C = A * B
               ON SIZE ERROR DISPLAY "OVF"
               NOT ON SIZE ERROR DISPLAY "OK"
           END-COMPUTE
           STOP RUN.
