Documentation >
MAC-PAC Technical Library >
Manufacturing >
Design Engineering >
Programs >
B/T Parent Revision Level Generation - Purpose >
B/T Parent Revision Level Generation - Calculations
B/T Parent Revision Level Generation - Calculations
DE195E
A. Housekeeping
1. See the Common Processing Routines Section for a general discussion of this subroutine. Processing specific to this program is described below.
2. Parameter lists and key lists needed by the program are defined. Work fields and constants are defined and initialized.
3. The following information is retrieved from the System Control file (CT100M) and the Reference file (REFERP).
a. The operating system's file status codes (category 015) are retrieved to check file status on I/O routines. If the category is not found the program terminates.
b. The date format (category 049) is retrieved. If this record is not found, a message is sent to the system operator, the date format defaults to MMDDYY, and processing continues.
B. Mainline
1. Retrieve the first record from the Part Master file (DE100L19). If no records are found on the file the program ends.
2. Read the revision levels in effect for the part from the Revision Level Logical (DE120ML2). If all dates found were not loaded, send a message and do not generate the revision levels for the part.
3. Chain to the Part Master file (DE100M) to retrieve the part type and update the net change flag (PMNCFL) to "2" (replan). Check the auto revision level flag (PMRVGN) on the part. If it is set to no skip the part.
4. Check to see if the revision level to be added for the parent part already exists in the Revision Level file (DE170M). If the revision level does not exist, add a new record to the file for the parent part. The new revision level should have an effectively date that is greater that the current one in effect.
5. Sort the part's revision levels by number within a given date.
6. If the part's net change flag (PMNCFL) is not equal to "2", update the Part Master file (DE100M) for the parent part with the new revision levels and set the net change flag to "2". Check the auto revision level flag (PMRVGN) for the part. If it is set to no skip the part.
7. Read the next part in the Part Master file (DE100ML19) and continue processing with step 2. If no parts are left, end the program.