MAIN LINE
IGNORE CONDITION
SEND MAP 'PM45'
10000-SEND-FRESH-MAP
RECEIVE MAP 'PM45'
RETURN
BIF
BIF
BIF
READ
STARTBR
READNEXT
WRITEQ TS
ENDBR
GET-TIMESHEETS
READQ TS
READ
REWRITE
DELETE
WRITE
POST-TIMESHEETS
LINK 'MCLPP100'
UPDATE-PROJECT-TABLE
REWRITE
INSTALLATION-UPDATE
POSTING-HANDLING
10000-SEND-FRESH-MAP
100-SELECT-PROCESSING
XCTL 'MCLPP01'
RETURN
0000-START-PROGRAM-HERE
0000-EXIT
100-SELECT-PROCESSING
100-EXIT
POSTING-HANDLING
POSTING-HANDLING-EXIT
INSTALLATION-UPDATE
INSTALLATION-UPDATE-EXIT
POST-TIMESHEETS
POST-TIMESHEETS-EXIT
GET-TIMESHEETS
GET-PROGTASKS-EXIT
10000-SEND-FRESH-MAP
10000-EXIT
UPDATE-PROJECT-TABLE
UPDATE-PROJECT-TABLE-EXIT
