SAP-abap学习记录（29）

*&---------------------------------------------------------------------*
*& Report  ZTEST_ABAP_29
*&
*&---------------------------------------------------------------------*
*&screen综合应用以及输入自动检测
*&
*&尚未解决问题：要按了执行之后才会有input1的判断反馈结果
*&---------------------------------------------------------------------*
REPORT ZTEST_ABAP_29.

DATA: OKCODE LIKE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM,
      input1 TYPE i,
      input2 TYPE i,
      input3 TYPE i.

START-OF-SELECTION.

  CALL SCREEN 100.


MODULE status_0100 OUTPUT.
  SET PF-STATUS 'TOOL_BAR'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.



MODULE exit INPUT.

  CASE SY-UCOMM.

    WHEN 'EXIT'.
      LEAVE PROGRAM.

  ENDCASE.

ENDMODULE.

MODULE user_command_0100 INPUT.

  SAVE_OK = OKCODE.
  CLEAR OKCODE.
  CASE SAVE_OK.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'EXEC'.
      DATA: RES(100) TYPE C VALUE 'EXECSSSSSSS'.
      MESSAGE I001(00) WITH RES.
  ENDCASE.

ENDMODULE.


MODULE module_1 INPUT.

  IF input1 < 50.
    MESSAGE E005(YMESS) WITH 'input1 < 50'.
  ENDIF.

ENDMODULE.