Skip to content

FR714B RPGLE

The FR714B program is an RPGLE program called by FR714C to print the Freight Out Reconciliation Report sorted by carrier/routing. It reads data from the work file FR714W, retrieves additional information from reference files, and generates a printed report with headers, detail lines, and totals. It also supports an additional output for Excel creation (per revision mg01). The program is nearly identical to FR713B, with differences primarily in the input work file (FR714W vs. FR713W) and the sorting hierarchy (carrier-focused). Below, I’ll explain the process steps, business rules, database tables used, and external programs called, based on the provided RPGLE source code (noting that the code is truncated, limiting visibility into some subroutines).

Process Steps of the FR714B Program

The FR714B program processes the work file FR714W, organizes data hierarchically by company, location, routing code, state, city, and customer, and produces a formatted report with totals at various levels. Here’s a detailed breakdown of the process steps based on the available code:

  1. Program Initialization (*inzsr Subroutine, partially truncated):
  2. Purpose: Sets up initial conditions and processes input parameters.

  3. Actions (inferred from context and file definitions):

    • Receives nine input parameters (as passed from FR714C):
    • p$co (2): Company code.
    • p$fdat (8): From date (in CYMD format).
    • p$tdat (8): To date (in CYMD format).
    • p$loc (3): Location code (Note: Matches FR713C but differs from FR714C’s LEN(2), suggesting a potential discrepancy).
    • p$caid (6): Carrier ID.
    • p$sort (1): Sort option ('C' for carrier/routing, as called by FR713PC).
    • p$cust (6): Customer code.
    • p$car$ (1): Flag to include zero-dollar freight records ('Y' or 'N').
    • p$fgrp (1): File group ('G' or 'Z').
    • Moves input parameters to work fields (e.g., p$fdat to w$fmdy, p$tdat to w$tmdy for display, likely in MMDDYY format after conversion).
    • Initializes data structures for date conversion (d#), freight GL account (w1frgl, w$acct, w$sub), routing code (w1rtg1, dsrtg1), customer name (w1name, w$name), and city (w1scit, dsscit).
    • Opens input files FR714W, INLOC, GLCONT, and output files FR714W2, LIST164, and LIST378 (per mg01 for Excel output).

  4. Open Database Tables:

  5. Purpose: Applies file overrides and opens necessary files.

  6. Actions (inferred from OVG/OVZ arrays and file definitions):

    • Applies overrides for INLOC and GLCONT based on p$fgrp:
    • For p$fgrp = 'G': Overrides to GINLOC and GGLCONT.
    • For p$fgrp = 'Z': Overrides to ZINLOC and ZGLCONT.
    • Executes overrides using QCMDEXC (likely in a subroutine like opntbl, not shown due to truncation).
    • Opens INLOC and GLCONT for reading, FR714W as the primary input file, FR714W2 for output, and LIST164/LIST378 as printer files.

  7. Process Work File (FR714W):

  8. Purpose: Reads records from FR714W and organizes them hierarchically for reporting.

  9. Actions:

    • Uses level-break indicators (L1 to L7) defined in the input specification (IFR714WPF):
    • L7: Company (W1CO).
    • L6: Location (W1LOC).
    • L5: Routing code (W1RTG1).
    • L4: State (W1SST).
    • L3: City (W1SCIT).
    • L2: Customer (W1CUST).
    • L1: Order number (W1RDNO) and sequence number (W1SRN).
    • For each record read:
    • Company Break (*INL7 = *ON):
      • Sets PRTOVR to *ON to indicate a new company section.
      • Clears company-level totals (L7BFRT, L7EFRT, L7AFRT, L7DIFF, L7POST, L7NEGT).
      • Chains to GLCONT using W1CO to retrieve the company name (GCNAME) into R$CNAM. If not found (*IN99 = *ON), clears R$CNAM.
    • Location Break (*INL6 = *ON):
      • Sets PRTOVR to *ON.
      • Clears location-level totals (L6BFRT, L6EFRT, L6AFRT, L6DIFF, L6POST, L6NEGT).
      • Chains to INLOC using KEY (likely a key list with W1CO and W1LOC) to retrieve the location name (ILNAME) into R$ILNM. If not found, clears R$ILNM.
    • Routing Code Break (*INL5 = *ON):
      • Clears routing-level totals (L5BFRT, L5EFRT, L5AFRT, L5DIFF, L5POST, L5NEGT).
      • (Further processing likely in truncated code.)
    • State, City, Customer Breaks (*INL4, *INL3, *INL2):
      • Likely handles page overflow and prints subtotals (via OVRFLO subroutine, not shown).
      • Accumulates totals for booked freight (W1BFRT), estimated freight (W1EFRT), actual/customer freight (W1AFRT), and differences (W1DIFF) at each level.

  10. Print Report:

  11. Purpose: Generates the printed report using LIST164 (and LIST378 for Excel per mg01).

  12. Actions:

    • Headers (HDR01):
    • Prints company information (W1CO, R$CNAM), report title ("FREIGHT OUT RECONCILIATION REPORT"), and page number (PAGE).
    • Includes job details (PS#JOB, PS#PGM, PS#USR), location (W1LOC, R$ILNM), and date/time (PS#MDY, PS#HMS).
    • Displays selection criteria: location (P$LOC), carrier (P$CAID), customer (P$CUST), zero-dollar flag (P$CAR$), and date range (W$FMDY to W$TMDY).
    • Prints column headers for shipping destination, routing, product, state, shipment date, customer, order number, sequence number, invoice, customer number, ship-to, type, quantity, unit of measure, freight code, billed freight, expected carrier, actual carrier, difference, and close status.
    • Detail Lines (DETL):
    • Prints fields from FR714W: routing (DSRTG1), city (DSSCIT), product (W1PROD), state (W1SST), shipment date (W$SDAT), customer name (W$NAME), order number (W1RDNO), sequence number (W1SRN), invoice number (W1INVN), customer number (W1CUST), ship-to (W1SHIP), order type (W1TYPE), quantity (W1QTY), unit of measure (W1UM), freight code (W1FRCD), billed freight (W1BFRT), estimated freight (W1EFRT), actual freight (W1AFRT), difference (W1DIFF), and close status (W1CLOS).
    • Totals:
    • Location Totals (TOTL6): Prints location (W1LOC), totals for booked (L6BFRT), estimated (L6EFRT), actual (L6AFRT), and difference (L6DIFF), plus positive (L6POST) and negative (L6NEGT) carrier charges.
    • Company Totals (TOTL7): Prints company totals for booked (L7BFRT), estimated (L7EFRT), actual (L7AFRT), difference (L7DIFF), positive (L7POST), and negative (L7NEGT) carrier charges.
    • Excel Output (LIST378):
    • Added per mg01 (11/27/2017) for Excel-compatible output (378 characters wide).
    • Specific formatting is not fully visible due to truncation.

  13. Write to Secondary Work File (FR714W2):

  14. Purpose: Outputs data to FR714W2, possibly for Excel export or further processing.

  15. Actions (inferred):

    • Writes records to FR714W2 (not shown in output specifications but defined as an output file).
    • Likely mirrors detail or total data for external use.

  16. Program Termination (inferred):

  17. Purpose: Cleans up and exits.
  18. Actions:
    • Closes all open files (FR714W, INLOC, GLCONT, FR714W2, LIST164, LIST378).
    • Sets *INLR to *ON and returns to FR714C.

Business Rules

The FR714B program enforces the following business rules: 1. Hierarchical Reporting: - Organizes data by company (L7), location (L6), routing code (L5), state (L4), city (L3), customer (L2), and order/sequence (L1), with carrier/routing as the primary sort (L5). 2. Reference Data Retrieval: - Retrieves company name (GCNAME) from GLCONT and location name (ILNAME) from INLOC, defaulting to blank if not found. 3. Totals Calculation: - Accumulates booked, estimated, and actual freight amounts, and differences at location (L6) and company (L7) levels. - Tracks positive (L6POST, L7POST) and negative (L6NEGT, L7NEGT) carrier charge differences. 4. Selection Criteria Display: - Includes user-selected parameters (location, carrier, customer, date range, zero-dollar flag) in the report header. 5. Excel Output: - Supports LIST378 for Excel-compatible output (per mg01), with a wider format for spreadsheet compatibility. 6. Page Overflow Handling: - Uses the OVRFLO subroutine (not shown) to manage page breaks. 7. No Input Validation: - Relies on FR713P for input validation, assuming FR714W data is correct.

Database Tables Used

The FR714B program directly accesses: 1. FR714W (Freight Work File, Input, Primary): - Keyed by company (W1CO), location (W1LOC), routing code (W1RTG1), state (W1SST), city (W1SCIT), customer (W1CUST), order number (W1RDNO), and sequence number (W1SRN). - Fields: W1CO, W1LOC, W1RTG1, W1SST, W1SCIT, W1CUST, W1RDNO, W1SRN, W1INVN, W1SHIP, W1TYPE, W1QTY, W1UM, W1FRCD, W1BFRT, W1EFRT, W1AFRT, W1DIFF, W1CLOS, W1PROD. 2. INLOC (Inventory Location, Input): - Keyed by company and location (via KEY). - Overrides: GINLOC or ZINLOC. - Field: ILNAME (location name). 3. GLCONT (General Ledger Control, Input): - Keyed by company (W1CO). - Overrides: GGLCONT or ZGLCONT. - Field: GCNAME (company name). 4. FR714W2 (Secondary Work File, Output): - Used for additional output, possibly for Excel. 5. LIST164 (Printer File, Output): - Standard report output (164 characters wide). 6. LIST378 (Printer File, Output): - Excel-compatible output (378 characters wide, per mg01).

External Programs Called

The FR714B program likely calls: 1. QCMDEXC: - System API for executing OVRDBF commands in the opntbl subroutine (not shown). - Parameters: dbov## (80 characters), dbol## (15.5).

Additional Notes

  • Revisions:
  • mg01 (11/27/2017): Added LIST378 for Excel output.
  • Truncated Code:
  • Missing 21,707 characters, including main processing loop and OVRFLO subroutine, but output specifications clarify the report structure.
  • Data Structures:
  • Uses d# for date formatting, and structures for splitting W1FRGL, W1RTG1, W1NAME, and W1SCIT.
  • Integration:
  • Part of the chain FR713P → FR713PC → FR714C → FR714A → FR714B.
  • Location Code Length:
  • P$LOC is LEN(3) in the output specs but LEN(2) in FR714C, indicating a potential inconsistency.

Summary

The FR714B program reads FR714W, retrieves names from INLOC and GLCONT, and generates a carrier-sorted Freight Out Reconciliation Report using LIST164 (and LIST378 for Excel). It organizes data hierarchically, prints headers, detail lines, and totals, and writes to FR714W2. It uses six files and likely calls QCMDEXC for overrides, enforcing rules for hierarchical reporting and totals calculation.