Documentation >
MAC-PAC Technical Library >
Distribution >
Synchro >
Programs >
Synchro Files Reorganization (RPG) - Purpose >
Synchro Files Reorganization (RPG) - Calculations
Synchro Files Reorganization (RPG) - Calculations
GA026E
A. Mainline
1. As shown by the equation below, PHPURG calculates the minimum of the date given as an input parameter (PARDAT) and today's actual date, minus the period specified in RG19PI (the time that the user wants to keep the pickers in the system after their delivery date has passed). PHPURG then checks if the selection date is less than or equal to this date:
selection date <= min {PARDAT; today - RG19PI}
2. PHPURG reads all picker headers with the calculated selection date from the Picker Header Master (GA230M1) (using the logical file GA230ML5). For each header, the record is written to the Report file (GA026PF1) and deleted from GA230M1; subroutines PLPURG, DNPRUG, and LBPRUG are called.
a. PLPURG writes all picker lines to the report file and deletes them from GA230M2.
b. DNPURG writes all shipping list header records to the Reorganization report (GA024PF1) for the picker that is to be deleted and deletes them from the Shipping List Header file (GA145M1). Subroutine NLPURG is called to delete the corresponding detail lines from the Detail file (GA145M2); NCPURG deletes all comments from the Comment file (GA145M3).
c. LBPURG writes all label records to the Reorganization report (GA024PF1) for the picker that is to be deleted and deletes the label records from the Label Master (GA160M).