SAP Change Number BOM ABAP SELECT Generator (AENR, MAST, STPO)

REPORT ZENG_CHANGE_BOM_ITEMS.

PARAMETERS: p_aennr TYPE aennr DEFAULT 'ECN0004711',
            p_werks TYPE werks_d DEFAULT '1000',
            p_stlan TYPE stlan DEFAULT '1'.

TYPES: BEGIN OF ty_item,
         matnr TYPE matnr,
         werks TYPE werks_d,
         stlan TYPE stlan,
         stlnr TYPE stnum,
         stlal TYPE stalt,
         stlkn TYPE stlkn,
         idnrk TYPE idnrk,
         menge TYPE kmpmg,
         meins TYPE kmpme,
         aennr TYPE aennr,
         datuv TYPE datuv,
         lkenz TYPE lkenz,
       END OF ty_item.

DATA lt_items TYPE STANDARD TABLE OF ty_item WITH EMPTY KEY.

SELECT m~matnr, m~werks, m~stlan, m~stlnr, m~stlal,
       p~stlkn, p~idnrk, p~menge, p~meins,
       p~aennr, p~datuv, p~lkenz
  FROM mast AS m
  INNER JOIN stpo AS p
    ON p~stlty = 'M'
   AND p~stlnr = m~stlnr
  WHERE m~werks = @p_werks
    AND m~stlan = @p_stlan
    AND p~aennr = @p_aennr
  ORDER BY m~matnr, p~stlkn
  INTO CORRESPONDING FIELDS OF TABLE @lt_items.

IF sy-subrc <> 0.
  WRITE: / 'No BOM items found for change number', p_aennr.
  RETURN.
ENDIF.

SELECT SINGLE aennr, datuv, aenst, aegru
  FROM aenr
  WHERE aennr = @p_aennr
  INTO @DATA(ls_aenr).

WRITE: / 'Change number:', ls_aenr-aennr,
       / 'Valid from:', ls_aenr-datuv,
       / 'Status:', ls_aenr-aenst,
       / 'Reason:', ls_aenr-aegru.

LOOP AT lt_items ASSIGNING FIELD-SYMBOL(<ls_item>).
  WRITE: / <ls_item>-matnr, <ls_item>-stlkn, <ls_item>-idnrk,
           <ls_item>-menge, <ls_item>-meins,
           <ls_item>-datuv, <ls_item>-lkenz.
ENDLOOP.

" Read-only report. Does not change BOMs or change master data.