ABAP使用内表实现F4帮助功能示例

*&---------------------------------------------------------------------*
*&                                      *
*&                                                                     *
*&---------------------------------------------------------------------*
*&  对程序Z_BARRY_CDHDR_CDPOS的改进                                    *
*&---------------------------------------------------------------------*
REPORT  ZTEST .                
TYPE-POOLS slis.
DATA : cdhdr TYPE cdhdr.
SELECT-OPTIONS :
        s_objcls FOR cdhdr-objectclas OBLIGATORY NO INTERVALS ,
        s_objtid FOR cdhdr-objectid,
        s_chngnr FOR cdhdr-changenr,
        s_usrnam FOR cdhdr-username ,"DEFAULT sy-uname,
        s_udate  FOR cdhdr-udate    DEFAULT sy-datum OBLIGATORY,
        s_time   FOR cdhdr-utime,
        s_tcode  FOR cdhdr-tcode,
        s_plncnr FOR cdhdr-planchngnr,
        s_chngno FOR cdhdr-act_chngno,
        s_wsplnd FOR cdhdr-was_plannd,
        s_chngid FOR cdhdr-change_ind.
SELECTION-SCREEN SKIP.
PARAMETERS p_max TYPE TBMAXSEL OBLIGATORY DEFAULT '200'.
TYPES: BEGIN OF ty_s_cdhdr.
        INCLUDE STRUCTURE cdhdr.
TYPES:   checkbox,
       END OF ty_s_cdhdr.
TYPES:  BEGIN OF ty_s_cdred.
        INCLUDE STRUCTURE cdred.
TYPES:    checkbox,

        END OF ty_s_cdred.
DATA : gs_layout TYPE slis_layout_alv,
       t_cdhdr TYPE TABLE OF ty_s_cdhdr.
DATA: BEGIN OF itab_obj OCCURS 10,
        objcls TYPE text20,
        objdes TYPE text40,
      END OF itab_obj.
DEFINE m_sort.
  add 1 to ls_sort-spos.
  ls_sort-fieldname = &1.
  ls_sort-up = 'X'.
  append ls_sort to lt_sort.
END-OF-DEFINITION.
DATA :
  ls_cdhdr TYPE ty_s_cdhdr,
  ls_sort  TYPE slis_sortinfo_alv,
  lt_sort  TYPE slis_t_sortinfo_alv,
  lt_cdred TYPE TABLE OF ty_s_cdred.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_objcls-low .
  PERFORM objclsf4.
INITIALIZATION.
  PERFORM fillitab USING: 'INFOSATZ' '采购信息记录',
                          'ORDERBUCH' '货源清单',
                          'EINKBELEG' '采购订单',
                          'MAT_FULL' 'Material' ,
                          'MATERIAL' '物料主数据' ,
                          'KRED' '供货商主数据',
                          'ADRESSE' '地址',
                          'COND_A' '条件',
                          'DEBI' '客户主档',