Program a Base Screen with all Mandatory Components as Easy as 1 2 3 in few Seconds

Often when I required to design custom Screen it take much time for build up basic Structure like Creating Screen, PF-Status, Titlebar, adding basic Buttons like (Back, Cancel, Exit and Save) Corresponding Code lines for these buttons,  adding Modules in Flow Logic than Create corresponding Modules in Driver Program, often we need get set courser field and clear OK_CODE.

To get rid of all above time consuming steps I design on Template now I just need to copy this default template to new Program and start working on Basic Structure in a second. So it has made my life easier hope will help all of you to save your time.  Hope it will help the beginners to understand the basics.

Download .nugg file of that Template using link below and install this to your system using SAPLink.
SAPLink Package of Application

After installing active
1. ZFSL_SCREEN_TEMPLATE Main Program
2. 9001 Screen
3. MAIN_PF_STATUS PF-STATUS
4. MAIN_TITLE TITLEBAR

Let’s Start from Step 1

1. Copy the above Program using T-Code SE80 or SE38, give new program name in Target program text box as below.

2. From next window appear Select User Interface and Screens like in following Screen.

3. Give Package and Click save in new or existing transport request.

Your Base is ready, you can build your building now.

–> Double Click above Screen number in the Code it will leads you to the Flow Logic as shown below.

–> Click the Layout Button from the Application Toolbar to go to Screen Painter currently screen is blank you can add components as you require.

–> Now for Changing PF-STATUS or Title just Double Click on the Corresponding option below.

* Main Program Code

*&———————————————————————* *& Report  ZFSL_SCREEN_TEMPLATE *& *&———————————————————————* *& *& *&———————————————————————* REPORT  zfsl_screen_template.  DATA: ok_code_9001  LIKE sy-ucomm,       field         TYPE c LENGTH 50,       line          TYPE i,       offset        TYPE i.   ************************************************************************ *                         START-OF-SELECTION                           * ************************************************************************ START-OF-SELECTION.   CALL SCREEN 9001.  ************************************************************************ *                       PROCESS BEFORE OUTPUT                          * ************************************************************************ *&———————————————————————* *&      Module  DATA_SELECTION_9001  OUTPUT *&———————————————————————* *       text *———————————————————————-* MODULE data_selection_9001 OUTPUT.  ENDMODULE.                 ” DATA_SELECTION_9001  OUTPUT *&———————————————————————* *&      Module  STATUS_9001  OUTPUT *&———————————————————————* *       text *———————————————————————-* MODULE status_9001 OUTPUT.   SET PF-STATUS ‘MAIN_PF_STATUS’.   SET TITLEBAR ‘MAIN_TITLE’. ENDMODULE.                 ” STATUS_9001  OUTPUT *&———————————————————————* *&      Module  CLEAR_OK_CODE_9001  OUTPUT *&———————————————————————* *       text *———————————————————————-* MODULE clear_ok_code_9001 OUTPUT.   CLEAR: ok_code_9001. ENDMODULE.                 ” CLEAR_OK_CODE_9001  OUTPUT *&———————————————————————* *&      Module  SET_CURSOR_FIELD_9001  OUTPUT *&———————————————————————* *       text *———————————————————————-* MODULE set_cursor_field_9001 OUTPUT.   SET CURSOR FIELD field LINE line OFFSET offset. ENDMODULE.                 ” SET_CURSOR_FIELD_9001  OUTPUT  ************************************************************************ *                        PROCESS AFTER INPUT                           * ************************************************************************ *&———————————————————————* *&      Module  EXIT_COMMAND_9001  INPUT *&———————————————————————* *       text *———————————————————————-* MODULE exit_command_9001 INPUT.   CASE ok_code_9001.     WHEN ‘BACK’ OR ‘EXIT’ OR ‘CANCEL’ .       LEAVE PROGRAM.   ENDCASE. ENDMODULE.                 ” EXIT_COMMAND_9001  INPUT *&———————————————————————* *&      Module  GET_CURSOR_FIELD_9001  INPUT *&———————————————————————* *       text *———————————————————————-* MODULE get_cursor_field_9001 INPUT.   GET CURSOR FIELD field LINE line OFFSET offset. ENDMODULE.                 ” GET_CURSOR_FIELD_9001  INPUT *&———————————————————————* *&      Module  IT_OPERATION_9001  INPUT *&———————————————————————* *       text *———————————————————————-* MODULE it_operation_9001 INPUT.  ENDMODULE.                 ” IT_OPERATION_9001  INPUT *&———————————————————————* *&      Module  SAVE_DATA_9001  INPUT *&———————————————————————* *       text *———————————————————————-* MODULE save_data_9001 INPUT.   CASE ok_code_9001.     WHEN ‘SAVE’. *      Write Logic for Save here     WHEN OTHERS.   ENDCASE. ENDMODULE.                 ” SAVE_DATA_9001  INPUT *&———————————————————————* *&      Module  USER_COMMAND_9001  INPUT *&———————————————————————* *       text *———————————————————————-* MODULE user_command_9001 INPUT.  ENDMODULE.                 ” USER_COMMAND_9001  INPUT

* Flow Logic of Screen 9001

******************************************************************** *                     PROCESS BEFORE OUTPUT                        * ******************************************************************** PROCESS BEFORE OUTPUT.   MODULE data_selection_9001.   MODULE status_9001.   MODULE clear_ok_code_9001.   MODULE set_cursor_field_9001.  ******************************************************************** *                      PROCESS AFTER INPUT                         * ******************************************************************** PROCESS AFTER INPUT.   MODULE exit_command_9001 AT EXIT-COMMAND.   MODULE get_cursor_field_9001.   MODULE it_operation_9001.   MODULE save_data_9001.   MODULE user_command_9001.