动态内表显示（Function alv）

• 转载资料推荐
  1、ABAP动态内表（示例）
  ————————
  https://www.jianshu.com/p/48b520a2bf62

• 主要实现代码

DATA: BEGIN OF gt_data OCCURS 0,
        aufnr(12),
        plnbez       LIKE afko-plnbez,
        maktx        LIKE makt-maktx,
        lgort        LIKE resb-lgort,
        zztext       LIKE aufk-zztext,
        sgt_scat     LIKE afpo-sgt_scat,
        verid        LIKE mkal-verid,
        gstrp        LIKE afko-gstrp,
        gltrp        LIKE afko-gltrp,
        wrf_charstc1 LIKE wrf_charvalt-atwrt,
        atwtb1       LIKE wrf_charvalt-atwtb,
        wrf_charstc2 LIKE wrf_charvalt-atwrt,
        atwtb2       LIKE wrf_charvalt-atwtb,
        wrf_charstc3 LIKE wrf_charvalt-atwrt,
        atwtb3       LIKE wrf_charvalt-atwtb,
        gamng        LIKE afko-gamng,
        gamng2       LIKE afko-gamng,
        gmein        LIKE afko-gmein,
        ebeln        LIKE ekko-ebeln,
        ebelp        LIKE ekpo-ebelp,
        zzaufnr_h    LIKE zpp013c001-zzaufnr_h,
        zzaufnr_i    LIKE zpp013c001-zzaufnr_i,
        posnr        LIKE zpp013c001-posnr,
        vornr        LIKE plpo-vornr,
        aufnr_new    LIKE afko-aufnr,
        err_type     TYPE c,
        message(200) TYPE c,
        r0001        TYPE c, "第一個生產版本沒有維護routing = 'X'
      END OF gt_data.
      ...
DATA:gt_fieldcat TYPE lvc_t_fcat,
     gs_fieldcat TYPE lvc_s_fcat,
     gs_layout   TYPE lvc_s_layo.

DATA gv_pos TYPE i .
DEFINE add_fieldcat .
  CLEAR gs_fieldcat.
  gv_pos = gv_po