ABAP_自定义屏幕05—输入输出

ABAP_自定义屏幕05—输入输出

输入输出：文本框、单选、多选

1、创建一个简单的屏幕

屏幕要有有OK_CODE

REPORT  zcsdn_lion_custom05.

DATA ok_code LIKE sy-ucomm.
DATA my_code LIKE sy-ucomm.

START-OF-SELECTION.
  CALL SCREEN '2000'.


*------     Module  STATUS_2000  OUTPUT      --------*
MODULE status_2000 OUTPUT.
  SET PF-STATUS 'TOOLS'.
  SET TITLEBAR 'TITLE'.

ENDMODULE.                 " STATUS_2000  OUTPUT


*---------  Module  USER_COMMAND_2000  INPUT -------*
MODULE user_command_2000 INPUT.
  my_code = ok_code.
  CLEAR ok_code.

  CASE my_code.
    WHEN '&EXIT'.
      LEAVE TO SCREEN 0.
  ENDCASE.

ENDMODULE.                 " USER_COMMAN