SAP WM Bin Stock LQUA ABAP Report Generator

DATA: lv_cutoff TYPE sy-datum.

TYPES: BEGIN OF ty_quant,
         lgnum TYPE lqua-lgnum,
         lgtyp TYPE lqua-lgtyp,
         lgpla TYPE lqua-lgpla,
         matnr TYPE lqua-matnr,
         werks TYPE lqua-werks,
         lgort TYPE lqua-lgort,
         charg TYPE lqua-charg,
         verme TYPE lqua-verme,
         meins TYPE lqua-meins,
         wdatu TYPE lqua-wdatu,
       END OF ty_quant.

DATA lt_quant TYPE STANDARD TABLE OF ty_quant.

lv_cutoff = sy-datum - 180.

SELECT lgnum lgtyp lgpla matnr werks lgort charg verme meins wdatu
  FROM lqua
  INTO CORRESPONDING FIELDS OF TABLE lt_quant
  UP TO 10000 ROWS
  WHERE lgnum = '100'
    AND lgtyp = '001'
    AND werks = '1000'
    AND wdatu <= lv_cutoff
  ORDER BY wdatu.

TYPES: BEGIN OF ty_bin_sum,
         lgpla  TYPE lqua-lgpla,
         quants TYPE i,
         qty    TYPE lqua-verme,
       END OF ty_bin_sum.

DATA lt_bin_sum TYPE STANDARD TABLE OF ty_bin_sum.

SELECT lgpla
       COUNT( * ) AS quants
       SUM( verme ) AS qty
  FROM lqua
  INTO CORRESPONDING FIELDS OF TABLE lt_bin_sum
  WHERE lgnum = '100'
    AND lgtyp = '001'
  GROUP BY lgpla
  HAVING COUNT( * ) > 1.

* VERME is the available quantity in the quant. GESME is the total including stock in movement.
* WDATU is the goods receipt date of the quant, used here as stock age.
* Bins with more than one quant are mixed stock or multi batch bins, which is useful for checking bin type rules.