Documentation >
MAC-PAC Technical Library >
Distribution >
Synchro >
Programs >
Synchro Files Reorganization (RPG) - Purpose >
Synchro Files Reorganization (RPG) - Calculations
Synchro Files Reorganization (RPG) - Calculations
GA022E
A. Mainline
1. BOPURG reads all blanket orders with release status 'C' (closed) using the logical file GA120MLK. The record to be deleted is written to GA020PF1 and is physically deleted from the Blanket Order Master (GA120M1). ENPURG is then called to delete the associated endorsements, and DPPURG is called to delete the associated item/delivery point relationships.
a. ENPURG deletes all endorsements with this blanket order from the Endorsement Master (GA120M3) and writes the records to GA022PF1. If an endorsement has comments, the comments are also deleted from the Endorsement Comment file (GA120M4).
b. DPPURG deletes all item/delivery point relationships with this blanket order from the Item/Delivery Point Master (GA120M2) and writes the records to GA022PF1.