2.4、系统按钮设计

2.5、逻辑流设计

2.6、输入字段

2.7、OKCODE

2.8、程序设计

REPORT  YTEST20160608.

DATA:FORINPUT(20) TYPE C VALUE '初始值',
     FORCODE(20) TYPE C.
*功能码返回值
DATA:OK_CODE TYPE SY-UCOMM,
     SAVE_OK TYPE SY-UCOMM.

*直接调用窗口
CALL SCREEN 100.
*输出返回变量
WRITE:FORINPUT, / FORCODE.

MODULE STATUS_0100 OUTPUT.
*定义状态条、包括菜单、工具条按钮、系统按钮等
  SET PF-STATUS 'TESTSTA1'.
*将变量值输出至屏幕字段
  FORCODE = SAVE_OK.
ENDMODULE.

MODULE CANCEL INPUT.
  LEAVE PROGRAM.
ENDMODULE.

MODULE USER_COMMAND_0100 INPUT.
  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
*分析功能码，如果是工具条上的第2个按钮，则退出当前屏幕
  CASE SAVE_OK.
    WHEN 'BIN2'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.

2.9、屏幕输出

3、屏幕对象功能

取消多个单选按钮组合单击“分解”菜单


输入输出字段的属性

3.2、数据字典关联字段

在Screen设计过程中，数据字典关联字段可以根据数据字典中定义的透明表、结构等信息，方便地在屏幕上建立与字典关联的文本、输入输出字段。
例如使用 YTJAYSCHOOL学校表，在屏幕上定义相关该表字段，并根据输入的主关键字检索其他字段的信息，并显示到输入输出字段。

本节通过YSH_ID关键字检索数据
新建一个程序并建立一个屏幕后，单击中所示的“字典字段窗口”按钮

REPORT  YTEST20160612.
*功能码返回值
DATA:OK_CODE TYPE SY-UCOMM,
     SAVE_OK TYPE SY-UCOMM.
*使用学校表
TABLES YTJAYSCHOOL.
*直接调用窗口
CALL SCREEN 120.

MODULE CANCEL INPUT.
  LEAVE PROGRAM.
ENDMODULE.

MODULE STATUS_0120 OUTPUT.
  SET PF-STATUS 'STATUS1'.
ENDMODULE.

MODULE USER_COMMAND_0120 INPUT.
  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
  CASE SAVE_OK.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
*将SELECT数据赋给SCHOOL记录，SCHOOL记录关联屏幕字段
  SELECT SINGLE *
    INTO CORRESPONDING FIELDS OF YTJAYSCHOOL
    FROM YTJAYSCHOOL
    WHERE YSH_ID = YTJAYSCHOOL-YSH_ID.
    IF SY-SUBRC NE 0.
      CLEAR YTJAYSCHOOL.
    ENDIF.
ENDMODULE.

在YTJAYSCHOOL-YSH_ID处输入10001，请先查YTJAYSCHOOL表，不要输入错误数据，回车后屏幕显示如下图

4、逻辑流

4.1、顺序执行逻辑流

系统是按照逻辑流的顺序执行的，例如下面的逻辑流(PAI):
PROCESS AFTER INPUT.
  MODULE USER_COMMAND_TEST.
    MODULE CANCEL AT EXIT-COMMAND.
  MODULE USER_COMMAND_0100.
如果单击退出键，那么“MODULE USER_COMMAND_0100”是不会执行的。

4.2、字段检查与逻辑流的控制

相关语法：
1、单个字段检查
FIELD<FLD1>MODULE<MDL1>.

4、不是初始值检查
FIELD<FLD1>MODLE<MDL1>ON INPUT.
ON INPUT表示是初始值改变时执行.
有一个特殊情况：
FIELD<FLD1>MODULE<MDL1>ON *-INPUT
表示用户输入字段首先输入'*'，并且输入字段属性 ，MODULE无效。

4.3、发布消息

PROCESS BEFORE OUTPUT.
  MODULE STATUS_0100.
*检查FLD1、FLD2
PROCESS AFTER INPUT.
  CHAIN.
    FIELD: FLD1,FLD2.
    MODULE CHECK1.
  ENDCHAIN.

*检查FLD3、FLD4
  CHAIN.
    FIELD: FLD3,FLD4.
    MODULE CHECK2.
  ENDCHAIN.

*当FLD2的首字符是*时执行CHECK3检查
  FIELD FLD2 MODULE CHECK3 ON *-INPUT.
  MODULE CANCEL AT EXIT-COMMAND.
  MODULE USER_COMMAND_0100.

REPORT  YTEST20160613.
*功能码返回值
DATA: OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.
*定义输入字段变量
DATA: FLD1(20) TYPE C,
      FLD2(20) TYPE C,
      FLD3(20) TYPE C,
      FLD4(20) TYPE C,
      ACTION(50) TYPE C.
*直接调用窗口
CALL SCREEN 100.

MODULE CANCEL INPUT.
  LEAVE PROGRAM.
ENDMODULE.

MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'STATUS1'.
ENDMODULE.

MODULE USER_COMMAND_0100 INPUT.
  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
  CASE SAVE_OK.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
  ACTION = ''.
  CONCATENATE FLD1 FLD2 FLD3 FLD4 INTO ACTION.
ENDMODULE.

MODULE CHECK1 INPUT.
*当输入FLD1 = 'FLD1'时提示错误，而且不执行PAI
  IF FLD1 = 'FLD1'.
    MESSAGE E005(YMESS) WITH 'FLD1 ERROR'.
  ENDIF.
*当输入FLD1 = 'FLD11'时弹出窗口提示，执行PAI
  IF FLD1 = 'FLD11'.
    MESSAGE I005(YMESS) WITH  'FLD1 WARNING'.
  ENDIF.
*当输入FLD1 = 'FLD111'时输出成功信息，执行PAI
  IF FLD1 = 'FLD111'.
    MESSAGE S005(YMESS) WITH 'FLD1 OK'.
  ENDIF.
ENDMODULE.

MODULE CHECK2 INPUT.
  IF FLD3 = 'FLD3'.
    MESSAGE E005(YMESS) WITH 'FLD3 ERROR'.
  ENDIF.
  IF FLD3 = 'FLD33'.
    MESSAGE I005(YMESS) WITH 'FLD3 WARNING'.
  ENDIF.
  IF FLD3 = 'FLD333'.
    MESSAGE S005(YMESS) WITH 'FLD3 OK'.
  ENDIF.
ENDMODULE.

MODULE CHECK3 INPUT.
  MESSAGE I005(YMESS) WITH 'FLD2 * WARNING'.
ENDMODULE.

5、Listbox下拉框设计

REPORT  YTEST20160613001.
*功能码返回值
DATA: OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.
*VRM类型定义接口
TYPE-POOLS VRM.
DATA: FLD1(20) TYPE C.
*内表、记录，字段变量定义
DATA: FNAME TYPE VRM_ID,
      VVA   TYPE VRM_VALUES,
      LVVA  LIKE LINE OF VVA.
*直接调用窗口
CALL SCREEN 100.

MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'STATUS1'.
*加两条记录
  FNAME = 'FLD1'.
  LVVA-KEY = '广州'.
  APPEND LVVA TO VVA.
  CLEAR LVVA.
  LVVA-KEY = '上海'.
  APPEND LVVA TO VVA.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID = FNAME
      VALUES = VVA
*    EXCEPTIONS
*      ID_ILLEGAL_NAME = 1
*      OTHERS = 2
.
  IF SY-SUBRC <> 0.
*    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDMODULE.

MODULE CANCEL INPUT.
  LEAVE PROGRAM.
ENDMODULE.

MODULE USER_COMMAND_0100 INPUT.
  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
  CASE SAVE_OK.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.