SAP PM Open Maintenance Orders ABAP SELECT Generator

REPORT ZPM_OPEN_ORDERS.

TYPES: BEGIN OF ty_order,
         aufnr TYPE aufk-aufnr,
         auart TYPE aufk-auart,
         ktext TYPE aufk-ktext,
         erdat TYPE aufk-erdat,
         equnr TYPE afih-equnr,
         tplnr TYPE afih-tplnr,
         ingrp TYPE afih-ingrp,
       END OF ty_order.

DATA lt_orders TYPE STANDARD TABLE OF ty_order WITH EMPTY KEY.
DATA lv_werks  TYPE aufk-werks VALUE '1000'.
DATA lv_auart  TYPE aufk-auart VALUE 'PM01'.
DATA lv_ingrp  TYPE afih-ingrp VALUE '001'.

SELECT k~aufnr, k~auart, k~ktext, k~erdat, h~equnr, h~tplnr, h~ingrp
  FROM aufk AS k
  INNER JOIN afih AS h ON h~aufnr = k~aufnr
  WHERE k~werks = @lv_werks
    AND k~auart = @lv_auart
    AND h~ingrp = @lv_ingrp
    AND NOT EXISTS ( SELECT objnr FROM jest
                       WHERE objnr = k~objnr
                         AND stat IN ( 'I0045', 'I0046' )
                         AND inact = @abap_false )
  ORDER BY k~aufnr
  INTO TABLE @lt_orders
  UP TO 500 ROWS.

IF sy-subrc <> 0.
  WRITE / 'No open orders found'.
ENDIF.

LOOP AT lt_orders INTO DATA(ls_order).
  WRITE: / ls_order-aufnr, ls_order-auart, ls_order-equnr, ls_order-tplnr, ls_order-ktext.
ENDLOOP.

SELECT j~stat, COUNT( * ) AS cnt
  FROM aufk AS k
  INNER JOIN jest AS j ON j~objnr = k~objnr
  WHERE k~werks = @lv_werks
    AND k~auart = @lv_auart
    AND j~inact = @abap_false
  GROUP BY j~stat
  ORDER BY cnt DESCENDING
  INTO TABLE @DATA(lt_status_counts).