       IDENTIFICATION DIVISION.
       PROGRAM-ID. DivideRemainder.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(4) VALUE 17.
       01 B PIC 9(2) VALUE 5.
       01 Q PIC 9(4).
       01 R PIC 9(4).
       PROCEDURE DIVISION.
           DIVIDE A BY B GIVING Q REMAINDER R
           DISPLAY Q
           DISPLAY R
           STOP RUN.
