MAIN LINE
IGNORE CONDITION
SEND MAP 'PM91'
10-SEND-FRESH-MAP
3100-INITIALIZE
3000-INITIALIZE-TABLE
1000-LOAD-MAP-WITH-DATA
151-SET-UP-ADD-HANDLING
2000-EDIT-INPUTS
3000-INITIALIZE-TABLE
STARTBR
READNEXT
4100-GET-WK-MAX-SERIAL
ENDBR
4000-GET-NEW-SERIAL-NBR
5000-LOAD-RECORD
1000-LOAD-MAP-WITH-DATA
WRITE
9000-CHECK-FOR-EIBRCODE-ERRORS
5300-ADD-RECORD
152-EXECUTE-ADD
10-SEND-FRESH-MAP
150-ADD-HANDLING
150-ADD-HANDLING
READ
9000-CHECK-FOR-EIBRCODE-ERRORS
5100-READ-RECORD
1000-LOAD-MAP-WITH-DATA
10-SEND-FRESH-MAP
120-DEFAULT-PROCESSING
2000-EDIT-INPUTS
READ
9000-CHECK-FOR-EIBRCODE-ERRORS
5200-READ-REC-FOR-UPDATE
WRITE
PUT-ARCHIVE-RECORD
DELETE
9000-CHECK-FOR-EIBRCODE-ERRORS
5600-DELETE-RECORD
5000-LOAD-RECORD
5300-ADD-RECORD
1000-LOAD-MAP-WITH-DATA
162-EXECUTE-CHANGE-HANDLING
5100-READ-RECORD
1000-LOAD-MAP-WITH-DATA
161-SET-UP-CHANGE-HANDLING
10-SEND-FRESH-MAP
160-CHANGE-HANDLING
5100-READ-RECORD
171-SET-UP-DELETE-HANDLING
DELETE
9000-CHECK-FOR-EIBRCODE-ERRORS
5700-DELETE-WITH-KEY
172-EXECUTE-DELETE
1000-LOAD-MAP-WITH-DATA
10-SEND-FRESH-MAP
170-DELETE-HANDLING
120-DEFAULT-PROCESSING
120-DEFAULT-PROCESSING
120-DEFAULT-PROCESSING
100-PROCESSING
100-PROCESSING
RECEIVE MAP 'PM91'
RETURN
100-PROCESSING
XCTL 'MCLPP90'
RETURN
0000-START-PROGRAM-HERE
