MAIN LINE
IGNORE CONDITION
READ
1120-LOAD-MAP-WITH-DATA
SEND MAP 'PM05'
1110-SEND-FRESH-MAP
1110-SEND-FRESH-MAP
1100-DISPLAY-INSTALLATION-REC
RECEIVE MAP 'PM05'
RETURN
1110-SEND-FRESH-MAP
READ
GET-INSTALLATION-FOR-UPDT
WRITE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
3100-EDIT-DATE
BIF
BIF
BIF
BIF
BIF
BIF
BIF
BIF
BIF
BIF
BIF
3000-EDIT-INPUTS
5000-LOAD-INSTALLATION-REC
LINK 'MCLPP100'
UPDATE-PROJECT-TABLE
REWRITE
2200-EXECUTE-CHANGE-HANDLING
READ
1120-LOAD-MAP-WITH-DATA
2100-SET-UP-CHANGE-HANDLING
1110-SEND-FRESH-MAP
2000-INSTALLATION-UPDATE
1100-DISPLAY-INSTALLATION-REC
1000-PROCESSING
XCTL 'MCLPP01'
RETURN
0000-START-PROGRAM-HERE
