* ==== TYPE: ST-ACCEPT-DATE ====
      * FEATURE: ACCEPT FROM DATE / TIME / DAY
      * STATEMENT: ACCEPT
      * BRANCHES: 4, DECISIONS: 2
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ACCDAT.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-DATE    PIC 9(8).
       01 WS-TIME    PIC 9(8).
       01 WS-DAY     PIC 9(5).
       PROCEDURE DIVISION.
       MAIN.
           ACCEPT WS-DATE FROM DATE.
           ACCEPT WS-TIME FROM TIME.
           ACCEPT WS-DAY FROM DAY.
           IF WS-DATE > 0
               DISPLAY 'OK: DATE'
           ELSE
               DISPLAY 'ERROR: DATE'.
           IF WS-TIME > 0
               DISPLAY 'OK: TIME'
           ELSE
               DISPLAY 'ERROR: TIME'.
           STOP RUN.