PAI字段内容及变化检查
有两种操作:on input和on request。
触发条件:
on input:字段值不为空后触发检查
on request:字段值变更后触发检查
注意点:
使用ON INPUT时,如果检查的字段参考类型是STRING 或SSTRING,
则该字段在使用ON INPUT检查时,任何情况下都是非空值状态,
即:屏幕每次操作都会触发ON INPUT检查。
系统F1标准解释
语法:
场景一、单个字段单个检查
FIELD <FIELD1>
MODULE <MDL1> [ON INPUT] / [ON REQUEST].
场景二、单个字段多个检查
FIELD <FIELD1>
MODULE: <MDL1> [ON INPUT] / [ON REQUEST],
<MDL2> [ON INPUT] / [ON REQUEST] .
场景三、多个字段单个检查
CHAIN.
FIELD: <FIELD1> ,
<FIELD2> .
MODULE <MDL1> [ON CHAIN-INPUT] / [ON CHAIN-REQUEST].
ENDCHAIN.
主程序
REPORT zwldemo007.
DATA: gv_ok_code_2000 TYPE sy-ucomm.
DATA: gv_io_1 TYPE char40 VALUE '',
gv_io_2 TYPE char40 VALUE '',
gv_io_3 TYPE char40 VALUE '',
gv_io_4 TYPE char40 VALUE ''.
CALL SCREEN 2000.
*&---------------------------------------------------------------------*
*& Module STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_2000 OUTPUT.
SET PF-STATUS 'ZPF_2000'.
SET TITLEBAR 'ZTB_2000'.
ENDMODULE. " STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_2000 INPUT.
CASE gv_ok_code_2000.
WHEN 'BACK' OR 'RETURN' OR 'CANCEL'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
ENDMODULE. " USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
*& Module PAI_CHECK_REQUEST_CASE1 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE pai_check_request_case1 INPUT.
BREAK-POINT.
ENDMODULE. " PAI_CHECK_REQUEST_CASE1 INPUT
*&---------------------------------------------------------------------*
*& Module PAI_CHECK_INPUT_CASE2 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE pai_check_input_case2 INPUT.
BREAK-POINT.
ENDMODULE. " PAI_CHECK_INPUT INPUT
*&---------------------------------------------------------------------*
*& Module PAI_CHECK_REQUEST_CASE2 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE pai_check_request_case2 INPUT.
BREAK-POINT.
ENDMODULE. " PAI_CHECK_REQUEST_CASE2 INPUT
*&---------------------------------------------------------------------*
*& Module PAI_CHECK_REQUEST_CASE3 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE pai_check_request_case3 INPUT.
BREAK-POINT.
ENDMODULE. " PAI_CHECK_REQUEST_CASE3 INPUT
PBO & PAI部分
PROCESS BEFORE OUTPUT.
MODULE status_2000.
*
PROCESS AFTER INPUT.
"场景一、单个字段单个检查
FIELD gv_io_1 MODULE pai_check_request_case1 ON REQUEST.
"场景二、单个字段多个检查
FIELD gv_io_2
MODULE: pai_check_input_case2 ON INPUT,
pai_check_request_case2 ON REQUEST.
"场景三、多个字段单个检查
CHAIN.
FIELD:gv_io_3,
gv_io_4.
MODULE pai_check_request_case3 ON CHAIN-REQUEST.
ENDCHAIN.
MODULE user_command_2000.