REPORT zinactive_programs.
*—database tables used
TABLES: dwinactiv .
*—types used
TYPES: BEGIN OF ty_tab.
        INCLUDE STRUCTURE dwinactiv.
TYPES: END OF  ty_tab.
*–internal tables used
DATA: itab TYPE TABLE OF ty_tab WITH HEADER LINE.
*—selection screen
SELECT-OPTIONS: s_uname FOR dwinactiv-uname.
*—start of selection
START-OF-SELECTION.
perform get_data.
END-OF-SELECTION.
perform display_data.
*&———————————————————————*
*&      Form  get_data
*———————————————————————-*
form get_data .
  SELECT   object
           obj_name
           uname
           delet_flag
           FROM  dwinactiv
           INTO TABLE itab
           WHERE uname IN s_uname.
sort itab by uname.
endform.                    ” get_data
*&———————————————————————*
*&      Form  display_data
*———————————————————————-*
form display_data .
  LOOP AT itab .
    on change of itab-uname.
    format color 7.
    WRITE:/ itab-uname .
    write:/ ‘in active objects under user is :’.
    format color off.
    ENDon.
    write:/1   itab-object,
           35   itab-obj_name,
           120   itab-delet_flag.
  ENDLOOP.
endform.                    ” display_data

Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com