可执行程序点执行的时候,状态栏默认就是一个执行按钮
SELECTION-SCREEN: FUNCTION KEY 1.
SELECTION-SCREEN: FUNCTION KEY 2.
有时候需要添加功能
选择屏幕的,如果用
SET
PF-STATUS
'xxxxxxxx'
. 设置 status是不行的,
此时可以利用
SSCRFIELDS
首先声明:
TABLES
: sscrfields
.
然后定义选择屏幕
PARAMETERS:
p_file LIKE rlgrap-filename ."OBLIGATORY. "上传文件路径
SELECTION-SCREEN:
SELECTION-SCREEN:
这个时候,就给屏幕上加了两个功能码
之后:
INITIALIZATION.
sscrfields-functxt_01 = ‘查询’.
sscrfields-functxt_02 = ‘下载模板’.
调用的时候,
AT
SELECTION-SCREEN
.
CASE
sscrfields-ucomm.
WHEN
'FC01'
.
"查询
CALL
SELECTION-SCREEN
0300
.
WHEN
'FC02'
.
"下载模板
PERFORM frm_down_file
.
WHEN
'ONLI'
.
"执行
PERFORM frm_execute
.
WHEN
OTHERS
.
ENDCASE
.
具体对应的 PAI 触发的功能代码 ,debug看一下就行了
效果如图: