SAP Outline Agreement Expiry Report ABAP SELECT Generator

REPORT ZMM_CONTRACT_EXPIRY.

TABLES: ekko.

PARAMETERS: p_days TYPE i DEFAULT 90,
            p_bstyp TYPE ekko-bstyp DEFAULT 'K'.
SELECT-OPTIONS: s_ekorg FOR ekko-ekorg,
                s_lifnr FOR ekko-lifnr.

TYPES: BEGIN OF ty_out,
         ebeln TYPE ekko-ebeln,
         bsart TYPE ekko-bsart,
         lifnr TYPE ekko-lifnr,
         ekorg TYPE ekko-ekorg,
         ekgrp TYPE ekko-ekgrp,
         kdatb TYPE ekko-kdatb,
         kdate TYPE ekko-kdate,
         items TYPE i,
         days_left TYPE i,
       END OF ty_out.

DATA: lt_out TYPE STANDARD TABLE OF ty_out,
      lv_limit TYPE d.

START-OF-SELECTION.
  lv_limit = sy-datum + p_days.

  SELECT k~ebeln, k~bsart, k~lifnr, k~ekorg, k~ekgrp, k~kdatb, k~kdate,
         COUNT( * ) AS items
    FROM ekko AS k
    INNER JOIN ekpo AS p ON p~ebeln = k~ebeln
    WHERE k~bstyp = @p_bstyp
      AND k~kdate BETWEEN @sy-datum AND @lv_limit
      AND k~ekorg IN @s_ekorg
      AND k~lifnr IN @s_lifnr
      AND p~loekz = @space
    GROUP BY k~ebeln, k~bsart, k~lifnr, k~ekorg, k~ekgrp, k~kdatb, k~kdate
    ORDER BY k~kdate
    INTO CORRESPONDING FIELDS OF TABLE @lt_out.

  LOOP AT lt_out ASSIGNING FIELD-SYMBOL(<fs>).
    <fs>-days_left = <fs>-kdate - sy-datum.
  ENDLOOP.

  cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
                          CHANGING  t_table      = lt_out ).
  lo_alv->get_functions( )->set_all( abap_true ).
  lo_alv->display( ).

EKKO-BSTYP: K = contract, L = scheduling agreement.
EKKO-KDATB: start of validity period.
EKKO-KDATE: end of validity period.
EKKO-EKORG: purchasing organization. EKKO-EKGRP: purchasing group.
EKPO-LOEKZ: deletion indicator on the item.
To open a contract from the list, use transaction ME33K (display contract) or ME33L (display scheduling agreement).