Screen process with ABAP OO

At last I have find time to write this 🙂 . If you find anything wrong pls let me know.

As all you know screen process in ABAP has two main block PBO ( Process before output ) and PAI ( Process after input ). All screen has this block.

For dialog program I used this.

So we can declare a parent screen object for all screen which we use in program.

Definition:

CLASS lcl_screen DEFINITION ABSTRACT.
   PUBLIC SECTION.
METHODS : constructor
                IMPORTING
                  i_dynnr TYPE sy-dynnr.
 * All screen process
     METHODS : pbo ABSTRACT,
               pai ABSTRACT
                IMPORTING
                  fcode TYPE sy-ucomm
                RETURNING value(r_fcode) TYPE sy-ucomm,
               free ABSTRACT.
 * Exit-command
     METHODS : exit_command
                IMPORTING
                  fcode TYPE sy-ucomm.
 * Screen static methods
     CLASS-METHODS : get_screen
                      IMPORTING
                        i_dynnr TYPE sy-dynnr
                      RETURNING value(r_screen) TYPE REF TO lcl_screen.
     CLASS-METHODS : del_screen
                      IMPORTING
                        i_dynnr TYPE sy-dynnr.
PRIVATE SECTION.
     DATA : screen TYPE sy-dynnr.
     TYPES : BEGIN OF lst_screen,
              screen TYPE REF TO lcl_screen,
             END OF lst_screen.
     CLASS-DATA : t_screen TYPE STANDARD TABLE OF lst_screen.
     CONSTANTS : c_class_name TYPE string VALUE 'LCL_SCREEN'.
ENDCLASS.                    "lcl_screen DEFINITION

Implementation

CLASS lcl_screen IMPLEMENTATION.
   METHOD constructor.
     screen = i_dynnr."Which screen
   ENDMETHOD.                    "constructor
   METHOD exit_command.
     CASE fcode.
       WHEN 'EXIT'.
         LEAVE PROGRAM.
     ENDCASE.
   ENDMETHOD.                    "exit_command
   METHOD get_screen.
     DATA : ls_screen TYPE lst_screen,
            lv_type TYPE string.
     READ TABLE t_screen
           INTO ls_screen
       WITH KEY screen->screen = i_dynnr.
     IF sy-subrc NE 0.
       CONCATENATE c_class_name
                   i_dynnr
              INTO lv_type
         SEPARATED BY '_'.
       CREATE OBJECT ls_screen-screen TYPE (lv_type)
         EXPORTING
           i_dynnr = i_dynnr.
       APPEND ls_screen
           TO t_screen.
     ENDIF.
     r_screen ?= ls_screen-screen.
   ENDMETHOD.                    "get_screen
   METHOD del_screen.
     DATA : ls_screen TYPE lst_screen,
            lv_type TYPE string.
     READ TABLE t_screen
           INTO ls_screen
       WITH KEY screen->screen = i_dynnr.
     IF sy-subrc NE 0.
 * Screen doesnt exist
       RETURN.
     ENDIF.
     ls_screen-screen->free( ).
     DELETE t_screen
      WHERE screen->screen = i_dynnr.
   ENDMETHOD.                    "del_screen
ENDCLASS.                    "lcl_screen IMPLEMENTATION

In get_screen method, to decide which screen object will be created, logic is all screen object start with LCL_SCREEN_ and last 4 character is screen number. If screen object is not created, we create object and adding it to object table then returning screen object. If it is created just returning the object.

lets create our first screen :

And screen module is:

 MODULE pbo OUTPUT.
   lcl_screen=>get_screen( sy-dynnr )->pbo( ).
 ENDMODULE.                 " PBO  OUTPUT
MODULE pai INPUT.
   gv_okcode = lcl_screen=>get_screen( sy-dynnr )->pai( gv_okcode ).
 ENDMODULE.                 " PAI  INPUT
MODULE exit_command INPUT.
   lcl_screen=>get_screen( sy-dynnr )->exit_command( gv_okcode ).
 ENDMODULE.                 " EXIT_COMMAND  INPUT

Now lets create screen 9000 object

Definition

CLASS lcl_screen_9000 DEFINITION INHERITING FROM lcl_screen FINAL.
   PUBLIC SECTION.
     METHODS : pbo REDEFINITION,
               pai REDEFINITION,
               free REDEFINITION.
   PRIVATE SECTION.
 * Screen 9000 methods
     METHODS : set_exclude
                RETURNING value(rt_ex) TYPE status_excl_fcode_tt.
 ENDCLASS.                    "lcl_screen_9000 DEFINITION

Implementation

CLASS lcl_screen_9000 IMPLEMENTATION.
   METHOD pbo.
     DATA : lt_ex TYPE status_excl_fcode_tt.
     lt_ex = set_exclude( ).
     SET PF-STATUS 'STATUS_9000' EXCLUDING lt_ex.
     SET TITLEBAR '9000'.
   ENDMETHOD.                    "pbo
   METHOD set_exclude.
     DATA : lv_ex TYPE fcode.
     lv_ex = 'SAVE'.
     APPEND lv_ex
         TO rt_ex.
   ENDMETHOD.                    "set_exclude
   METHOD pai.
     CASE fcode.
       WHEN 'BACK'.
           LEAVE TO SCREEN 0.
     ENDCASE.
   ENDMETHOD.                    "pai
   METHOD free.
 * If we declare global object data, we can clear or refresh here!
   ENDMETHOD.                    "free
 ENDCLASS.                    "lcl_screen_9000 IMPLEMENTATION

As you can see screen releated methods can be declare in screen object.

like set_exclude method.

If a method is global for all screen we can add to lcl_screen for example POPUP_TO_CONFIRM function. we can add this method to lcl_screen

TYPES : ty_text(400) TYPE c.
     METHODS : call_popup
                IMPORTING
                  i_title TYPE text60
                  i_text  TYPE ty_text
                RETURNING value(r_answer) TYPE char1.

METHOD call_popup.
     CALL FUNCTION 'POPUP_TO_CONFIRM'
       EXPORTING
         titlebar       = i_title
         text_question  = i_text
       IMPORTING
         answer         = r_answer
       EXCEPTIONS
         text_not_found = 1
         OTHERS         = 2.
     IF sy-subrc <> 0.
 * Implement suitable error handling here
     ENDIF.
   ENDMETHOD.                    "call_popup

Now we can use this method in all screen.

METHOD pai.
     CASE fcode.
       WHEN 'BACK'.
IF call_popup( i_title = text-006
                           i_text  = text-007 ) EQ '1'.
           LEAVE TO SCREEN 0.
         ENDIF.
     ENDCASE.
   ENDMETHOD.                    "pai

If we need to create ALV object in one screen we can add this to screen like, or picture element. Just we need to do declare screen object inherited from lcl_screen.

I hope you like it.

Have a nice day.