JD Edwards F3002 Multi-Level BOM Explosion SQL

WITH parent_item AS (
  SELECT IMITM FROM CRPDTA.F4101 WHERE IMLITM = '1001'
),
bom (lvl, parent_itm, comp_itm, cpnt, qty_per, ext_qty, stkt) AS (
  SELECT 1,
         x.IXKIT,
         x.IXITM,
         x.IXCPNT,
         x.IXQNTY / 1,
         CASE WHEN x.IXFORQ = 'F' THEN x.IXQNTY / 1
              ELSE 1 * x.IXQNTY / 1 END,
         b.IBSTKT
  FROM   CRPDTA.F3002 x
  JOIN   parent_item p ON p.IMITM = x.IXKIT
  LEFT JOIN CRPDTA.F4102 b ON b.IBITM = x.IXITM AND b.IBMCU = x.IXMMCU
  WHERE  LTRIM(RTRIM(x.IXMMCU)) = '30'
    AND  x.IXTBM = 'M'
    AND  x.IXBQTY = 0
    AND  x.IXEFFF <= 126295 AND x.IXEFFT >= 126295
  UNION ALL
  SELECT c.lvl + 1,
         x.IXKIT,
         x.IXITM,
         x.IXCPNT,
         x.IXQNTY / 1,
         CASE WHEN x.IXFORQ = 'F' THEN x.IXQNTY / 1
              ELSE c.ext_qty * x.IXQNTY / 1 END,
         b.IBSTKT
  FROM   bom c
  JOIN   CRPDTA.F3002 x ON x.IXKIT = c.comp_itm
  LEFT JOIN CRPDTA.F4102 b ON b.IBITM = x.IXITM AND b.IBMCU = x.IXMMCU
  WHERE  LTRIM(RTRIM(x.IXMMCU)) = '30'
    AND  x.IXTBM = 'M'
    AND  x.IXBQTY = 0
    AND  x.IXEFFF <= 126295 AND x.IXEFFT >= 126295
    AND  NVL(c.stkt, ' ') <> 'P'
    AND  c.lvl < 10
)
SEARCH DEPTH FIRST BY cpnt SET seq
CYCLE comp_itm SET is_cycle TO 'Y' DEFAULT 'N'
SELECT c.lvl,
       LPAD(' ', 2 * (c.lvl - 1)) || i.IMLITM AS component,
       i.IMDSC1   AS description,
       c.qty_per,
       c.ext_qty  AS extended_qty,
       c.stkt     AS stocking_type,
       c.is_cycle
FROM   bom c
LEFT JOIN CRPDTA.F4101 i ON i.IMITM = c.comp_itm
ORDER  BY c.seq;

SELECT m.WMDOCO,
       m.WMCPNT,
       i.IMLITM,
       i.IMDSC1,
       m.WMUORG                AS qty_required,
       m.WMTRQT                AS qty_issued,
       m.WMUORG - m.WMTRQT     AS qty_still_to_issue
FROM   CRPDTA.F3111 m
LEFT JOIN CRPDTA.F4101 i ON i.IMITM = m.WMCPIT
WHERE  m.WMDOCO = 100245
ORDER  BY m.WMCPNT;

-- SQL Server: drop the SEARCH and CYCLE clauses (add your own cycle guard),
-- replace NVL with ISNULL and || with +, cast IMLITM as needed,
-- carry a sort path column (CAST(... AS VARCHAR(4000))) to order depth first,
-- and add OPTION (MAXRECURSION 100) after the final ORDER BY.