Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IDENTIFICATION DIVISION.
- PROGRAM-ID. HELLO.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 WS-TABLE.
- 05 WS-TASK OCCURS 100 TIMES.
- 10 WS-TASK-ID PIC 999 VALUE 1.
- 10 WS-NAME PIC X(20).
- 10 WS-DESCRIPTION PIC X(200).
- 10 WS-DATE-BEGIN.
- 20 WS-YEAR-BEGIN PIC 99.
- 20 WS-MONTH-BEGIN PIC 99.
- 20 WS-DAY-BEGIN PIC 99.
- 20 WS-HOUR-BEGIN PIC 99.
- 20 WS-MINUTE-BEGIN PIC 99.
- 10 WS-DATE-END.
- 20 WS-YEAR-END PIC 99.
- 20 WS-MONTH-END PIC 99.
- 20 WS-DAY-END PIC 99.
- 20 WS-HOUR-END PIC 99.
- 20 WS-MINUTE-END PIC 99.
- 01 WS-NUMBER-OF-TASKS PIC 999 VALUE 0.
- 01 WS-ID-NEXT-TASK PIC 999 VALUE 1.
- 01 WS-CHOICE PIC 9.
- 01 WS-CNT PIC 9 VALUE 1.
- PROCEDURE DIVISION.
- DISPLAY " VIEW TASKS MENU "
- DISPLAY " ---- ----- ---- "
- DISPLAY "1. ADD NEW TASK 2. DISPLAY ALL TASKS".
- DISPLAY "3. REMOVE TASK BY ID 4. EDIT TASK BY ID ".
- DISPLAY "5. SAVE TASKS TO FILE 6. EXIT " .
- ACCEPT WS-CHOICE.
- GO TO ADD-NEW-TASK,DISPLAY-ALL-TASKS,
- REMOVE-TASK, EDIT-TASK,SAVE-TASKS,FINISH-MENU
- DEPENDING ON WS-CHOICE.
- ADD-NEW-TASK.
- DISPLAY 'ADDING NEW TASK!'.
- DISPLAY 'ENTER TASK NAME:'.
- ACCEPT WS-NAME(WS-ID-NEXT-TASK).
- DISPLAY 'ENTER TASK DESCRIPTION:'.
- ACCEPT WS-DESCRIPTION(WS-ID-NEXT-TASK).
- DISPLAY 'ENTER BEGINT TIME OF TASK YYMM/DD/hh/mm'.
- GO TO STOP-RUN.
- DISPLAY-ALL-TASKS.
- DISPLAY 'DISPLAY-ALL-TASKS!'.
- GO TO STOP-RUN.
- REMOVE-TASK.
- DISPLAY 'REMOVE-TASK!'.
- GO TO STOP-RUN.
- EDIT-TASK.
- DISPLAY 'EDIT-TASK!'.
- GO TO STOP-RUN.
- SAVE-TASKS.
- DISPLAY 'SAVE-TASKS!'.
- GO TO STOP-RUN.
- STOP-RUN.
- STOP RUN.
- FINISH-MENU.
- END PROGRAM HELLO.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement