Question on Logic of seperation in OOAbap-Selection screen

Question

Hello guys
I like to ask you one question i found and get your ideas.
If you look at the codes for creating an ALV
it always recommends you to seperate logic and business layer etc..
this is the new way of creating an ALV
So you have  a model view and a controller
I implemented that following useful resources.
So that there s class called view
and the selection screen gets called from there inside the method
like
    call SELECTION-SCREEN 100.
     IF sy-subrc EQ 0.
     ENDIF.
But one issue when you execute the report and press GO BACK standard button it doesnot come back to your selection screen but way to your code.
Is there a get around to that?
here is the code below:
Header 1
*& Report  ZZ_SOLEN_FIRST
REPORT ZZ_SOLEN_FIRST.
DATA: gv_vbeln type vbap-Vbeln.
***Screen
SELECTION-SCREEN: BEGIN OF SCREEN 100 TITLE t-004.
SELECTION-SCREEN: BEGIN OF block aa WITH FRAME TITLE t-001.
SELECT-OPTIONS: s_vbeln FOR gv_vbeln.
SELECTion-SCREEN: END OF block aa.
SELECTion-SCREEN: END OF SCREEN 100.
*****DATA Layer
class lcl_data DEFINITION.
   PUBLIC SECTION.
     TYPES: BEGIN OF ty_out,
       vbeln type vbap-vbeln,
       posnr type vbap-posnr,
       matnr type vbap-matnr,
       vkorg type vbak-vkorg,
       END OF ty_out
     TYPES: tt_out TYPE STANDARD TABLE OF ty_out.
     TYPES: gr_vbeln TYPE RANGE OF vbap-vbeln.
     DATA: gt_output TYPE tt_out.
     methods: constructor,
              select_data IMPORTING VALUE(rs_vbeln) TYPE gr_vbeln.
ENDclass.
class lcl_data IMPLEMENTATION.
   method constructor.
     clear GT_OUTPUT.
   ENDMETHOD.
   method select_data.
     DATA: lt_vbak type SORTED TABLE OF vbak WITH UNIQUE KEY vbeln.
     FIELD-SYMBOLS: <lfs_output> like LINE OF gt_output,
                    <lfs_vbak> like LINE OF lt_vbak
     select vbeln posnr matnr from vbap
       INto TABLE
        GT_OUTPUT
       where vbeln in S_VBELN
     IF sy-SUBRC EQ 0.
       select * from vbak
         INTO TABLE lt_vbak
         FOR ALL ENTRIES IN  GT_OUTPUT
         where vbeln = GT_OUTPUT-vbeln
       LOOP AT gt_output ASSIGNING <lfs_output>.
         READ TABLE lt_vbak ASSIGNING <lfs_vbak>
         with TABLE KEY vbeln = <lfs_output>-vbeln.
         IF sy-Subrc eq 0.
           <lfs_output>-vkorg = <lfs_vbak>-VKORG.
         ENDIF.
       ENDLOOP.
     ENDIF.
   ENDMETHOD.
ENDCLASS.
****Display
class lcl_view DEFINITION.
   PUBLIC SECTION.
     methods: start RETURNING VALUE(rv_true) type abap_bool.
     METHODS: display CHANGING it_data TYPE STANDARD TABLE.
ENDCLASS.
class lcl_view IMPLEMENTATION.
   METHOD start.
     call SELECTION-SCREEN 100.
     IF sy-subrc EQ 0.
       rv_true = abap_true.
     ENDIF.
   endmethod.
   method display.
     DATA: lo_salv_table type REF TO CL_SALV_TABLE,
           lt_columns TYPE SALV_T_COLUMN_REF.
     FIELD-SYMBOLS: <lfs_columns> like LINE OF lt_columns.
     CL_SALV_TABLE=>FACTORY(
*    exporting
*      LIST_DISPLAY   = IF_SALV_C_BOOL_SAP=>FALSE    " ALV Displayed in List Mode
*      R_CONTAINER    =     " Abstract Container for GUI Controls
*      CONTAINER_NAME =
       importing
         R_SALV_TABLE   = lo_salv_table    " Basis Class Simple ALV Tables
       changing
         T_TABLE        = it_data
*    catch CX_SALV_MSG.    " ALV: General Error Class with Message
     lt_columns = lo_salv_table->GET_COLUMNS( )->GET( ).
*    LOOP AT  lt_columns ASSIGNING <lfs_columns>.
*    break developer.
*    ENDLOOP.
     lo_salv_table->DISPLAY( ).
   ENDMETHOD.
ENDCLASS.
class lcl_controller DEFINITION.
   PUBLIC SECTION.
     methods: main.
ENDCLASS.
class lcl_controller IMPLEMENTATION.
   method main.
     DATA: lo_view type REF TO lcl_view,
           lo_data TYPE REF TO LCL_DATA .
     CREATE OBJECT: lo_data, lo_view.
     break developer.
     IF lo_view->START( ) Eq abap_true.
**get the data
       lo_data->SELECT_DATA( s_vbeln[] ).
       lo_view->DISPLAY(
         changing
           IT_DATA = lo_data->GT_OUTPUT
     ENDIF.
   ENDMETHOD.
ENDCLASS.
INITIALIZATION.
START-OF-SELECTION.
   break developer.
   DATA: lo_controller type REF TO lcl_controller.
   CREATE OBJECT lo_controller.
   lo_controller->MAIN( ).

Answer 1

Here is the complete code that works fine!!!
Thanks to your ideas:
OO ALV
*& Report  ZZ_SOLEN_FIRST
REPORT ZZ_SOLEN_FIRST.
DATA: gv_vbeln type vbap-Vbeln.
***Screen
SELECTION-SCREEN: BEGIN OF SCREEN 100 TITLE t-004.
SELECTION-SCREEN: BEGIN OF block aa WITH FRAME TITLE t-001.
SELECT-OPTIONS: s_vbeln FOR gv_vbeln.
SELECTion-SCREEN: END OF block aa.
SELECTion-SCREEN: END OF SCREEN 100.
*****DATA Layer
class lcl_data DEFINITION.
   PUBLIC SECTION.
     TYPES: BEGIN OF ty_out,
       vbeln type vbap-vbeln,
       posnr type vbap-posnr,
       matnr type vbap-matnr,
       vkorg type vbak-vkorg,
       END OF ty_out
     TYPES: tt_out TYPE STANDARD TABLE OF ty_out.
     TYPES: gr_vbeln TYPE RANGE OF vbap-vbeln.
     DATA: gt_output TYPE tt_out.
     methods: constructor,
              select_data IMPORTING VALUE(rs_vbeln) TYPE gr_vbeln.
ENDclass.
class lcl_data IMPLEMENTATION.
   method constructor.
     clear GT_OUTPUT.
   ENDMETHOD.
   method select_data.
     DATA: lt_vbak type SORTED TABLE OF vbak WITH UNIQUE KEY vbeln.
     FIELD-SYMBOLS: <lfs_output> like LINE OF gt_output,
                    <lfs_vbak> like LINE OF lt_vbak
     select vbeln posnr matnr from vbap
       INto TABLE
        GT_OUTPUT
       where vbeln in S_VBELN
     IF sy-SUBRC EQ 0.
       select * from vbak
         INTO TABLE lt_vbak
         FOR ALL ENTRIES IN  GT_OUTPUT
         where vbeln = GT_OUTPUT-vbeln
       LOOP AT gt_output ASSIGNING <lfs_output>.
         READ TABLE lt_vbak ASSIGNING <lfs_vbak>
         with TABLE KEY vbeln = <lfs_output>-vbeln.
         IF sy-Subrc eq 0.
           <lfs_output>-vkorg = <lfs_vbak>-VKORG.
         ENDIF.
       ENDLOOP.
     ENDIF.
   ENDMETHOD.
ENDCLASS.
****Display
class lcl_view DEFINITION.
   PUBLIC SECTION.
     methods: start RETURNING VALUE(rv_return_flag) type abap_bool.
     METHODS: display CHANGING it_data TYPE STANDARD TABLE.
ENDCLASS.
class lcl_view IMPLEMENTATION.
   METHOD start.
     call SELECTION-SCREEN 100.
     IF sy-subrc EQ 0.
       rv_return_flag = abap_true.
     ENDIF.
   endmethod.
   method display.
     DATA: lo_salv_table type REF TO CL_SALV_TABLE,
           lt_columns TYPE SALV_T_COLUMN_REF.
     FIELD-SYMBOLS: <lfs_columns> like LINE OF lt_columns.
     CL_SALV_TABLE=>FACTORY(
*    exporting
*      LIST_DISPLAY   = IF_SALV_C_BOOL_SAP=>FALSE    " ALV Displayed in List Mode
*      R_CONTAINER    =     " Abstract Container for GUI Controls
*      CONTAINER_NAME =
       importing
         R_SALV_TABLE   = lo_salv_table    " Basis Class Simple ALV Tables
       changing
         T_TABLE        = it_data
*    catch CX_SALV_MSG.    " ALV: General Error Class with Message
     lt_columns = lo_salv_table->GET_COLUMNS( )->GET( ).
*    LOOP AT  lt_columns ASSIGNING <lfs_columns>.
*    break developer.
*    ENDLOOP.
     lo_salv_table->DISPLAY( ).
   ENDMETHOD.
ENDCLASS.
class lcl_controller DEFINITION.
   PUBLIC SECTION.
     methods: main.
ENDCLASS.
class lcl_controller IMPLEMENTATION.
   method main.
     DATA: lo_view type REF TO lcl_view,
           lo_data TYPE REF TO LCL_DATA .
     CREATE OBJECT: lo_data, lo_view.
     break developer.
*    while lo_view->START( ) eq abap_true.
***get the data
*      lo_data->SELECT_DATA( s_vbeln[] ).
*      lo_view->DISPLAY(
*        changing
*          IT_DATA = lo_data->GT_OUTPUT
*    ENDWHILE.
     do.
       if lo_view->START( ) eq abap_true.
***get the data
         lo_data->SELECT_DATA( s_vbeln[] ).
         lo_view->DISPLAY(
           changing
             IT_DATA = lo_data->GT_OUTPUT
       else.
         return.
       ENDIF.
     ENDDO.
   ENDMETHOD.
ENDCLASS.
class lcl_test_submit DEFINITION.
   PUBLIC SECTION.
     TYPES: tr_vbeln TYPE RANGE OF vbap-vbeln.
     data: lt_list type table_abaplist.
     methods: test_submit IMPORTING VALUE(ir_vbeln) type tr_vbeln
                          EXCEPTIONS submit_failed
                                     no_data_found
ENDCLASS.
class lcl_test_submit IMPLEMENTATION.
   method test_submit.
  submit ZZ_SOLEN_FIRST
   with s_vbeln in ir_vbeln
   exporting list to memory and return
***Get the list from the memory
    call function 'LIST_FROM_MEMORY'
       tables
         listobject = lt_list
       exceptions
         not_found  = 1
         others     = 2.
     if sy-subrc <> 0.
       raise submit_failed.
     endif.
     if lt_list is initial.
       raise no_data_found.
     endif.
   ENDMETHOD.
ENDCLASS.
INITIALIZATION.
START-OF-SELECTION.
   break developer.
   DATA: lo_controller type REF TO lcl_controller.
****Testing the Main
   CREATE OBJECT lo_controller.
   lo_controller->MAIN( ).