ALV in subscreen that was defined inside of report (not SE51)

Question

Hello Gurus,
I've one problem and I'm out of ideas. I've defined in code tapstrips like below
SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN.
SELECTION-SCREEN END OF SCREEN 102.
SELECTION-SCREEN BEGIN OF SCREEN 0103 AS SUBSCREEN.
SELECTION-SCREEN END OF SCREEN 0103.
SELECTION-SCREEN BEGIN OF TABBED BLOCK one FOR 25 LINES.
  SELECTION-SCREEN TAB (15) bl_corr USER-COMMAND ucomm1 DEFAULT SCREEN 102.
  SELECTION-SCREEN TAB (15) bl_addit USER-COMMAND ucomm2 DEFAULT SCREEN 103.
SELECTION-SCREEN END OF BLOCK one.
In screen 103 I would like to show ALV. How can I achive this? When I'm using code below nothing is being displayed. I think that problem lies in container. When I execute method IS_VALID of container I'm getting 0. When I'm passing empty parameter during creation of grid object (no conatiner) then I'm getting results on whole screen.
INITIALIZATION.
DATA: go_container1 TYPE REF TO cl_gui_docking_container,
       go_grid1 TYPE REF TO cl_gui_alv_grid,
       gs_fieldcatalog TYPE LVC_T_FCAT.
CREATE OBJECT go_container1
  EXPORTING
    REPID                       = sy-repid
    DYNNR                       = '0103'
    NAME                        = 'CUSTOM_AREA'.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
    I_STRUCTURE_NAME             = '/VFE/JTO_SCI_RPL'
  CHANGING
    CT_FIELDCAT                  = gs_fieldcatalog.
CREATE OBJECT go_grid1
    EXPORTING i_parent =  go_container1.
  CALL METHOD GO_GRID1->SET_TABLE_FOR_FIRST_DISPLAY
    CHANGING
      IT_OUTTAB                     = gt_replacment_lines
      IT_FIELDCATALOG               = gs_fieldcatalog.
BR
Marcin Cholewczuk

Answer 1

HI,
this is how i achived alv on tabstrip.
REPORT  zreport_alv_tabstrip.
TYPES:
  BEGIN OF type_s_flight,
    carrid   LIKE sflight-carrid,
    connid   LIKE sflight-connid,
    fldate   LIKE sflight-fldate,
    seatsmax LIKE sflight-seatsmax,
    seatsocc LIKE sflight-seatsocc,
  END OF type_s_flight,
  BEGIN OF type_s_sbook,
    carrid   LIKE sflight-carrid,
    connid   LIKE sflight-connid,
    bookid   LIKE sbook-bookid,
  END OF type_s_sbook.
CONSTANTS:
  BEGIN OF c_tab1,
    tab1 LIKE sy-ucomm VALUE 'TAB1_FC1',
    tab2 LIKE sy-ucomm VALUE 'TAB1_FC2',
  END OF c_tab1.
CONTROLS:  tab1 TYPE TABSTRIP.
DATA:
  t_flight TYPE TABLE OF type_s_flight,
  fs_flight LIKE LINE OF t_flight,
  t_book TYPE TABLE OF type_s_sbook,
  fs_book LIKE LINE OF t_book,
  c_container TYPE REF TO cl_gui_custom_container,
  c_container1 TYPE REF TO cl_gui_custom_container,
  grid TYPE REF TO cl_gui_alv_grid,
  grid1 TYPE REF TO cl_gui_alv_grid,
  t_fcat TYPE lvc_t_fcat,
  t_fcat1 TYPE lvc_t_fcat,
  fcat LIKE LINE OF t_fcat,
  fcat1 LIKE LINE OF t_fcat,
  gs_layout TYPE  lvc_s_layo,
  ok_code LIKE sy-ucomm,
  BEGIN OF g_tab1,
    subscreen   LIKE sy-dynnr,
    prog        LIKE sy-repid VALUE 'YH1494_ALV_TABSTRIP',
    pressed_tab LIKE sy-ucomm VALUE c_tab1-tab1,
  END OF g_tab1.
SELECT carrid   connid   fldate   seatsmax    seatsocc  FROM sflight   INTO TABLE t_flight  UP TO 100 ROWS.
SELECT carrid    connid   bookid  FROM sbook  INTO TABLE t_book UP TO 50 ROWS.
gs_layout-sel_mode = 'D'.
gs_layout-no_merging = 'X'.
gs_layout-zebra = 'X'.
fcat-fieldname = 'CARRID'.
fcat-outputlen = 15.
fcat-ref_table = 'SFLIGHT'.
fcat-key_sel ='X'.
APPEND fcat TO t_fcat.
fcat-fieldname = 'CONNID'.
fcat-outputlen = 15.
fcat-ref_table = 'SFLIGHT'.
fcat-key_sel ='X'.
APPEND fcat TO t_fcat.
fcat-fieldname = 'FLDATE'.
fcat-outputlen = 15.
fcat-ref_table = 'SFLIGHT'.
fcat-key_sel ='X'.
APPEND fcat TO t_fcat.
fcat-fieldname = 'SEATSMAX'.
fcat-outputlen = 15.
fcat-ref_table = 'SFLIGHT'.
fcat-key_sel ='X'.
APPEND fcat TO t_fcat.
fcat-fieldname = 'SEATSOCC'.
fcat-outputlen = 15.
fcat-ref_table = 'SFLIGHT'.
fcat-key_sel ='X'.
APPEND fcat TO t_fcat.
fcat1-fieldname = 'CARRID'.
fcat1-outputlen = 15.
fcat1-ref_table = 'SBOOK'.
fcat1-key_sel ='X'.
APPEND fcat1 TO t_fcat1.
fcat1-fieldname = 'CONNID'.
fcat1-outputlen = 15.
fcat1-ref_table = 'SFLIGHT'.
fcat1-key_sel ='X'.
APPEND fcat1 TO t_fcat1.
fcat1-fieldname = 'BOOKID'.
fcat1-outputlen = 15.
fcat1-ref_table = 'SBOOK'.
fcat1-key_sel ='X'.
APPEND fcat1 TO t_fcat1.
CALL SCREEN 100.
MODULE tab1_active_tab_set OUTPUT.
  tab1-activetab = g_tab1-pressed_tab.
  CASE g_tab1-pressed_tab.
    WHEN c_tab1-tab1.
      g_tab1-subscreen = '0101'.
    WHEN c_tab1-tab2.
      g_tab1-subscreen = '0102'.
    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                    "TAB1_ACTIVE_TAB_SET OUTPUT
MODULE tab1_active_tab_get INPUT.
  ok_code = sy-ucomm.
  CASE ok_code.
    WHEN c_tab1-tab1.
      g_tab1-pressed_tab = c_tab1-tab1.
    WHEN c_tab1-tab2.
      g_tab1-pressed_tab = c_tab1-tab2.
    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                    "TAB1_ACTIVE_TAB_GET INPUT
MODULE status_0110 OUTPUT.
  CREATE OBJECT c_container
    EXPORTING
      container_name              = 'C_CONTAINER'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      OTHERS                      = 6.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CREATE OBJECT grid
    EXPORTING
      i_parent          = c_container
    EXCEPTIONS
      error_cntl_create = 1
      error_cntl_init   = 2
      error_cntl_link   = 3
      error_dp_create   = 4
      OTHERS            = 5.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CALL METHOD grid->set_table_for_first_display
    EXPORTING
      is_layout                     = gs_layout
    CHANGING
      it_outtab                     = t_flight
      it_fieldcatalog               = t_fcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDMODULE.                 " STATUS_0110  OUTPUT
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
MODULE status_0100 OUTPUT.
  SET PF-STATUS '100'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100  OUTPUT
MODULE status_0102 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
  CREATE OBJECT c_container1
    EXPORTING
      container_name              = 'C_CONTAINER1'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      OTHERS                      = 6.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CREATE OBJECT grid
    EXPORTING
      i_parent          = c_container1
    EXCEPTIONS
      error_cntl_create = 1
      error_cntl_init   = 2
      error_cntl_link   = 3
      error_dp_create   = 4
      OTHERS            = 5.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  CALL METHOD grid->set_table_for_first_display
    EXPORTING
      is_layout                     = gs_layout
    CHANGING
      it_outtab                     = t_book
      it_fieldcatalog               = t_fcat1
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDMODULE.                 " STATUS_0102  OUTPUT
Regards and Best wishes.