IDENTIFICATION   DIVISION.
       PROGRAM-ID.      ACCEPTTEST.
      * Test "ACCEPT"-behavior from different compiler
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
         01 X-1 PIC 99    VALUE 99.
         01 X-2 PIC 99V9  VALUE 99.9.
         01 X-3 PIC 99V9  VALUE 99.9.
       PROCEDURE        DIVISION.
       FIRST-ACCEPT.
           DISPLAY SPACES.
           DISPLAY "PLEASE GIVE IN VALUE  123  in X-1  (PIC 99) : ".
           ACCEPT X-1.
           DISPLAY "VALUE OF X-1: /" X-1 "/".
      *    The question is  : VALUE  = "23" ?
       SECOND-ACCEPT.
           DISPLAY SPACES.
           DISPLAY "PLEASE GIVE IN VALUE  1  in X-2  (PIC 99V9) : ".
           ACCEPT X-2.
           DISPLAY "VALUE OF X-2: /" X-2 "/".
      *    The question is : VALUE  = "1" ?

       THIRD-ACCEPT.
           DISPLAY SPACES.
           DISPLAY "PLEASE GIVE IN VALUE  123.4  in X-3  (PIC 99V9) : ".
           ACCEPT X-3.
           DISPLAY "VALUE OF X-3: /" X-3 "/".
      *    The question is : VALUE  = "123.4" ?

       STOP-TESTS.
           STOP RUN.