IDENTIFICATION DIVISION.
       PROGRAM-ID. DivIntoGiving.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9V9 VALUE 0.5.
       01 B PIC 9V9 VALUE 2.3.
       01 Q PIC 9V9.
       PROCEDURE DIVISION.
           DIVIDE A INTO B GIVING Q
           DISPLAY Q
           STOP RUN.