P41061

-- ============================================================
-- Program: P41061 Supplier Catalog Maintenance — maintain supplier price catalogs used for purchase price retrieval at PO entry
-- Purpose: Supplier Catalog Maintenance — maintain supplier price catalogs used for purchase price retrieval at PO entry — auto-generated boilerplate from program-table-map
-- Grain  : F41061 × F4101, F0101, F0401 — 1:N joins yield one row per detail line
-- Tables : F41061, F4101, F0101, F0401
-- Notes  : Auto-generated skeleton. Julian dates are converted to DATE and implied-decimal amounts are scaled (verify decimals in F9210). Audit columns (…USER/…PID/…UPMJ) are omitted — see the quirks guide. Set catalog/schema to your Unity Catalog location; fill remaining placeholders (<...>) for your tenant.
-- ============================================================
SELECT
  TRIM(h.CBMCU) AS "Branch/plant (business unit); stored right-justified with leading blanks.",
  h.CBAN8 AS "Supplier address number the catalog price belongs to.",
  h.CBITM AS "Short internal item number (8-digit numeric key).",
  h.CBCATN AS "Supplier catalog name grouping this set of prices.",
  h.CBCRCD AS "Transaction currency code of the price.",
  h.CBUOM AS "Unit of measure the price applies to, as entered.",
  h.CBUORG AS "Quantity break threshold: the price applies at or above this quantity.",
  CASE WHEN h.CBEXDJ IS NULL OR h.CBEXDJ = 0 THEN NULL ELSE DATE_ADD(MAKE_DATE(1900 + CAST(h.CBEXDJ AS INT) DIV 1000, 1, 1), CAST(h.CBEXDJ AS INT) % 1000 - 1) END AS "Expiration date; the record stops applying after this date."  -- CYYDDD Julian → DATE
FROM <catalog>.<schema_data>.f41061 h
LEFT JOIN <catalog>.<schema_data>.f4101 im
  ON im.IMITM = h.CBITM
LEFT JOIN <catalog>.<schema_data>.f0101 ab
  ON ab.ABAN8 = h.CBAN8
LEFT JOIN <catalog>.<schema_data>.f0401 f
  ON f.A6AN8 = h.CBAN8
WHERE
  h.CBMCU = '<MCU>'
  AND h.CBAN8 = <AN8>
  AND h.CBITM = <ITM>
ORDER BY h.CBMCU;