Skip to content

BB951 RPG36

The provided RPG/36 program, BB951.rpg36.txt, is the final component in the rack price list processing suite, called by the BB951.ocl36.txt OCL program. Its purpose is to print a rack price report that displays the last two price changes for each product, container, and unit of measure, formatted within two print lines for easy customer quoting. It also incorporates tax information and cost data, and outputs data to a table for salesmen’s pricing reports. Below, I’ll explain the process steps, business rules, tables/files used, and external programs called.

Process Steps of the RPG Program

The BB951 RPG program processes data from temporary files (BB9511, BB9518), retrieves additional information from reference files (BICONT, INLOC, GSTABL, GSCNTR1, GLCONT, ICSUMHY), and generates a printed report via the LIST printer file and a data table via BBPRCEC. Due to the truncation of the code (11,517 characters missing), I’ll base the analysis on the provided portion, focusing on file definitions, input specifications, and output specifications, and infer likely processing steps based on context from the OCL and related programs (BB951P, BB9511, BB9518).

  1. File and Data Structure Definitions:
  2. Files:
    • BB9511: Primary input file (166 bytes), temporary file containing preprocessed rack price data from BB9511.rpg36.
    • BICONT: Input file (256 bytes, indexed, key length 2 bytes), contains company data.
    • INLOC: Input file (512 bytes, indexed, key length 5 bytes), contains location data.
    • GSTABL: Input file (256 bytes, indexed, key length 12 bytes), table file for product group descriptions.
    • BB9518: Input file (512 bytes, indexed, key length 7 bytes), temporary tax print file from BB9518.rpg36.
    • GLCONT: Input file (256 bytes, indexed, key length 2 bytes), general ledger control file for costing data.
    • ICSUMHY: Input file (800 bytes, indexed, key length 12 bytes), summary history file for cost data.
    • GSCNTR1: Input file (512 bytes, indexed, key length 3 bytes), container file (replaced GSTABL for container codes per JK01).
    • BBPRCEC: Output file (265 bytes, indexed, key length 27 bytes), table for storing report data for salesmen (per MG01).
    • LIST: Printer output file (164 bytes), used to print the rack price report.
  3. Arrays:
    • XXPR (5 elements, 9.4): Current rack prices.
    • XXQT (5 elements, 7.0): Quantity levels.
    • PRPR (5 elements, 9.4): Previous rack prices.
    • SEP (82 elements, 2 bytes): Separator lines (e.g., --) between locations.
    • QTY (5 elements, 10 bytes): Quantity headings.
    • QTH (10 elements, 1 byte): Quantity heading flags.
    • QT, BQT, EQT (5 elements, 1 byte): Quantity flags for beginning/end.
    • TXC (10 elements, 4 bytes): Tax codes (per LT03).
    • TXD (10 elements, 30 bytes): Tax descriptions (per LT03).
    • TXR (10 elements, 5.5): Tax rates (per LT03).
  4. Input Fields:
    • BB9511: Company (XXCO), location (XXLOC), product group (XXPRGR), product (XXPROD), container (XXCNTR), unit of measure (XXUNMS), quantities (XXQT), prices (XXPR), previous prices (PRPR), descriptions (XXDES1, XXDES2), date (XXDATE), time (XXTIME), minimum quantity (XXMINQ), rack required (XXRKRQ), inactive flag (XXINAC), inventory sort code (XXCSRT).
    • BICONT: Company name (BCNAME).
    • INLOC: Location name (ILNAME).
    • GSTABL: Complete description (TBDES1).
    • BB9518: Company (B8CONO), state (B8STAT), product group description (B8PGDS), delivery flag (B8DELV), tax codes (TXC), descriptions (TXD), rates (TXR).
    • GLCONT: Last closed month for costing (GCLMCC, CYM format).
    • ICSUMHY: Company (GICO), product (GIPROD), year (GICYR), month (GIMO), cost per gallon product (GICPGP), cost per gallon close (GICPGC).

  5. Data Structures:

    • UDS: Contains GICYM (CYM), GICYR (year), GIMO (month).
    • Unnamed DS (lines 0072–0074): Defines QTYHDR and QTH for quantity headings.
    • Unnamed DS (lines 0077–0078): Defines ENDQTY for quantity processing.

  6. Output Specifications Overview (lines 0272–0441):

  7. Printer Output (LIST):
    • PRTHDR (Header Formats):
    • Format 02: Prints program ID (BB951) and page number (PAGE).
    • Format 03: Prints company name (BCNAME) and title (RACK PRICE LISTING).
    • Format 04: Prints location code (XXLOC), name (ILNAME), and time (SYTIME).
    • Format 205: Prints product group (XXPRGR), description (GRPDSC), and date (SYDATEY).
    • Format 0: Prints column headers (e.g., CNTR, QUANTITY 1, PRICE 1, ..., MIN QTY).
    • Format 1: Prints underlines for headers (e.g., ____, __________).
    • PRTLN1 (Detail Line 1):
    • Prints product code (XXPROD), description (XXDES1), container code (XXCNTR), container description (CNTDSC), unit of measure (XXUNMS), effective date (CURDAT), time (CURTIM), quantities (QTY,1 to QTY,4), prices (XXPR,1 to XXPR,4), minimum quantity (XXMINQ), and flags (INACTIVE, INACTIV BUT, RACK NOT REQ’D based on XXINAC and XXRKRQ).
    • PRTLN2 (Detail Line 2):
    • Prints previous prices (PRPR,1 to PRPR,4) with quantities and minimum quantity.
    • PRTSEP (Separator):
    • Prints separator lines (SEP) between locations.
    • PRTTXH (Tax Header):
    • Prints TOTAL TAX and a separator (|).
    • PRTTX (Tax Details):
    • Prints state (B8STAT), product group description (B8PGDS), delivery flag (B8DELV), total tax rate (TOTTXR), and up to 10 tax codes (TXC), descriptions (TXD), and rates (TXR).

  8. Table Output (BBPRCEC):

    • Writes fields like company (RCCO), location (RCLOC), product (RCPROD), container (RCCNTR), unit of measure (RCUNMS), date (RCDATE), time (RCTIME), product/container descriptions (RCPRDS, RCCNDS), prices (PCPRCE to PCPR05), quantities (PCQT01 to PCQT05), minimum quantity (RCMINQ), rack required (RCRKRQ), inactive flag (RCINAC), and cost per gallon (ICCPGP).

  9. Inferred Main Processing Loop (based on context and output specifications):

  10. Read BB9511 Records:
    • Processes records by company (XXCO, level L3) and location (XXLOC, level L2) to organize the report hierarchically.
    • Retrieves company name (BCNAME) from BICONT and location name (ILNAME) from INLOC using keys (XXCO, ILKEY).
  11. Retrieve Product Group Description:
    • Uses XXPRGR to chain to GSTABL for TBDES1 (stored as GRPDSC).
  12. Retrieve Container Description:
    • Uses XXCNTR to chain to GSCNTR1 for TCDESC (stored as CNTDSC).
  13. Retrieve Cost Data:
    • Uses GCLMCC (last closed month) from GLCONT and matches with GICYR, GIMO from ICSUMHY to retrieve cost per gallon (GICPGP, GICPGC).
  14. Retrieve Tax Data:
    • Reads BB9518 to match company (B8CONO), state (B8STAT), and product group (TBPRGP) for tax codes (TXC), descriptions (TXD), rates (TXR), and delivery flag (B8DELV).
    • Calculates total tax rate (TOTTXR) by summing TXR elements.
  15. Format Quantities:
    • Processes XXQT (quantities) into QTY headings, handling beginning/end flags (BQT, EQT) to format ranges (e.g., per FHL082198 fix for 5-byte quantities).
  16. Print Report:
    • Outputs headers (PRTHDR) for program, company, location, product group, and columns.
    • Outputs detail lines (PRTLN1, PRTLN2) for current and previous prices, quantities, and flags.
    • Outputs tax information (PRTTXH, PRTTX) and separators (PRTSEP).

  17. Write to BBPRCEC:

    • Stores report data (company, location, product, prices, quantities, etc.) in BBPRCEC for salesmen’s pricing reports.

  18. Program Termination:

  19. Completes after processing all BB9511 records, closing files and ending the print job.

Business Rules

The RPG program enforces the following business rules for the rack price report:

  1. Two Price Changes:

  2. Displays the last two price changes (XXPR, PRPR) for each product (XXPROD), container (XXCNTR), and unit of measure (XXUNMS) within two print lines for easy customer quoting.

  3. Hierarchical Structure:

  4. Organizes the report by company (XXCO), location (XXLOC), and product group (XXPRGR), with headers for each level.

  5. Descriptive Data:

  6. Retrieves company name (BCNAME) from BICONT, location name (ILNAME) from INLOC, product group description (TBDES1) from GSTABL, and container description (TCDESC) from GSCNTR1.

  7. Tax Information:

  8. Includes up to 10 tax codes (TXC), descriptions (TXD), and rates (TXR) from BB9518, with a total tax rate (TOTTXR).

  9. Indicates delivery applicability (B8DELV).

  10. Cost Data:

  11. Retrieves cost per gallon (GICPGP, GICPGC) from ICSUMHY for the last closed costing month (GCLMCC from GLCONT).

  12. Quantity Formatting:

  13. Formats quantities (XXQT) into ranges using QTY, BQT, and EQT, handling up to 5-digit quantities (per FHL082198).

  14. Flags:

  15. Indicates if a product is inactive (XXINAC = 'I' or 'B'), or if rack pricing is not required (XXRKRQ).

  16. Output to Table:

  17. Stores report data in BBPRCEC for salesmen’s pricing reports, including prices, quantities, descriptions, and cost data.

Tables/Files Used

The RPG program uses the following files: 1. BB9511 (?9?BB951S): Primary input temporary file, containing preprocessed rack price data (company, location, product, prices, quantities, etc.). 2. BICONT (?9?BICONT): Input company file, provides company name (BCNAME). 3. INLOC (?9?INLOC): Input location file, provides location name (ILNAME). 4. GSTABL (?9?GSTABL): Input table file, provides product group descriptions (TBDES1). 5. BB9518 (?9?BB9518): Input temporary tax file, provides tax codes, descriptions, rates, and delivery flags. 6. GLCONT (?9?GLCONT): Input general ledger control file, provides last closed costing month (GCLMCC). 7. ICSUMHY (?9?ICSUMHY): Input summary history file, provides cost per gallon data (GICPGP, GICPGC). 8. GSCNTR1 (?9?GSCNTR1): Input container file, provides container descriptions (TCDESC). 9. BBPRCEC (?9?BBPRCEC): Output table file, stores report data for salesmen. 10. LIST: Printer output file, generates the rack price report.

External Programs Called

The RPG program does not explicitly call any external programs. It performs file operations (READ, CHAIN, EXCPT) and writes to the printer (LIST) and output table (BBPRCEC). It is called by the BB951.ocl36.txt OCL program as the final step in the rack price list process.

Summary

  • Process Overview: The BB951 RPG program generates a rack price report by processing preprocessed data from BB9511, retrieving company, location, product group, container, cost, and tax information from reference files, and printing a formatted report via LIST. It also stores data in BBPRCEC for salesmen’s reports. The report shows the last two price changes within two lines, including quantities, tax details, and status flags.
  • Business Rules: Organizes data hierarchically, displays current and previous prices, includes tax and cost data, formats quantities, and handles inactive/rack-not-required flags. Outputs to both printer and table.
  • Files/Tables: BB9511, BICONT, INLOC, GSTABL, BB9518, GLCONT, ICSUMHY, GSCNTR1, BBPRCEC, LIST.
  • External Programs: None called directly.

Due to the truncation, some processing logic (e.g., main loop, calculations) is inferred. If you can provide the missing code or specific details (e.g., file structures, PRTLN1 calculations), I can refine the analysis. Alternatively, I can search for related information if desired!