Favoriten exportieren Bsp. 1

Hier ein kleines Hilfsprogramm zum Export der Favoriten.

Z_SAP_FAVORITE_EXPORT

*&---------------------------------------------------------------------*

*& Report  Z_SAP_FAVORITE_EXPORT


*&---------------------------------------------------------------------*


*& Demo program to export data from a user favorite menu

*&---------------------------------------------------------------------*

REPORT  Z_SAP_FAVORITE_EXPORT2.

TABLES smen_buffc.

*TYPES: gtt_smen_c TYPE TABLE OF smen_buffc.

data: gt_smen_c TYPE TABLE OF smen_buffc,

      gv_smen_c like LINE OF gt_smen_c.

data: begin of gs_file,

        rtype     like smen_buffc-reporttype,

        parent_id like smen_buffc-parent_id,

        object_id like smen_buffc-object_id,

        tcode     like smen_buffc-report,

        text      like smen_buffc-text,

        sap_guid  like smen_buffc-sap_guid,

     end   of gs_file.

          .

  select * from smen_buffc into table gt_smen_c where uname = SY-UNAME.

*  check sy-subrc eq 0.

  loop at gt_smen_c into gv_smen_c.

    clear gs_file.

    gs_file-rtype     = gv_smen_c-reporttype.

    gs_file-parent_id = gv_smen_c-parent_id.

    gs_file-object_id = gv_smen_c-object_id.

    gs_file-tcode     = gv_smen_c-report.

    gs_file-sap_guid  = gv_smen_c-sap_guid.

    gs_file-text      = gv_smen_c-text.

    write:/ gs_file-rtype, gs_file-tcode, gs_file-text.

  endloop.

Teilen mit: