模块化--宏

TYPE-POOLS: slis.
  DATA:  i_fieldcat   TYPE STANDARD TABLE OF   slis_fieldcat_alv.
 DATA   gs_fieldcat  LIKE LINE OF   i_fieldcat."参考内表定义工作区域
 
DATA n TYPE i VALUE 1.
 DEFINE  edit_field.
   clear gs_fieldcat.
   gs_fieldcat-col_pos = n.
   gs_fieldcat-fieldname = &1.
   gs_fieldcat-seltext_l  =  &2.
   gs_fieldcat-seltext_m  =  &2.
   gs_fieldcat-seltext_s  =  &2.
   n = n + 1.
   append gs_fieldcat to i_fieldcat.
END-OF-DEFINITION.
本帖隐藏的内容
 
 edit_field  'WERKS'   '分公司'.
 edit_field  'NAME1'   '分公司描述'.
 edit_field  'BERID'   'MRP区域'.
 edit_field  'MATERIAL'   '物料号'.
 edit_field  'MAKTX'   '物料描述'.
 edit_field  'ZYEAR' '年份'.
原文地址:https://www.cnblogs.com/ruingy/p/3521368.html