().Screen 设计

    TABLES: SSCRFIELDS.

    PARAMETERS: P_EBLEN LIKE VBRK-EBLEN DEFAULT ' '.

    PARAMETERS: P_CK1 AS CHECKBOX DEFAULT 'X'.

    PARAMETERS: P_CK2 AS CHECKBOX.

    PARAMETERS: P_RAD1 RADIOBUTTON GROUP SG1 DEFAULT 'X'.

    PARAMETERS: P_RAD2 RADIOBUTTON GROUP SG1 .

    SELECT-OPTIONS: S_EBLEN FOR VBRK-EBLEN NO-EXTENSTION. “无后边的箭头

    SELECT-OPTIONS: S_EBLEN FOR VBRK-EBLEN NO INTERVALS. ”无到后边的选项

    SELECTION-SCREEN SKIP . "产生空行

    SELECTION-SCREEN BEGIN OF LINE . "将元素排列到一行

    SELECTION-SCREEN END OF LINE.

    SELECTION-SCREEN ULINE. "画直线

    SELECTION-SCREEN COMMENT () TEXT-."屏幕上输出文本

    SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-.

    SELECTION-SCREEN END OF BLOCK BK1.

    SELECTION-SCREEN PUSHBUTTON () TEXT- USER-COMMAND BUT1. "产生按钮

    SELECTION-SCREEN FUNCTION KEY . "工具条按钮 最多为5个.

    PARAMETERS: <P> .... MEMORY ID <PID>. "从全局SAP内存(SPA/GPA参数)使用缺省值

    SET PARAMETERS ID 'HK' FIELD 'Test Parameters' "以'HK'为名称在全局SAP内存中存储值.

    PARAMETERS: P_TEST() TYPE C MEMORY ID HK. "使用缺省值

    GET PARAMETERS ID ' ' FIELD ' '.

    INITIALIZATION.

    SSCRFIELDS-FUNCTXT_01 = 'Button 1'.

    SSCRFIELDS-UCOMM = 'FC01'.

    ().修改Screen

    NAME              “字段名称

    GROUP1            ”字段组1

    GROUP2            “字段组2

    GROUP3            ”字段组3

    GROUP4            “字段组4

    ACTIVE            ”可见并准备输入的字段

    REQUIRED          “强制输入的字段

    INPUT             ”字段准备输入

    OUTPUT            ”字段仅用来显示

    INTENSIFIED       ”高亮显示字段

    INVISIBLE         “字段不可见

    LENGTH            “设置字段长度

    DISPLAY_3D        “以3围框架显示字段

    VALUE_HELP        ”显示有值帮助的字段

    在PBO模块中对字段进行属性修改

    MODULE MODIFY_SCREEN OUTPUT.

    LOOP AT SCREEN.

    CHECK SCREEN-GROUP1 = 'MOD'.

    SCREEN-INPUT = .

    MODIFY SCREEN.

    ENDLOOP.

    ENDMODULE.

   () 使用子屏幕

    CALL SUBSCREEN <AREA> INCLUDING <PROGRAM> <SCREEN>

    ()设置光标位置

    SET CURSOR FIELD <FIELD_NAME> OFFSEY <POSITION> 设置光标的特定位置

    ()设置下一个屏幕

    SET SCREEN <SCREEN_NUMBER>.

    CALL SCREEN <SCREEN_NUMBER>.调用新的屏幕序列

    LEAVE TO SCREEN .

    SET SCREEN .

    LEAVE SCREEN.

    ()后台处理屏幕

    可以使用SUPPRESS DIALOG 取消所有屏幕.

    *---------PBO MODULE OF SCREEN .

    CALL SCREEN  STARTING AT  .

    *---------SCREEN  FLOW LOGIC

    MODULE DIALOG_WINDOWS OUTPUT.

    SUPPRESS DIALOG.

    LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN .

    WRITE: /.

    WRITE: /.

    ENDMODULE.

    ()报表及选择屏幕事件过程

    报表事件过程

    INITIALIZATION 用于屏幕初始化，例如屏幕字段默认值的填充

    START-OF-SELECTION

    END-OF-SELECTION

    选择屏幕事件 在INITIALIZATION之前 STATR-OF-SELECTION之后触发

    AT SELECTION-SCREEN OUTPUT."对选择屏幕字段进行修改

    AT SELECTION-SCREEN INPUT.

    处理特殊输入字段

    AT SELECTION-SCREEN ON <FIELD>

    创建值输入列表

    AT SELECTION-SCREEN ON VALUE-REQUEST FOR <FIELD>.

    创建输入字段的帮助

    AT SELECTION-SCREEN ON HELP-REQUEST FOE <FIELD>.

    处理单选按钮组

    AT SELECTION-SCREEN ON RADIOBUTTON GROUP <RADIO>

    处理输入字段块

    AT SELECTION-SCREEN ON BLOCK <BK1>.

标准选择屏幕include 控件

SELECTION-SCREEN INCLUDE BLOCKS: B01, B00.