|
<< Click to Display Table of Contents >> Navigation: All About ABAP Technique > ABAP Source Code > YPRACTICE_DIALOG_102 |
*&---------------------------------------------------------------------*
*& Report YPRACTICE_DIALOG_102 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ypractice_dialog_102 .
*----------------------------------------------------------------------*
*GLOBAL VARIABLE DECRALATION
*----------------------------------------------------------------------*
DATA : ok_code LIKE sy-ucomm,
save_ok LIKE sy-ucomm.
DATA : gv_text(32) VALUE 'TextBox'.
*----------------------------------------------------------------------*
*Set First Screen to Displayed
*----------------------------------------------------------------------*
CALL SCREEN 2000.
*&---------------------------------------------------------------------*
*& Module STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_2000 OUTPUT.
SET PF-STATUS 'ST_2000'.
SET TITLEBAR 'TL_2000'.
ENDMODULE. " STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_2000 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'CHANGE'.
IF gv_text = 'TextBox'.
gv_text = 'www.sap-interface.com'.
ELSE.
gv_text = 'TextBox'.
ENDIF.
WHEN OTHERS.
ENDCASE.
CLEAR ok_code.
ENDMODULE. " USER_COMMAND_2000 INPUT