MBP INPUT PROCEDURE — logic flow diagram for the standard MAGEC-generated batch report sort input procedure. Reads records from the primary file via browse, performs logical joins, applies selection logic with optional bypass, and releases qualified records to the sort/work file. Supports %SELECT logic for filtering and %MYTOSRT for releasing records to the sort process. Start of INPUT PROCEDURE. Earliest developer intercept point in the batch procedure division, fires before working storage is initialized. PROCEDURE DIVISION insert_main.htm#insert001029 MAIN Initialize working storage for the batch input procedure. AA100-BEGIN insert_main.htm#insert001056 MAIN Set the starting position key for the browse using the MAGEC I/O lock-key logic. BA102-START-BROWSE insert_main.htm#insert001058 MAIN Perform the initial read-less-than-or-equal to position the browse at the starting record. BA102-START-BROWSE insert_main.htm#insert001059 MAIN Tests the result of the initial browse positioning read. NOT FOUND means there is no input data — routes directly to EOF. REC FOUND continues into the main read loop. NOT FOUND means there is no input data — routes directly to %EOF. Top of the main read loop — reads the next sequential record from the primary file via the MAGEC I/O module. BA110-READ-NEXT insert_main.htm#insert001060 MAIN reads the next sequential record from the primary file via the MAGEC I/O module. BA110-READ-NEXT insert_main.htm#insert001060 MAIN Perform logical join — read secondary files and/or compute derived fields to build the complete logical record. JA100-LOGICAL-JOIN insert_main.htm#insert001018 MAIN JA100-LOGICAL-JOIN insert_main.htm#insert001018 MAIN Apply selection logic to the record just read and joined — determines whether to bypass, end, or process this record. BA115-SELECT insert_main.htm#insert001067 MAIN Evaluates the result of BA115-SELECT. BYPASS loops back to read the next record without releasing this one. END terminates the read loop and routes to EOF. PROCESS releases the record to the sort/work file via %MYTOSRT. loops back to read the next record without releasing this one. Releases the qualified record to the sort/work file. After release, the loop continues back to read the next record. RELEASE insert_main.htm#insert001062 MAIN Releases the qualified record to the sort/work file. After release, the loop continues back to read the next record. RELEASE insert_main.htm#insert001062 MAIN End-of-file processing — reached when there is no input data, or when the selection logic indicates the read loop should terminate. EOF MAIN End-of-file processing — reached when there is no input data, or when the selection logic indicates the read loop should terminate. Immediately after EOF, the sort work file will begin sorting the records reoeased to it. Then the Output Procedure will start (see Figure 08). EOF diags_main.htm#diags009000 MAIN End of INPUT PROCEDURE. Figure 07 - MBP Input Procedure