【ABAP】 开发一个获取程序/增强/类/表等清单的程序

 程序可查看系统内开发的程序增强等清单 便于管理开发清单

REPORT  zpro_list.

TABLES:usr21,sscrfields..
TYPE-POOLS:slis.
DATA reposrc TYPE reposrc.

TYPES:BEGIN OF ty_text,
           zindex      TYPE p,
           ztext       TYPE char100,
           zdescribe   TYPE char200,
      END OF ty_text.

CONSTANTS:lc_x        TYPE char01 VALUE 'X',
          lc_p        TYPE char01 VALUE 'P',
          lc_p_t      TYPE char10 VALUE '程序',
          lc_r        TYPE char01 VALUE 'R',
          lc_r_t      TYPE char10 VALUE 'RFC',
          lc_c        TYPE char01 VALUE 'C',
          lc_c_t      TYPE char10 VALUE 'CLASS',
          lc_t        TYPE char01 VALUE 'T',
          lc_t_t      TYPE char10 VALUE 'TABLE',
          lc_b        TYPE char01 VALUE 'B',
          lc_b_t      TYPE char10 VALUE 'BADI',
          lc_e        TYPE char01 VALUE 'E',
          lc_e_t      TYPE char10 VALUE 'CMOD',
          lc_o        TYPE char01 VALUE 'O',
          lc_o_t      TYPE char10 VALUE 'ODATA',
          lc_prog     TYPE char10 VALUE 'PROG',
          lc_fugr     TYPE char10 VALUE 'FUGR',
          lc_r3tr     TYPE char10 VALUE 'R3TR',
          lc_iwpr     TYPE char10 VALUE 'IWPR',
          lc_tabl     TYPE char10 VALUE 'TABL',
          lc_clas     TYPE char10 VALUE 'CLAS',
          lc_tabclass TYPE char10 VALUE 'TABCLASS'
          .
*&------------------------------------------------------------------------------------------------------------------------
*& TEXT
*&------------------------------------------------------------------------------------------------------------------------
CONSTANTS: versionno TYPE string VALUE '1.3.1'.
CONSTANTS: tables TYPE string VALUE 'TABLES'.
CONSTANTS: table TYPE string VALUE 'TABLE'.
CONSTANTS: like TYPE string VALUE 'LIKE'.
CONSTANTS: type TYPE string VALUE 'TYPE'.
CONSTANTS: typerefto TYPE string VALUE 'TYPE REF TO'.
CONSTANTS: structure TYPE string VALUE 'STRUCTURE'.
CONSTANTS: lowstructure TYPE string VALUE 'structure'.
CONSTANTS: occurs TYPE string VALUE 'OCCURS'.
CONSTANTS: function TYPE string VALUE 'FUNCTION'.
CONSTANTS: callfunction TYPE string VALUE ' CALL FUNCTION'.
CONSTANTS: message TYPE string  VALUE 'MESSAGE'.
CONSTANTS: include TYPE string VALUE 'INCLUDE'.
CONSTANTS: lowinclude TYPE string VALUE 'include'.
CONSTANTS: destination TYPE string VALUE 'DESTINATION'.
CONSTANTS: is_table TYPE string VALUE 'T'.
CONSTANTS: is_program TYPE string VALUE 'P'.
CONSTANTS: is_screen TYPE string VALUE 'S'.
CONSTANTS: is_guititle TYPE string VALUE 'G'.
CONSTANTS: is_documentation TYPE string VALUE 'D'.
CONSTANTS: is_messageclass TYPE string VALUE 'MC'.
CONSTANTS: is_function TYPE string VALUE 'F'.
CONSTANTS: is_class TYPE string VALUE 'C'.
CONSTANTS: is_method TYPE string VALUE 'M'.
CONSTANTS: asterix TYPE string VALUE '*'.
CONSTANTS: comma TYPE string VALUE ','.
CONSTANTS: period TYPE string VALUE '.'.
CONSTANTS: dash TYPE string VALUE '-'.
CONSTANTS: true TYPE i VALUE 1.
CONSTANTS: false TYPE i VALUE 0.
CONSTANTS: lt TYPE string VALUE '<'.
CONSTANTS: gt TYPE string VALUE '>'.
CONSTANTS: unix TYPE string VALUE 'UNIX'.
CONSTANTS: non_unix TYPE string VALUE 'not UNIX'.
CONSTANTS: background_colour TYPE string VALUE '#FFFFE0'.
CONSTANTS: colour_white TYPE string VALUE '#FFFFFF'.
CONSTANTS: colour_black TYPE string VALUE '#000000'.
CONSTANTS: colour_yellow TYPE string VALUE '#FFFF00'.
CONSTANTS: comment_colour TYPE string VALUE '#0000FF'.
CONSTANTS: htmlextension TYPE string VALUE 'html'.
CONSTANTS: textextension TYPE string VALUE 'txt'.

    TYPES: BEGIN OF tdicttablestructure,
         fieldname LIKE dd03l-fieldname,
         position  LIKE dd03l-position,
         keyflag   LIKE dd03l-keyflag,
         rollname  LIKE dd03l-rollname,
         domname   LIKE dd03l-domname,
         datatype  LIKE dd03l-datatype,
         leng      LIKE dd03l-leng,
         ddtext    LIKE dd04t-ddtext,
       END OF tdicttablestructure.

      TYPES: ttexttable LIKE textpool.

* Message classes
TYPES: BEGIN OF tmessage,
         arbgb LIKE t100-arbgb,
         stext LIKE t100a-stext,
         msgnr LIKE t100-msgnr,
         text  LIKE t100-text,
       END OF tmessage.

* Include program names
TYPES: BEGIN OF tinclude,
         includename LIKE trdir-name,
         includetitle LIKE tftit-stext,
       END OF tinclude.

* Holds a tables attributes + its definition
TYPES: BEGIN OF tdicttable,
         tablename    LIKE dd03l-tabname,
         tabletitle   LIKE dd02t-ddtext,
         istructure TYPE tdicttablestructure OCCURS 0,
       END OF tdicttable.

* GUI titles
TYPES: tguititle LIKE d347t.

* Screen flow.
TYPES: BEGIN OF tscreenflow,
         screen LIKE d020s-dnum,
         code LIKE d022s-line,
       END OF tscreenflow.

TYPES: BEGIN OF tfunction,
         functionname LIKE tfdir-funcname,
         functiongroup LIKE enlfdir-area,
         includenumber LIKE tfdir-include,
         functionmaininclude LIKE tfdir-funcname,
         functiontitle LIKE tftit-stext,
         topincludename LIKE tfdir-funcname,
         progname LIKE tfdir-pname,
         programlinkname LIKE tfdir-pname,
         messageclass LIKE t100-arbgb,
         itextelements TYPE ttexttable OCCURS 0,
         iselectiontexts TYPE ttexttable OCCURS 0,
         imessages TYPE tmessage OCCURS 0,
         iincludes TYPE tinclude OCCURS 0,
         idictstruct TYPE tdicttable OCCURS 0,
         iguititle TYPE tguititle OCCURS 0,
         iscreenflow TYPE tscreenflow OCCURS 0,
       END OF tfunction.

TYPES: BEGIN OF tprogram,
         progname LIKE trdir-name,
         programtitle LIKE tftit-stext,
         subc LIKE trdir-subc,
         messageclass LIKE t100-arbgb,
         imessages TYPE tmessage OCCURS 0,
         itextelements TYPE ttexttable OCCURS 0,
         iselectiontexts TYPE ttexttable OCCURS 0,
         iguititle TYPE tguititle OCCURS 0,
         iscreenflow TYPE tscreenflow OCCURS 0,
         iincludes TYPE tinclude OCCURS 0,
         idictstruct TYPE tdicttable OCCURS 0,
       END OF tprogram.

DATA: objruntimeerror TYPE REF TO cx_root.



DATA: dumiincludes TYPE STANDARD TABLE OF tinclude.
DATA: dumiguititle TYPE STANDARD TABLE OF tguititle.
DATA: dumitexttab TYPE STANDARD TABLE OF ttexttable.
DATA: idictionary TYPE STANDARD TABLE OF tdicttable WITH HEADER LINE.
DATA: dumidictstructure TYPE STANDARD TABLE OF tdicttablestructure.
DATA: imessages TYPE STANDARD TABLE OF tmessage WITH HEADER LINE.
DATA: iprograms TYPE STANDARD TABLE OF tprogram WITH HEADER LINE.



RANGES: sofunctionname  FOR tfdir-funcname.
RANGES: sofunctiongroup FOR enlfdir-area.
RANGES: soauthor FOR usr02-bname.
RANGES: soprogramname FOR trdir-name.
*&------------------------------------------------------------------------------------------------------------------------
*& TEXT
*&------------------------------------------------------------------------------------------------------------------------
**  定义布局和样式
DATA: w_layout   TYPE lvc_s_layo,
      t_fieldcat TYPE lvc_t_fcat.

DATA :gt_events TYPE slis_t_event,
      gv_grid   TYPE REF TO cl_gui_alv_grid. " ALV 对象

TYPES: BEGIN OF ty_data,
         zzbox         TYPE char01,
         name          TYPE dwinactiv-obj_name,             "识别名称
         progname      TYPE reposrc-progname,               "SE38程序名
         funcname      TYPE tftit-funcname,                 "SE37程序名
         clsname       TYPE seoclassdf-clsname     ,        "class名
         pname         TYPE tfdir-pname,                    "接口程序名
         projekt       TYPE modattr-name,                   "客户出口名称
         cust_inc      TYPE tadir-obj_name,                 "客户出口INCLUDE
         devclass      TYPE tadir-devclass,                 "Package
         fctgrp        TYPE rs38l-area,                     "函数组
         mod           TYPE tfdir-pname,                    "客户原始的SMOD
         imp_name      TYPE sxc_attr-imp_name,              "BADI
         tabclass      TYPE dd02vv-tabclass,                "表类型
         ddtext        TYPE dd07t-ddtext,                   "表类型描述fctgrp
         text          TYPE trdirt-text,                    "描述
         r3state       TYPE reposrc-r3state,                "状态
         codetype      TYPE char1,                          "类型 （P se38   R  SE37   C SE24  T SE11   B SE19 E CMOD O SEGW)
         codetext      TYPE char10,                         "类型 （P se38   R  SE37   C SE24  T SE11   B SE19 E CMOD O SEGW)
         cnam          TYPE reposrc-cnam,                   "创建人
         cdat          TYPE reposrc-cdat,                   "创建日期
         ctime         TYPE reposrc-utime,                 "创建时间
         unam          TYPE reposrc-unam,                   "最后修改人
         udat          TYPE reposrc-udat,                   "最后修改日期
         utime         TYPE reposrc-utime,                  "最后修改时间
         creation_time TYPE /iwbep/i_sbd_pr-creation_time,  "创建时间戳
         last_chg_time TYPE /iwbep/i_sbd_pr-last_chg_time,  "最后修改时间戳
*        text     TYPE trdirt-text,
       END OF ty_data.
DATA:ls_sbd_fp    TYPE          /iwbep/i_sbd_fp,  "odata数据处理工作区
     ls_data      TYPE          ty_data,
     gs_data      TYPE          ty_data,
     gt_data      TYPE TABLE OF ty_data,       "
     lt_data      TYPE TABLE OF ty_data,
     lt_text      TYPE TABLE OF ty_text,
     ls_text      TYPE          ty_text,
     lt_data_p    TYPE TABLE OF ty_data,     "se38程序
     lt_data_r    TYPE TABLE OF ty_data,     "SE37程序
     lt_data_c    TYPE TABLE OF ty_data,     "SE24程序
     lt_data_t    TYPE TABLE OF ty_data,     "table
     lt_data_b    TYPE TABLE OF ty_data,     "BADI
     lt_data_e    TYPE TABLE OF ty_data,     "EXIT
     lt_data_o    TYPE TABLE OF ty_data,     "ODATA
     lt_data_temp TYPE TABLE OF ty_data,     "中间处理表
     lt_sbd_fp    TYPE TABLE OF /iwbep/i_sbd_fp.  "odata数据处理表

DATA:lt_dwinactiv TYPE TABLE OF dwinactiv,
     lt_tstc      TYPE TABLE OF tstc,
     lt_sxc_attrt TYPE TABLE OF sxc_attrt,
     ls_sxc_attrt TYPE          sxc_attrt,
     lt_tftit     TYPE TABLE OF tftit,
     ls_tftit     TYPE          tftit,
     lt_trdirt    TYPE TABLE OF trdirt,
     ls_trdirt    TYPE          trdirt.

DATA: ifunctions TYPE STANDARD TABLE OF tfunction WITH HEADER LINE.


SELECTION-SCREEN FUNCTION KEY 1.

SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE title1.

  SELECT-OPTIONS : s_name       FOR reposrc-progname,   "程序名
                   s_r3st       FOR reposrc-r3state,    "程序状态
                   s_cnam       FOR usr21-bname,       "创建者
                   s_unam       FOR reposrc-unam.       "最后修改者
*                 s_type       FOR reposrc-varcl .     "程序类信息  P se38程序   R  SE37 程序  C SE24程序  T table（还没有加）


SELECTION-SCREEN END OF BLOCK blk.

SELECTION-SCREEN BEGIN OF BLOCK b2k WITH FRAME TITLE title2.
  PARAMETERS: p_p AS CHECKBOX,
              p_r AS CHECKBOX,
              p_c AS CHECKBOX,
              p_t AS CHECKBOX,
              p_b AS CHECKBOX,
              p_e AS CHECKBOX,
              p_o AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b2k.


SELECTION-SCREEN BEGIN OF BLOCK b3k WITH FRAME TITLE title3.
  PARAMETERS: p_x1 RADIOBUTTON GROUP gp1 DEFAULT 'X',
              p_x2 RADIOBUTTON GROUP gp1.

SELECTION-SCREEN END OF BLOCK b3k.

INITIALIZATION.

  %_s_name_%_app_%-text = '程序名'.
  %_s_r3st_%_app_%-text = '程序状态'.
  %_s_cnam_%_app_%-text = '创建者'.
  %_s_unam_%_app_%-text = '最后修改者'.

  %_p_p_%_app_%-text = '报表'.
  %_p_r_%_app_%-text = '接口'.
  %_p_c_%_app_%-text = 'CLASS'.
  %_p_t_%_app_%-text = '表'.
  %_p_b_%_app_%-text = 'BADI'.
  %_p_e_%_app_%-text = 'CMOD'.
  %_p_o_%_app_%-text = 'ODATA'.
  %_p_x1_%_app_%-text = '查询'.
  %_p_x2_%_app_%-text = '小功能合集'.
  sscrfields-functxt_01 = '@0S@使用说明'.
  sscrfields-functxt_02 = '@0S@小功能合集内容'.

  title1 = '条件选择'.
  title2 = '显示类型'.
  title3 = '功能选择'.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'FC01'.
    MESSAGE '请谨慎使用本程序' TYPE 'I'.
  ENDIF.
  IF sscrfields-ucomm = 'FC02'.
    MESSAGE '使用sql查询数据、视图转换查询' TYPE 'I'.
  ENDIF.

START-OF-SELECTION.                      "获取数据"
  PERFORM get_data.                       "获取数据

END-OF-SELECTION.                        "执行完后“

  PERFORM frm_alv_show.    "   alV显示设置

*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_data .

  IF p_p  = lc_x.
    PERFORM get_progname.
    APPEND LINES OF lt_data_p[] TO lt_data[].
  ENDIF.

  IF p_r  = lc_x.
    PERFORM get_rfc.
    APPEND LINES OF lt_data_r[] TO lt_data[].
  ENDIF.

  IF p_c  = lc_x.
    PERFORM get_class.
    APPEND LINES OF lt_data_c[] TO lt_data[].
  ENDIF.

  IF p_t  = lc_x.
    PERFORM get_table.
    APPEND LINES OF lt_data_t[] TO lt_data[].
  ENDIF.

  IF p_b  = lc_x.
    PERFORM get_badi.
    APPEND LINES OF lt_data_b[] TO lt_data[].
  ENDIF.

  IF p_e  = lc_x.
    PERFORM get_exit.
    APPEND LINES OF lt_data_e[] TO lt_data[].
  ENDIF.

  IF p_o  = lc_x.
    PERFORM get_odata.
    APPEND LINES OF lt_data_o[] TO lt_data[].
  ENDIF.

  DELETE lt_data WHERE unam NOT IN s_unam.

  IF lt_data[] IS INITIAL.
    MESSAGE '选择数据为空，请检查输入' TYPE 'E' .

  ENDIF.

ENDFORM.                    " get_data
*&---------------------------------------------------------------------*
*&      Form  frm_layout
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_layout .

  w_layout-zebra = 'X'.
  w_layout-box_fname = 'ZZBOX'.

ENDFORM.                    " frm_layout
*&---------------------------------------------------------------------*
*&      Form  frm_fieldcat
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_fieldcat .
  DATA:lv_p_name TYPE char256.
  IF p_r = lc_x.
    lv_p_name = '接口'.
  ENDIF.

  IF p_e = lc_x.
    IF lv_p_name IS INITIAL.
      lv_p_name = 'CMOD'.
    ELSE.
      lv_p_name = lv_p_name && '/CMOD'.
    ENDIF.

  ENDIF.

  PERFORM frm_cell_fldcat USING      'NAME'       '程序名（双击跳转TCODE）'        '' 'X' '' ''.
  IF lv_p_name IS NOT INITIAL.
    PERFORM frm_cell_fldcat USING    'PNAME'      lv_p_name    '' '' '' ''.
  ENDIF.
  IF p_r IS NOT INITIAL.
    PERFORM frm_cell_fldcat USING    'FCTGRP'      '函数组'    '' '' '' ''.
  ENDIF.
  PERFORM  frm_cell_fldcat USING    'TEXT'       '描述（双击获取详细信息）'          '' '' '' ''.
  PERFORM  frm_cell_fldcat USING    'R3STATE'    '状态'          '' '' '' ''.
  IF p_t  = lc_x.
    PERFORM  frm_cell_fldcat USING 'DDTEXT'     '表类型'        '' '' '' ''.
  ENDIF.
*  PERFORM  frm_cell_fldcat USING 'CODETYPE'   '类型'          '' '' '' ''.
  PERFORM  frm_cell_fldcat USING 'CODETEXT'   '类型描述'      '' '' '' ''.
  PERFORM  frm_cell_fldcat USING 'DEVCLASS'   'Package'      '' '' '' ''.
  PERFORM  frm_cell_fldcat USING 'CNAM'       '创建人'        '' '' '' ''.
  PERFORM  frm_cell_fldcat USING 'CDAT'       '创建日期'      '' '' '' ''.
  PERFORM  frm_cell_fldcat USING 'UNAM'       '最后修改人'    '' '' '' ''.
  PERFORM  frm_cell_fldcat USING 'UDAT'       '最后修改日期'  '' '' '' ''.
  PERFORM  frm_cell_fldcat USING 'UTIME'      '最后修改时间'  '' '' '' ''.

ENDFORM.                    "frm_fieldcat
*&---------------------------------------------------------------------*
*&      Form  frm_display
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_display.

  DATA: lw_grid_settings TYPE lvc_s_glay.
  lw_grid_settings-edt_cll_cb = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program      = sy-repid
      is_layout_lvc           = w_layout
      it_fieldcat_lvc         = t_fieldcat
      i_grid_settings         = lw_grid_settings
      i_callback_user_command = 'FRM_USER_COMMAND'
*     i_callback_pf_status_set = 'FRM_STATUS_SET'
      it_events               = gt_events[]      "分屏显示
    TABLES
      t_outtab                = lt_data.

ENDFORM.                    " frm_display
*&---------------------------------------------------------------------*
*&      Form  frm_cell_fldcat
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0181   text
*      -->P_0182   text
*      -->P_0183   text
*      -->P_0184   text
*      -->P_0185   text
*      -->P_0186   text
*----------------------------------------------------------------------*
FORM frm_cell_fldcat USING u_fieldname
                               u_text
                               u_edit
                               u_no_zero
                               u_reftable
                               u_reffield.

  DATA: lw_fieldcat TYPE lvc_s_fcat.
  CLEAR lw_fieldcat.
  lw_fieldcat-fieldname = u_fieldname.
  lw_fieldcat-scrtext_l = u_text.
  lw_fieldcat-scrtext_m = u_text.
  lw_fieldcat-scrtext_s = u_text.
  lw_fieldcat-edit      = u_edit.
  lw_fieldcat-no_zero   = u_no_zero.
  lw_fieldcat-ref_table = u_reftable.
  lw_fieldcat-ref_field = u_reffield.
  lw_fieldcat-col_opt   = 'X'.

  APPEND lw_fieldcat TO t_fieldcat.

ENDFORM.                    " frm_cell_fldcat
*&---------------------------------------------------------------------*
*&      Form  frm_user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_UCOMM        text
*      -->P_RS_SELFIELD  text
*----------------------------------------------------------------------*
FORM frm_user_command USING p_ucomm TYPE sy-ucomm
                            rs_selfield TYPE slis_selfield.
  DATA: ref TYPE REF TO cl_gui_alv_grid.
  CLEAR:lt_text[].

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = ref.
  CALL METHOD ref->check_changed_data.
*    save_ok  = p_ucomm.

  DATA:fid(20).
  DATA:num(20).
  CASE p_ucomm.
    WHEN '&IC1'.
       num = rs_selfield-tabindex .
        CASE rs_selfield-fieldname.
          WHEN 'TEXT'.     "获取帮助开发消息
        READ TABLE lt_data INTO ls_data INDEX num.
        IF sy-subrc = 0.

          IF ls_data-codetype = 'R'.
            "接口
             PERFORM get_rfc_text TABLES lt_text[] CHANGING ls_data-name.

          ELSEIF ls_data-codetype = 'P'.

             PERFORM get_program_text TABLES lt_text[] CHANGING ls_data-name.

          ELSEIF ls_data-codetype = 'C'.

             PERFORM get_class_text TABLES lt_text[] CHANGING ls_data-name.

          ELSEIF ls_data-codetype = 'T'.

             PERFORM get_table_text TABLES lt_text[] CHANGING ls_data-name.

          ELSEIF ls_data-codetype = 'B'.

             PERFORM get_badi_text TABLES lt_text[] CHANGING ls_data-name.

          ELSEIF ls_data-codetype = 'E'.

             PERFORM get_exit_text TABLES lt_text[] CHANGING ls_data-name.

          ELSEIF ls_data-codetype = 'O'.

             PERFORM get_odata_text TABLES lt_text[] CHANGING ls_data-name.

          ELSE.
            MESSAGE '暂时不支持此类型' TYPE 'S' DISPLAY LIKE 'E'.
          ENDIF.
          cl_demo_output=>display( lt_text[] ).
         ENDIF.
          WHEN 'NAME'.   "根据名字跳转到对应的程序中

      "双击跳转至对应的程序中。
      IF   rs_selfield-tabindex IS NOT INITIAL.

        num = rs_selfield-tabindex .
        READ TABLE lt_data INTO ls_data INDEX num.
        IF sy-subrc = 0.

          IF ls_data-codetype = 'R'.

            SET PARAMETER ID 'LIB' FIELD ls_data-name.
            CALL TRANSACTION 'SE37'.  "AND SKIP FIRST SCREEN.

          ELSEIF ls_data-codetype = 'P'.

            SET PARAMETER ID 'RID' FIELD ls_data-name.
            CALL TRANSACTION 'SE38'.

          ELSEIF ls_data-codetype = 'C'.

            SET PARAMETER ID 'CLASS' FIELD ls_data-name.
            CALL TRANSACTION 'SE24' .

          ELSEIF ls_data-codetype = 'T'.
            IF ls_data-tabclass = 'INTTAB'. "结构  由于结构可能名字超过表格，单端传值
              SET PARAMETER ID 'DTYP' FIELD ls_data-name.
            ELSE.
              SET PARAMETER ID 'DTB' FIELD ls_data-name.
            ENDIF.

            CALL TRANSACTION 'SE11'.

          ELSEIF ls_data-codetype = 'B'.

            SET PARAMETER ID 'IMN' FIELD ls_data-name.
            CALL TRANSACTION 'SE19'.

          ELSEIF ls_data-codetype = 'E'.

            SET PARAMETER ID 'MON_KUN' FIELD ls_data-pname.
            CALL TRANSACTION 'CMOD'  .
          ELSEIF ls_data-codetype = 'O'.
            SELECT * FROM /iwbep/i_sbd_fp INTO TABLE lt_sbd_fp WHERE uname = sy-uname AND project = ls_data-name.
              IF sy-subrc <> 0.
                CLEAR ls_sbd_fp.
                ls_sbd_fp-uname   = sy-uname.
                ls_sbd_fp-project   = ls_data-name.
                INSERT /iwbep/i_sbd_fp FROM ls_sbd_fp.
                COMMIT WORK AND WAIT.
              ENDIF.
              CALL TRANSACTION 'SEGW'.
          ELSE.
            MESSAGE '暂时不支持此类型' TYPE 'S' DISPLAY LIKE 'E'.
          ENDIF.
        ENDIF.
      ENDIF.
      case 'TABCLASS'."如果是表类型的  检查表的看是否可以使用SE16N查询数据




      ENDCASE.

    WHEN OTHERS.
      MESSAGE '没有开发功能' TYPE 'S' DISPLAY LIKE 'E'.
      "gt_alv-top_line = top_line.
  ENDCASE.
*  PERFORM frm_refresh_alv.
  rs_selfield-refresh = 'X'.
  ENDCASE.
ENDFORM. "frm_user_command
*&---------------------------------------------------------------------*
*&      Form  FRM_REFRESH_ALV
*&---------------------------------------------------------------------*
*       text  刷新程序
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_refresh_alv .

  DATA: ls_stable TYPE lvc_s_stbl.    "刷新稳定
  ls_stable-row = 'X'.
  ls_stable-col = 'X'.

  CALL METHOD gv_grid->refresh_table_display  "刷新方法
    EXPORTING
      is_stable      = ls_stable
      i_soft_refresh = 'X'
    EXCEPTIONS
      finished       = 1
      OTHERS         = 2.

ENDFORM.                    " FRM_REFRESH_ALV
FORM frm_alv_show .
  PERFORM get_events.
  PERFORM frm_layout.      "   设置layout
  PERFORM frm_fieldcat.    "   设置fieldcat
  PERFORM frm_display.     "   调用函数显示alv
ENDFORM.                    " FRM_ALV_SHOW
*&---------------------------------------------------------------------*
*&      Form  GET_EVENTS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_events .
  DATA w_event TYPE LINE OF slis_t_event.
  w_event-name = slis_ev_top_of_page.
  w_event-form = 'FRM_TOP_OF_PAGE'.

  APPEND w_event TO gt_events.
ENDFORM.                    " GET_EVENTS
*&---------------------------------------------------------------------*
*&      Form  FRM_TOP_OF_PAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_top_of_page .
  DATA:lv_total_lines TYPE char6,
       lv_p_lines     TYPE char6,
       lv_r_lines