MAIN LINE
IGNORE CONDITION
LOAD-MAP-HEADER-INFO
SEND MAP 'PM22'
SEND-UPDATE-MAP
READ
GET-INSTALLATION-FOR-UPDT
READ
9000-CHECK-FOR-EIBRCODE-ERRORS
READ-REC-FOR-UPDATE
WRITE
PUT-ARCHIVE-RECORD
DELETE
9000-CHECK-FOR-EIBRCODE-ERRORS
DELETE-PROGTASK-RECORD
LOAD-RECORD
WRITE
9000-CHECK-FOR-EIBRCODE-ERRORS
ADD-PROGTASK-RECORD
LINK 'MCLPP100'
UPDATE-PROJECT-TABLE
READ
GET-PROGTASK-RECORD
READ
GET-RESOURCE-BY-NUMBER
READ
9000-CHECK-FOR-EIBRCODE-ERRORS
GET-PROJECT-RECORD
READ
GET-LEAD-PROGRAMMER
GET-PROGTASK-INFO
LOAD-MAP-WITH-DATA
REWRITE
INSTALLATION-UPDATE
ACCEPTANCE-HANDLING
GET-PROJECT-RECORD
GET-LEAD-PROGRAMMER
LOAD-MAP-WITH-DATA
151-SET-UP-ADD-HANDLING
SEND-UPDATE-MAP
BIF
BIF
BIF
READ
GET-RESOURCE-BY-NAME
EDIT-INPUTS
GET-INSTALLATION-FOR-UPDT
LOAD-RECORD
ADD-PROGTASK-RECORD
UPDATE-PROJECT-TABLE
GET-PROGTASK-INFO
LOAD-MAP-WITH-DATA
INSTALLATION-UPDATE
152-EXECUTE-ADD
SEND-UPDATE-MAP
150-ADD-HANDLING
EDIT-INPUTS
GET-INSTALLATION-FOR-UPDT
READ-REC-FOR-UPDATE
DELETE-PROGTASK-RECORD
LOAD-RECORD
ADD-PROGTASK-RECORD
UPDATE-PROJECT-TABLE
GET-PROGTASK-INFO
LOAD-MAP-WITH-DATA
INSTALLATION-UPDATE
162-EXECUTE-CHANGE-HANDLING
GET-PROGTASK-INFO
LOAD-MAP-WITH-DATA
161-SET-UP-CHANGE-HANDLING
SEND-UPDATE-MAP
160-CHANGE-HANDLING
GET-PROGTASK-INFO
SET-UP-DELETE-HANDLING
LOAD-MAP-WITH-DATA
SEND-UPDATE-MAP
GET-INSTALLATION-FOR-UPDT
READ-REC-FOR-UPDATE
DELETE
UPDATE-PROJECT-TABLE
INSTALLATION-UPDATE
XCTL 'MCLPP20'
EXECUTE-DELETE
170-DELETE-HANDLING
GET-PROGTASK-INFO
LOAD-MAP-WITH-DATA
SEND-UPDATE-MAP
100-PROCESSING
150-ADD-HANDLING
RECEIVE MAP 'PM22'
RETURN
100-PROCESSING
XCTL 'MCLPP20'
RETURN
0000-START-PROGRAM-HERE
