STC1_SELECT_SUBSCREEN SAP Function module

DATA:
ld_dynproreport  
 
 TYPE SY-CPROG
,
ld_dynpronr  
 
 TYPE SY-DYNNR
,
ld_tabhandle  
 
 TYPE TCDAT_TAB_HANDLE
,
it_nametab  
 
 TYPE STANDARD TABLE OF DFIES,"TABLES PARAM
wa_nametab
 
 LIKE LINE OF it_nametab
,
it_table  
 
 TYPE STANDARD TABLE OF STRING,"TABLES PARAM
wa_table
 
 LIKE LINE OF it_table
,
it_fielddif  
 
 TYPE STANDARD TABLE OF FIELD_DIF,"TABLES PARAM
wa_fielddif
 
 LIKE LINE OF it_fielddif
.


DATA(ld_header) = 'some text here'.
 

SELECT single TABNAME 
  FROM DD02L 
  INTO @DATA(ld_tabname).


DATA(ld_display_only) = 'some text here'.

DATA(ld_endless) = 'some text here'.

DATA(ld_handle) = 'Check type of data required'.

DATA(ld_display_toggle) = 'some text here'.

DATA(ld_sort_forbidden) = 'some text here'.


DATA(ld_modify_check) = some text here


DATA(ld_insert_check) = some text here


DATA(ld_delete_check) = some text here


DATA(ld_modify_disp_field) = some text here

DATA(ld_no_insert) = 'some text here'.

DATA(ld_no_delete) = 'some text here'.

DATA(ld_no_move) = 'some text here'.

DATA(ld_no_undo) = 'some text here'.

DATA(ld_no_button) = 'some text here'.


DATA(ld_additional_button) = some text here


DATA(ld_add_button_call) = some text here


DATA(ld_add_button_header) = some text here
 

"populate fields of struture and append to itab
append wa_nametab to it_nametab.
 

"populate fields of struture and append to itab
append wa_table to it_table.
 

"populate fields of struture and append to itab
append wa_fielddif to it_fielddif.
.

CALL FUNCTION 'STC1_SELECT_SUBSCREEN'
  EXPORTING
    header =                     ld_header
    tabname =                    ld_tabname
*   display_only =               ld_display_only
*   endless =                    ld_endless
*   handle =                     ld_handle
*   display_toggle =             ld_display_toggle
*   sort_forbidden =             ld_sort_forbidden
*   modify_check =               ld_modify_check
*   insert_check =               ld_insert_check
*   delete_check =               ld_delete_check
*   modify_disp_field =          ld_modify_disp_field
*   no_insert =                  ld_no_insert
*   no_delete =                  ld_no_delete
*   no_move =                    ld_no_move
*   no_undo =                    ld_no_undo
*   no_button =                  ld_no_button
*   additional_button =          ld_additional_button
*   add_button_call =            ld_add_button_call
*   add_button_header =          ld_add_button_header
  IMPORTING
    dynproreport =               ld_dynproreport
    dynpronr =                   ld_dynpronr
    tabhandle =                  ld_tabhandle
  TABLES
*   nametab =                    it_nametab
    table =                      it_table
*   fielddif =                   it_fielddif
  EXCEPTIONS
    NO_MORE_TABLES =             1
    TOO_MANY_FIELDS =            2
    NAMETAB_NOT_VALID =          3
    HANDLE_NOT_VALID =           4
    .  "  STC1_SELECT_SUBSCREEN

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 2. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 3. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 4. "Exception
  "Add code for exception here
ENDIF.