MAIN LINE
ASKTIME
SET-UP-LEAP-CALENDAR
ADVANCE-MONTH
GET-TIME-AND-DATE
IGNORE CONDITION
READ
9000-CHECK-FOR-EIBRCODE-ERRORS
GET-PROJECT
11000-LOAD-MAP-HEADER-INFO
SEND MAP 'PM51'
10000-SEND-FRESH-MAP
2100-SET-UP-SCHEDULING
CALC-CURSOR-POSITION
READ
LINK 'MCLPP100'
UPDATE-PROJECT-TABLE
REWRITE
2200-EXECUTE-SCHEDULING
2000-SCHEDULE-PROCESSING
READ
STARTBR
READNEXT
READ
GET-RESOURCE-BY-NUMBER
SET-UP-LEAP-CALENDAR
SET-UP-CALENDAR
6110-CHECK-FOR-LEAP-YEAR
6200-CALC-DAY-OF-WEEK
6120-VACATION-CHECK
6125-HOLIDAY-CHECK
6115-WORK-DAY-CHECK
6110-CHECK-FOR-LEAP-YEAR
6010-ADVANCE-DATE
6010-ADVANCE-DATE
6000-SET-UP-GANTT-DISPLAY-LINE
151-BROWSE-GANTT-FWD
ENDBR
6110-CHECK-FOR-LEAP-YEAR
6020-BACKUP-DATE
STARTBR
READPREV
1520-BACKUP-GANTT-RECS
ENDBR
152-GET-LAST-GANTT-PAGE
STARTBR
151-BROWSE-GANTT-FWD
ENDBR
STARTBR
151-BROWSE-GANTT-FWD
ENDBR
150-SET-UP-GANTT-DISPLAY
STARTBR
READNEXT
ENDBR
9000-CHECK-FOR-EIBRCODE-ERRORS
5100-READ-PROGTASK-RECORD
GET-RESOURCE-BY-NUMBER
10000-SEND-FRESH-MAP
1000-DEFAULT-PROCESSING
CALC-CURSOR-POSITION
SELECT-TASK
1000-DEFAULT-PROCESSING
1000-DEFAULT-PROCESSING
100-PROCESS-SELECTION
RECEIVE MAP 'PM51'
RETURN
100-PROCESS-SELECTION
XCTL 'MCLPP50'
RETURN
0000-START-PROGRAM-HERE
0000-EXIT
100-PROCESS-SELECTION
100-EXIT
1000-DEFAULT-PROCESSING
1000-EXIT
2000-SCHEDULE-PROCESSING
2000-EXIT
2100-SET-UP-SCHEDULING
2100-EXIT
2200-EXECUTE-SCHEDULING
2200-EXIT
SELECT-TASK
SELECT-TASK-EXIT
CALC-CURSOR-POSITION
CALC-CUSOR-POSITION-EXIT
10000-SEND-FRESH-MAP
10000-EXIT
11000-LOAD-MAP-HEADER-INFO
11000-EXIT
150-SET-UP-GANTT-DISPLAY
150-EXIT
151-BROWSE-GANTT-FWD
151-EXIT
152-GET-LAST-GANTT-PAGE
152-EXIT
153-CLEAR-GANTT-DISPLAY
153-EXIT
1520-BACKUP-GANTT-RECS
1520-EXIT
GET-RESOURCE-BY-NUMBER
GET-RESOURCE-BY-NUMBER-EXIT
5100-READ-PROGTASK-RECORD
5100-EXIT
GET-PROJECT
GET-PROJECT-EXIT
6000-SET-UP-GANTT-DISPLAY-LINE
6000-EXIT
6010-ADVANCE-DATE
6010-EXIT
6020-BACKUP-DATE
6020-EXIT
6110-CHECK-FOR-LEAP-YEAR
6110-EXIT
6115-WORK-DAY-CHECK
6115-EXIT
6120-VACATION-CHECK
6120-EXIT
6125-HOLIDAY-CHECK
6125-EXIT
6200-CALC-DAY-OF-WEEK
6200-EXIT
9000-CHECK-FOR-EIBRCODE-ERRORS
9000-EXIT
GET-TIME-AND-DATE
GET-TIME-AND-DATE-EXIT
SET-UP-CALENDAR
SET-UP-CALENDAR-EXIT
SET-UP-LEAP-CALENDAR
SET-UP-LEAP-CALENDAR-EXIT
ADVANCE-MONTH
ADVANCE-MONTH-EXIT
UPDATE-PROJECT-TABLE
UPDATE-PROJECT-TABLE-EXIT
