Creating Dialog

Program Name        : YPRACTICE_DIALOG_101

Title                : 101 - Create GUI Status and Title

*----------------------------------------------------------------------*

*GLOBAL VARIABLE DECRALATION

*----------------------------------------------------------------------*

DATA : ok_code LIKE sy-ucomm,

       save_ok LIKE sy-ucomm.

3.	Click "" to save the program

Display Steps

▪ Click "" to show all object ▪ Right click on Object Tree, and select "Screen"   ▪ Enter screen number "2000" and then press "" Notes : avoid using Screen number "1000", because this number is used by SAP to generated default screen.   ▪ Fill Short description with "First Screen"   ▪ Click "Element List" tab ▪ Fill on the blank cell with "OK_CODE" ▪ Click "Flow logic" tab ▪ Change the source code like this bellow Before PROCESS BEFORE OUTPUT. * MODULE STATUS_2000. * PROCESS AFTER INPUT. * MODULE USER_COMMAND_2000.   After PROCESS BEFORE OUTPUT. MODULE STATUS_2000. * PROCESS AFTER INPUT. MODULE USER_COMMAND_2000.   ▪ Click "" to save Screen 2000 ▪ Double click on text "STATUS_2000"   ▪ Click "" button ▪ Select "YPRACTICE_DIALOG_101" and Click "" to create new module STATUS_2000   ▪ Automatically this source cobe is written by SAP. *&---------------------------------------------------------------------* *&      Module  STATUS_2000  OUTPUT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* module STATUS_2000 output. *  SET PF-STATUS 'xxxxxxxx'. *  SET TITLEBAR 'xxx'.   endmodule.                 " STATUS_2000  OUTPUT   ▪ Double click "" to open screen 2000 ▪ Click "Flow logic" tab ▪ Double click on text "USER_COMMAND_2000" ▪ Click "" button ▪ Select "YPRACTICE_DIALOG_101" and Click "" to create new module USER_COMMAND_2000 ▪ Select "YPRACTICE_DIALOG_101" and Click "" to create new module STATUS_2000 ▪ Automatically this source code is written by SAP. *&---------------------------------------------------------------------* *&      Module  USER_COMMAND_2000  INPUT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* module USER_COMMAND_2000 input.   endmodule.                 " USER_COMMAND_2000  INPUT ▪ Click "" to save the program

Display Steps

▪ Right Click on Object Tree ▪ Fill Status with "ST_2000" and Short Text with "GUI Status for Screen 2000" ▪ Click "" ▪ Open Function Key ▪ Choose Standard Toolbar and enter BACK on icon number 3 from the left ▪ Click "" to save GUI Status ▪ Double click "" and back to Source Code

Before

*&---------------------------------------------------------------------*

*&      Module  STATUS_2000  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

*  SET PF-STATUS 'xxxxxxxx'.

*  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_2000  OUTPUT

After

*&---------------------------------------------------------------------*

*&      Module  STATUS_2000  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

  SET PF-STATUS 'ST_2000'.

  *  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_2000  OUTPUT

7.	Click "" to save the program

Display Steps

▪ Right Click on Object Tree ▪ Fill Title Code with "TL_2000" and Title with "Practice ABAP Dialog Programming" ▪ Click "" ▪ Click "" to save GUI Title ▪ Double click "" and back to Source Code

Before

*&---------------------------------------------------------------------*

*&      Module  STATUS_2000  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

*  SET PF-STATUS 'xxxxxxxx'.

*  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_2000  OUTPUT

After

*&---------------------------------------------------------------------*

*&      Module  STATUS_2000  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

  SET PF-STATUS 'ST_2000'.

  SET TITLEBAR 'TL_2000'.

endmodule.                 " STATUS_2000  OUTPUT

Before

*&---------------------------------------------------------------------*

*&      Module  USER_COMMAND_2000  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

module USER_COMMAND_2000 input.

endmodule.                 " USER_COMMAND_2000  INPUT

After

*&---------------------------------------------------------------------*

*&      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 OTHERS.

  ENDCASE.

  CLEAR ok_code.

ENDMODULE.                 " USER_COMMAND_2000  INPUT

...

DATA : ok_code LIKE sy-ucomm,

       save_ok LIKE sy-ucomm.

*----------------------------------------------------------------------*

*Set First Screen to Displayed

*----------------------------------------------------------------------*

call screen 2000.

*&---------------------------------------------------------------------*

*&      Module  STATUS_2000  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

module STATUS_2000 output.

...

12.	Click "" and click ""

14.	Click "" to activate the program

Result