*&---------------------------------------------------------------------*
*& Report Z100
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z100 MESSAGE-ID ZHQ NO STANDARD PAGE HEADING.
TABLES SSCRFIELDS.
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
SELECTION-SCREEN FUNCTION KEY 3.
PARAMETERS P_FILE TYPE RLGRAP-FILENAME OBLIGATORY.
INITIALIZATION.
TYPE-POOLS ICON. "第一种方法:引入图标
SSCRFIELDS-FUNCTXT_01 = '@3N@下载模板'.
WRITE ICON_ICON_LIST AS ICON TO SSCRFIELDS-FUNCTXT_02+0(4).
SSCRFIELDS-FUNCTXT_02+4(*) = '发起OA流程审批'.
WRITE ICON_BIW_INFO_CATALOG AS ICON TO SSCRFIELDS-FUNCTXT_03+0(4).
SSCRFIELDS-FUNCTXT_03+4(*) = '下载报表'.
AT SELECTION-SCREEN.
DATA UCOMM TYPE SYUCOMM.
UCOMM = SSCRFIELDS-UCOMM.
MESSAGE S000 WITH UCOMM DISPLAY LIKE 'E'.
IF UCOMM = 'FC01'.
MESSAGE '开始下载导入模板...' TYPE 'I'.
ENDIF.
START-OF-SELECTION.
MESSAGE '导入成功' TYPE 'I'.
END-OF-SELECTION.
标签：UCOMM,SELECTION,SSCRFIELDS,FUNCTXT,DBC,TYPE,上传,模板,ICON From： https://www.cnblogs.com/hua900822/p/17656675.html