MAIN LINE
IGNORE CONDITION
DELETE-OLD-QUEUES
STARTBR
READNEXT
WRITEQ TS
LOAD-QUEUE-FOR-UPDATING
ENDBR
READNEXT
WRITEQ TS
WRITEQ TS
LOAD-QUEUE-FOR-SCHEDULING
ENDBR
LOAD-TABLE
STARTBR
READNEXT
WRITEQ TS
ENDBR
LOAD-RESOURCE-QUEUE
READ
READQ TS
WRITEQ TS
RESEQUENCE-QUEUE
REWRITE
RESEQUENCE-BY-RESOURCE
RESEQUENCE-TABLE
READQ TS
READ
GET-RESOURCE-BY-NUMBER
SET-UP-LEAP-CALENDAR
SET-UP-CALENDAR
CHECK-FOR-LEAP-YEAR
CALC-DAY-OF-WEEK
WORK-DAY-CHECK
CHECK-FOR-LEAP-YEAR
TARGET-DATE-CALCS
CALC-TARGET-DATE
TARGET-CALC-HANDLING
PROGTASK-RELATED-CALCS
READ
REWRITE
UPDATE-RESOURCE-REC
WRITEQ TS
READQ TS
WRITEQ TS
REFRESH-DEPENDENCIES
UPDATE-TABLE
STARTBR
READNEXT
WRITEQ TS
ENDBR
LOAD-PROJECT-QUEUE
READQ TS
GET-MOST-DISTANT-SEQ-NBR
READQ TS
WRITEQ TS
IDENTIFY-CRITICAL-PATH
READ
REWRITE
UPDATE-PROJECT-RECORD
PROCESS-PROJECT-PATHS
UPDATE-CRITICAL-PATH
READQ TS
DELETE
WRITE
PUT-TABLE
DELETE-OLD-QUEUES
RETURN
UPDATE-PROJECT-TABLE
