SAP QM Inspection Lot ABAP SELECT Generator (QALS and QAVE)

REPORT z_qm_lots_with_ud.

TYPES: BEGIN OF ty_lot,
         prueflos TYPE qals-prueflos,
         werk     TYPE qals-werk,
         matnr    TYPE qals-matnr,
         art      TYPE qals-art,
         herkunft TYPE qals-herkunft,
         enstehdat TYPE qals-enstehdat,
         losmenge TYPE qals-losmenge,
         vcode    TYPE qave-vcode,
         vcodegrp TYPE qave-vcodegrp,
         vdatum   TYPE qave-vdatum,
       END OF ty_lot.

DATA lt_lots TYPE STANDARD TABLE OF ty_lot WITH EMPTY KEY.

SELECT a~prueflos, a~werk, a~matnr, a~art, a~herkunft,
       a~enstehdat, a~losmenge, b~vcode, b~vcodegrp, b~vdatum
  FROM qals AS a
  INNER JOIN qave AS b ON b~prueflos = a~prueflos
  WHERE a~werk = '1000'
    AND a~art = '01'
    AND a~enstehdat >= '20260101'
    AND b~vcode = 'A'
  ORDER BY a~prueflos
  INTO TABLE @lt_lots
  UP TO 500 ROWS.

IF sy-subrc <> 0.
  WRITE / 'No inspection lots found.'.
  RETURN.
ENDIF.

LOOP AT lt_lots ASSIGNING FIELD-SYMBOL(<ls_lot>).
  WRITE: / <ls_lot>-prueflos, <ls_lot>-matnr, <ls_lot>-vcode, <ls_lot>-vdatum.
ENDLOOP.

SELECT a~prueflos, a~werk, a~matnr, a~art, a~enstehdat
  FROM qals AS a
  LEFT OUTER JOIN qave AS b ON b~prueflos = a~prueflos
  WHERE a~werk = '1000'
    AND a~art = '01'
    AND a~enstehdat >= '20260101'
    AND b~prueflos IS NULL
  INTO TABLE @DATA(lt_open)
  UP TO 500 ROWS.