CALDATA: Data file that holds calendar information.
To review entries, enter the date to be examined or press PF(08). Press PF(02) to see first record, PF(05) to see next, PF(09) to modify, PF(12) to delete, PF(13) to add, PF(15) to print, or PF(16) to exit to the OPTIONS menu.
For each date, up to five lines of 75 characters each may be entered at the top, along with a 30-character description for each half-hour time slot.
From the OPTIONS menu, select PF(01) to return to calendar maintenance, PF(02) to print the current entry, or PF(03) to print all calendar entries. Press PF(16) to exit the program.
A hidden GETPARM (OPTIONS) allows the screens to be bypassed unless an entry exists for that day. To use this option, run CALENDAR from a procedure using the following statements:
RUN CALENDAR [ in library on volume ] ENTER OPTIONS FUNCTION = MSG
(Note that the keyword must be exactly 'MSG'; the program is case-sensitive.)
COBOL source is available.