Short dump during select statement

Question

hi,
i have to display 1 alv list output using REUSE_ALV_HIERSEQ_LIST_DISPLAY function module...so i have populated the data using select statement
select EXIDV
    brgew meabm
           vegr1 erlkz vhilm erdat aenam
           ernam from vekp
                into corresponding fields of table  gt_master
                up to gs_test-select_amount rows.
so the data is also getting populated to gt_master table before the function module...but after executing the function module..it is giving short dump...due to some standard program....any idea

Answer 1

hi,
my coding is
Report       : ZBCALV                                                 *
Author       :                                                       *
SAP-User     :                                                       *
Requester    :                                                       *
Date         :                                                       *
Specification:                                                       *
Description  :                                                       *
Changes      :                                                       *
Change No    :                                                       *
Author       :                                                       *
SAP-User     :                                                       *
Date         :                                                       *
Reason / Desc:                                                       *
REPORT   ZBCALV.
**& Report  BCALV_TEST_HIERSEQ_LIST_EVENTS                              *
*report  bcalv_test_hierseq_list_events.
types: g_ty_t_exidv  type standard table of vekp,
       g_ty_t_brgew  type standard table of vekp,
       g_ty_t_vegr1  type standard table of vekp,
       g_ty_t_vekp    type standard table of vekp,
       g_ty_t_curr    type standard table of alv_cur,
      g_ty_s_vekp type alv_t_t2,
       g_ty_s_exidv  type alv_tab,
       g_ty_s_brgew   type alv_tab,
       g_ty_s_vegr1  type alv_chck,
       g_ty_s_vekp    type vekp,
       g_ty_s_curr    type alv_cur.
constants:
*con_vekp type lvc_fname value 'ALV_T_T2',
           con_scarr   type lvc_fname value 'ALV_TAB',      "#EC *
           con_spfli   type lvc_fname value 'ALV_CHCK',     "#EC *
           con_vekp    type lvc_fname value 'VEKP',
           con_scurx   type lvc_fname value 'ALV_CUR'.      "#EC *
DATA                                                                 *
tables: sscrfields.   " for processing the FCODEs in Selektion screens
type-pools: slis, kkblo.
class lcl_events_d1001 definition deferred.
types: begin of g_ty_s_test,
         select_amount      type i,
         selected_recs_m    type i,
         selected_recs_s    type i,
         no_info_popup      type char1,
         info_popup_once    type char1,
         events             type lvc_fname occurs 0,
         events_exit        type slis_t_event_exit,
         events_info_popup  type lvc_fname occurs 0,
         list_append        type char1,
         list_amount        type i,
         list_append_status type i,
         layo_expand_field  type char1,
         layo_expand_all    type char1,
         vari_default       type char1,
         vari_save          type char1,
         bypassing_buffer   type char1,
         buffer_active      type char1,
       end   of g_ty_s_test,
       begin of g_ty_s_evt_exit.
include type slis_event_exit.
types:   text    type string,
       end   of g_ty_s_evt_exit,
       g_ty_t_evt_exit type standard table of g_ty_s_evt_exit.
constants: con_true     type char1 value 'X',
           con_ok   type sy-ucomm value 'OK',
           con_exit type sy-ucomm value 'EXIT',
           con_canc type sy-ucomm value 'CANC',
           con_back type sy-ucomm value 'BACK',
           con_event_01 type lvc_fname value 'PF_STATUS_SET',
           con_event_02 type lvc_fname value 'USER_COMMAND',
           con_event_03 type lvc_fname value 'CALLER_EXIT',
           con_event_04 type lvc_fname value 'LIST_MODIFY',
           con_event_05 type lvc_fname value 'BEFORE_LINE_OUTPUT',
           con_event_06 type lvc_fname value 'AFTER_LINE_OUTPUT',
           con_event_07 type lvc_fname value 'SUBTOTAL_TEXT',
           con_event_08 type lvc_fname value 'REPREP_MODIFY',
           con_event_09 type lvc_fname value 'TOP_OF_PAGE',
           con_event_10 type lvc_fname value 'END_OF_PAGE',
           con_event_11 type lvc_fname value 'TOP_OF_LIST',
           con_event_12 type lvc_fname value 'END_OF_LIST',
           con_event_13 type lvc_fname value 'TOP_OF_COVERPAGE',
           con_event_14 type lvc_fname value 'END_OF_COVERPAGE',
           con_event_15 type lvc_fname value 'TOP_OF_FOREIGN_PAGE',
           con_event_16 type lvc_fname value 'END_OF_FOREIGN_PAGE',
           con_event_17 type lvc_fname value 'GROUPLEVEL_CHANGE',
           con_event_18 type lvc_fname value 'ITEM_DATA_EXPAND'.
data: gs_test type g_ty_s_test.
data: g_okcode type sy-ucomm.
data: g_repid type sy-repid.
data: gt_evt_exit type g_ty_t_evt_exit.
data: gr_container_d1001   type ref to cl_gui_custom_container,
      gr_grid_d1001        type ref to cl_gui_alv_grid,
      gr_events_d1001      type ref to lcl_events_d1001.
data: g_start_listinfo type slis_lineinfo.
*addition for extra
DATA: fieldcatalog  TYPE slis_t_fieldcat_alv with header line.
types  : BEGIN OF gt_output ,
       EXIDV TYPE VEKP-EXIDV,
      VGBEL TYPE LIPS-VGBEL,
       BRGEW TYPE VEKP-BRGEW,
       VEGR1 TYPE VEKP-VEGR1,
       MEABM TYPE VEKP-MEABM,
       ERLKZ TYPE VEKP-ERLKZ,
      VSTAT TYPE NAST-VSTAT,
       VHILM TYPE VEKP-VHILM,
       ERDAT TYPE VEKP-ERDAT,
       AENAM TYPE VEKP-AENAM,
       VBELN TYPE VBELN_GEN,
       ERNAM TYPE VEKP-ERNAM,
        END OF gt_output.
data: ls_output type gt_output,
      lt_output type gt_output occurs 0 WITH HEADER LINE .
types  : BEGIN OF gt_item_output ,
       EXIDV TYPE VEKP-EXIDV,
       BRGEW TYPE VEKP-BRGEW,
        vEGR1 TYPE VEKP-VEGR1,
       TARAG TYPE VEKP-TARAG,
       NTGEW TYPE VEKP-NTGEW,
       MEABM TYPE VEKP-MEABM,
       BREIT TYPE VEKP-BREIT,
       HOEHE TYPE VEKP-HOEHE,
      ANW_STATUS TYPE VEKP-ANW_STATUS,
       MATNR TYPE VEPO-MATNR,
       VEGR2 TYPE VEKP-VEGR2,
       VSTEL TYPE VEKP-VSTEL,
       WERKS TYPE VEKP-WERKS,
       END OF gt_item_output.
data: ls_ITEM_output type gt_ITEM_output,
       lt_ITEM_output type gt_ITEM_output occurs 0 with header line.
types:       begin of g_ty_s_master.
include type gt_output.
types:   box                  type char1,
        lights               type char1,
         checkbox             type char1,
         expand               type char1,
         help                 type i,
         end   of g_ty_s_master,
       g_ty_t_master type standard table of g_ty_s_master,
       begin of g_ty_s_slave.
include type gt_item_output.
types:   box                  type char1,
        lights               type char1,
         checkbox             type char1,
         expand               type char1,
         help                 type i,
         end   of g_ty_s_slave,
       g_ty_t_slave type standard table of g_ty_s_slave.
data: gt_master type g_ty_t_master with header line,
      gt_slave  type g_ty_t_slave with header line,
      gs_master type g_ty_s_master.
      CLASS lcl_events_d1001 DEFINITION
class lcl_events_d1001 definition.
  public section.
    methods:
    data_changed         for event data_changed
                         of cl_gui_alv_grid
                         importing er_data_changed
                                   e_onf4
                                   e_onf4_before
                                   e_onf4_after,
    data_changed_finished
                         for event data_changed_finished
                         of cl_gui_alv_grid.
endclass.                    "lcl_events_d1001 DEFINITION
      CLASS lcl_events_d1001 IMPLEMENTATION
class lcl_events_d1001 implementation.
  method data_changed.
  endmethod.                    "data_changed
  method data_changed_finished.
  endmethod.                    "data_changed_finished
endclass.                    "lcl_events_d1001 IMPLEMENTATION
SELECTION-SCREEN                                                     *
selection-screen begin of block gen with frame.
parameters:
p_amount type i default 30.
selection-screen end of block gen.
at selection-screen.
AT SELECTION-SCREEN                                                  *
  case sscrfields-ucomm.
    when 'PB01'.
      call screen 1001 starting at 1 1 ending at 80 20.
  endcase.
START-OF-SELECTION                                                   *
start-of-selection.
  g_repid = sy-repid.
  gs_test-select_amount = p_amount.
END-OF-SELECTION                                                     *
end-of-selection.
  perform f01_call_list.
*&      Form  f01_call_list
      text
form f01_call_list.
  data: l_callback_program type sy-cprog,                   "#EC NEEDED
        ls_layo            type slis_layout_alv,
        lt_fcat            type slis_t_fieldcat_alv,
        ls_keyinfo         type slis_keyinfo_alv.
  data: ls_master type g_ty_s_master,
        ls_slave  type g_ty_s_slave.
  l_callback_program = sy-repid.
  perform f01_alv_get_outtab.
  perform f01_alv_set_layout changing ls_layo.
  perform f01_alv_set_fcat   changing lt_fcat.
  perform f01_alv_set_keyinfo changing ls_keyinfo.
  if gs_test-list_append_status ne 0.
    ls_layo-list_append = gs_test-list_append.
  endif.
  call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    exporting
      i_callback_program             = g_repid
      is_layout                      = ls_layo
      it_fieldcat                    = lt_fcat
      i_tabname_header               = 'GT_MASTER'
      i_tabname_item                 = 'GT_SLAVE'
      is_keyinfo                     = ls_keyinfo
    tables
      t_outtab_header                = gt_master
      t_outtab_item                  = gt_slave
    exceptions
      program_error                  = 1
      others                         = 2.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
endform.                    " f01_call_list
FORM f01_alv_set_fcat
form f01_alv_set_fcat changing ct_fcat type slis_t_fieldcat_alv.
  data: lt_fcat_master type slis_t_fieldcat_alv,
        lt_fcat_slave  type slis_t_fieldcat_alv.
  clear ct_fcat[].
  perform f01_alv_set_fcat_master changing lt_fcat_master.
  perform f01_alv_set_fcat_slave  changing lt_fcat_slave.
  append lines of lt_fcat_master to ct_fcat.
  append lines of lt_fcat_slave  to ct_fcat.
endform.                               " F01_ALV_SET_FCAT
*&      Form  f01_alv_set_fcat_master
      text
form f01_alv_set_fcat_master changing ct_fcat type slis_t_fieldcat_alv.
  data: ls_fcat type slis_fieldcat_alv,
        l_char(3) type c.
get fieldcatalog
  fieldcatalog-fieldname   = 'EXIDV'.           "Field name in itab
  fieldcatalog-seltext_l  = 'HU-NR'.  "Column text
  FIELDCATALOG-KEY         = 'X'.
  FIELDCATALOG-TECH        = 'X'.
  fieldcatalog-col_pos     = 1.  "Column position
   fieldcatalog-ref_tabname     = 'VEKP'.
  fieldcatalog-outputlen   = 05.                "Column width
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'VGBEL'.
  fieldcatalog-seltext_L   = 'SALES ORDER'.
  fieldcatalog-outputlen   = 15.
   fieldcatalog-ref_tabname     = 'LIPS'.
  fieldcatalog-col_pos     = 2.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'BRGEW'.
  fieldcatalog-seltext_l   = 'WEIGHT'.
  FIELDCATALOG-KEY         = 'X'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 3.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'MEABM'.
  fieldcatalog-seltext_l   = 'DIMENSION'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 4.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'VEGR1'.
  fieldcatalog-seltext_l   = 'IPPC NR'.
  fieldcatalog-outputlen   = 15.
  FIELDCATALOG-KEY         = 'X'.
  fieldcatalog-col_pos     = 5.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'ERLKZ'.
  fieldcatalog-seltext_l   = 'STATUS'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 6.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'VSTAT'.
  fieldcatalog-seltext_l   = 'PRINT STATUS'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 7.
   fieldcatalog-ref_tabname     = 'VSTAT'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'VHILM'.
  fieldcatalog-seltext_l   = 'PACKING MATERIAL'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 8.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'ERDAT'.
  fieldcatalog-seltext_l   = 'CREATED FROM'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 9.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'AENAM'.
  fieldcatalog-seltext_l   = 'LAST CHANGE'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 10.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'VBELN'.
  fieldcatalog-seltext_l   = 'DELIVERY'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 11.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'ERNAM'.
  fieldcatalog-seltext_l   = 'CREATED BY'.
  fieldcatalog-outputlen   = 12.
  fieldcatalog-col_pos     = 8.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  ls_fcat-tabname = 'GT_MASTER'.
  modify ct_fcat from ls_fcat transporting tabname
                 where tabname ne ls_fcat-tabname.
  loop at ct_fcat into ls_fcat.
    if    ls_fcat-fieldname eq 'BRGEW'.
      or ls_fcat-fieldname eq ''.
*§1.Set status of columns PLANETYPE and SEATSOCC to editable.
      ls_fcat-edit = 'X'.
      modify ct_fcat from ls_fcat.
    endif.
  endloop.
endform.                    " f01_alv_set_fcat_master
*&      Form  f01_alv_set_fcat_slave
      text
form f01_alv_set_fcat_slave changing ct_fcat type slis_t_fieldcat_alv.
  data: ls_fcat   type slis_fieldcat_alv,
        l_char(3) type c.
  fieldcatalog-fieldname   = 'EXIDV'.           "Field name in itab
  fieldcatalog-seltext_l  = 'HU-NR'.  "Column text
  FIELDCATALOG-KEY         = 'X'.
   FIELDCATALOG-TECH        = 'X'.
  fieldcatalog-col_pos     = 1.  "Column position
   fieldcatalog-ref_tabname     = 'VEKP'.
  fieldcatalog-outputlen   = 05.                "Column width
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
fieldcatalog-fieldname   = 'TARAG'.           "Field name in itab
  fieldcatalog-seltext_l  = 'HU-NR'.  "Column text
  fieldcatalog-col_pos     = 1.  "Column position
   fieldcatalog-ref_tabname     = 'VEKP'.
  fieldcatalog-outputlen   = 05.                "Column width
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'NTGEW'.
  fieldcatalog-seltext_L   = 'WEIGHT HU'.
  fieldcatalog-outputlen   = 15.
   fieldcatalog-ref_tabname     = 'VEKP'.
  fieldcatalog-col_pos     = 2.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'BRGEW'.
  fieldcatalog-seltext_l   = 'WEIGHT'.
FIELDCATALOG-KEY         = 'X'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 3.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'LAENG'.
  fieldcatalog-seltext_l   = 'LENGTH'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 4.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'BREIT'.
  fieldcatalog-seltext_l   = 'WIDTH'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 5.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'HOEHE'.
  fieldcatalog-seltext_l   = 'HEIGHT'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 6.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'VEGR1'.
  fieldcatalog-seltext_l   = 'HU GR1'.
  FIELDCATALOG-KEY         = 'X'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 7.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'VEGR2'.
  fieldcatalog-seltext_l   = 'HU GR2'.
  FIELDCATALOG-KEY         = 'X'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 8.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'MATNR'.
  fieldcatalog-seltext_l   = 'MAT NO'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 9.
   fieldcatalog-ref_tabname     = 'VEPO'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'VSTEL'.
  fieldcatalog-seltext_l   = 'SHIPPING'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 10.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  fieldcatalog-fieldname   = 'WERKS'.
  fieldcatalog-seltext_l   = 'PLANT'.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-col_pos     = 11.
   fieldcatalog-ref_tabname     = 'VEKP'.
  APPEND fieldcatalog TO ct_fcat.
  CLEAR  fieldcatalog.
  ls_fcat-tabname = 'GT_SLAVE'.
  modify ct_fcat from ls_fcat transporting tabname
                 where tabname ne ls_fcat-tabname.
endform.                    " f01_alv_set_fcat_slave
FORM f01_alv_set_layout
form f01_alv_set_layout changing cs_layout type slis_layout_alv.
*... Display options
  cs_layout-colwidth_optimize      = con_true.
  cs_layout-no_colhead             = space.
  cs_layout-no_hotspot             = space.
  cs_layout-zebra                  = space.
  cs_layout-no_vline               = space.
  cs_layout-cell_merge             = space.
  cs_layout-no_min_linesize        = space.
  cs_layout-min_linesize           = space.
  cs_layout-max_linesize           = space.
  cs_layout-window_titlebar        = space.
  cs_layout-no_uline_hs            = space.
  cs_layout-no_sumchoice           = space.
  cs_layout-no_totalline           = space.
  cs_layout-totals_before_items    = space.
  cs_layout-totals_only            = space.
  cs_layout-totals_text            = space.
  cs_layout-no_subchoice           = space.
  cs_layout-no_subtotals           = space.
  cs_layout-subtotals_text         = space.
  cs_layout-numc_sum               = space.
  cs_layout-no_unit_splitting      = space.
*... Interaction
  cs_layout-box_fieldname          = 'BOX'.
  cs_layout-box_tabname            = space.
  cs_layout-box_rollname           = space.
  if gs_test-layo_expand_field eq con_true.
    cs_layout-expand_fieldname       = 'EXPAND'.
  endif.
  cs_layout-hotspot_fieldname      = space.
  cs_layout-f2code                 = space.
  cs_layout-key_hotspot            = space.
  cs_layout-flexible_key           = space.
  cs_layout-reprep                 = space.
  cs_layout-group_buttons          = space.
  cs_layout-no_keyfix              = space.
  cs_layout-get_selinfos           = con_true.
  cs_layout-group_change_edit      = con_true.
  cs_layout-no_scrolling           = space.
  cs_layout-expand_all             = gs_test-layo_expand_all.
*... Detailed screen
  cs_layout-detail_popup           = space.
  cs_layout-detail_initial_lines   = space.
  cs_layout-detail_titlebar        = space.
*... PF-status
  cs_layout-def_status             = space.
*... Display variants
  cs_layout-header_text            = space.
  cs_layout-item_text              = space.
  cs_layout-default_item           = space.
*... colour
  cs_layout-info_fieldname         = space.
  cs_layout-coltab_fieldname       = space.
*... others
  cs_layout-list_append            = space.
endform.                               " F01_ALV_SET_LAYOUT
*&      Form  f01_alv_set_keyinfo
      text
form f01_alv_set_keyinfo changing cs_keyinfo type slis_keyinfo_alv.
  cs_keyinfo-header01 = 'EXIDV'.
  cs_keyinfo-item01   = 'EXIDV'.
  cs_keyinfo-header02 = 'BRGEW'."'CARRID'.
  cs_keyinfo-item02   = 'BRGEW'."."'CARRID'.
  cs_keyinfo-header03 = 'VEGR1'."'CONNID'.
  cs_keyinfo-item03   = 'VEGR1'."'CONNID'.
  cs_keyinfo-header04 = space.
  cs_keyinfo-item04   = 'VEGR2'."'FLDATE'.
  cs_keyinfo-header05 = space.
  cs_keyinfo-item05   = space.
endform.                    " f01_alv_set_keyinfo
FORM f01_alv_event_pf_status_set
form f01_alv_event_pf_status_set using rt_extab type slis_t_extab.
                                                            "#EC *
  data: l_event type lvc_fname.                             "#EC NEEDED
  if gs_test-info_popup_once eq con_true.
    read table gs_test-events_info_popup into l_event
               with key table_line = 'PF_STATUS_SET'.
    if sy-subrc ne 0.
      insert 'PF_STATUS_SET' into gs_test-events_info_popup index 1.
      message i000(0k) with text-t01.
    endif.
  elseif gs_test-no_info_popup eq space.
    message i000(0k) with text-t01.
  endif.
  set pf-status 'STANDARD' excluding rt_extab.
  set titlebar 'STANDARD'.
endform.                               " F01_ALV_EVENT_PF_STATUS_SET
*&      Form  F01_ALV_EVENT_BEFORE_LINE_OUTP
      text
form f01_alv_event_before_line_outp
                      using rs_lineinfo type slis_lineinfo. "#EC *
  data: l_event type lvc_fname.                             "#EC NEEDED
  if gs_test-info_popup_once eq con_true.
    read table gs_test-events_info_popup into l_event
               with key table_line = 'BEFORE_LINE_OUTPUT'.
    if sy-subrc ne 0.
      insert 'BEFORE_LINE_OUTPUT' into gs_test-events_info_popup
                                  index 1.
      message i000(0k) with text-t05.
    endif.
  elseif gs_test-no_info_popup eq space.
    message i000(0k) with text-t05.
  endif.
  format color off
         intensified off
         inverse off
         hotspot off
         input off.
  if rs_lineinfo-tabname eq 'GT_MASTER'.
    if
   gs_master-exidv ne gt_master-exidv or
       gs_master-brgew ne gt_master-brgew.
      write: / text-t05.
      write: /
     gt_master-exidv,
               gt_master-brgew.
      gs_master = gt_master.
    endif.
    if gs_test-selected_recs_m eq rs_lineinfo-tabindex.
      clear gs_master.
    endif.
  endif.
endform.                               " F01_ALV_EVENT_BEFORE_LINE_OUTP
*&      Form  f01_alv_get_outtab
      text
form f01_alv_get_outtab .
  field-symbols: .
   select
   exidv BRGEW VEGR1
    TARAG NTgew  meabm  BREIT HOEHE  VEGR2 VSTEL weRKS
                       from
                      (con_vekp) into corresponding fields of table
                       lt_slave up to gs_test-select_amount rows
                       where
                      exidv eq <ls_master>-exidv and
                       brgew eq -vegr1.
append lines of lt_slave to gt_slave.
endloop.
  sort gt_slave by exidv brgew vegr1.
endif.
  describe table gt_master lines gs_test-selected_recs_m.
  describe table gt_slave  lines gs_test-selected_recs_s.
  clear gt_master.
  clear gt_slave.
endform.                    " f01_alv_get_outtab
*&      Module  d1001_pbo  OUTPUT
      text
module d1001_pbo output.
perform d1001_pbo.
endmodule.                 " d1001_pbo  OUTPUT
*&      Module  d1001_pai  INPUT
      text
module d1001_pai input.
perform d1001_pai.
endmodule.                 " d1001_pai  INPUT