RH_OBJID_REQUEST_40A SAP Function module

DATA:
ld_sel_plvar  
 
 TYPE PLVAR
,
ld_sel_otype  
 
 TYPE OTYPE
,
ld_sel_object  
 
 TYPE OBJEC
,
ld_used_fcode  
 
 TYPE SYUCOMM
,
ld_sel_mode  
 
 TYPE PPMACMODE
,
it_otype_table  
 
 TYPE STANDARD TABLE OF T788O,"TABLES PARAM
wa_otype_table
 
 LIKE LINE OF it_otype_table
,
it_condition  
 
 TYPE STANDARD TABLE OF HRCOND,"TABLES PARAM
wa_condition
 
 LIKE LINE OF it_condition
,
it_base_objects  
 
 TYPE STANDARD TABLE OF RHMC2,"TABLES PARAM
wa_base_objects
 
 LIKE LINE OF it_base_objects
,
it_sel_objects  
 
 TYPE STANDARD TABLE OF OBJEC,"TABLES PARAM
wa_sel_objects
 
 LIKE LINE OF it_sel_objects
,
it_marked_objects  
 
 TYPE STANDARD TABLE OF HRSOBID,"TABLES PARAM
wa_marked_objects
 
 LIKE LINE OF it_marked_objects
,
it_sel_hrobject_tab  
 
 TYPE STANDARD TABLE OF HROBJECT,"TABLES PARAM
wa_sel_hrobject_tab
 
 LIKE LINE OF it_sel_hrobject_tab
,
it_sel_hrsobid_tab  
 
 TYPE STANDARD TABLE OF HRSOBID,"TABLES PARAM
wa_sel_hrsobid_tab
 
 LIKE LINE OF it_sel_hrsobid_tab
.



DATA(ld_mode) = some text here

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

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


DATA(ld_seark) = some text here

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

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

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

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

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

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

DATA(ld_dynpro_repid) = 'some text here'.

DATA(ld_dynpro_dynnr) = 'some text here'.


DATA(ld_dynpro_plvarfield) = some text here


DATA(ld_dynpro_otypefield) = some text here


DATA(ld_dynpro_searkfield) = some text here

DATA(ld_seark_text) = 'some text here'.

DATA(ld_win_title) = 'some text here'.

DATA(ld_list_header) = 'some text here'.


DATA(ld_callback_prog) = some text here


DATA(ld_callback_form) = some text here


DATA(ld_restrict_fb) = some text here


DATA(ld_restrict_data) = some text here

DATA(ld_forget_base_objects) = 'some text here'.

DATA(ld_pfkey) = 'some text here'.


DATA(ld_langu) = Check type of data required


DATA(ld_langu_mode) = some text here

DATA(ld_set_mode) = 'some text here'.

DATA(ld_select_message) = 'some text here'.

DATA(ld_no_dialog) = 'some text here'.

DATA(ld_no_new_entries) = 'some text here'.

DATA(ld_read_short_stext) = 'some text here'.

DATA(ld_fill_sel_hrobject_tab) = 'some text here'.

DATA(ld_fill_sel_hrsobid_tab) = 'some text here'.

DATA(ld_no_generic_warning) = 'some text here'.


DATA(ld_orgbeg) = 20210129


DATA(ld_orgend) = 20210129
 

"populate fields of struture and append to itab
append wa_otype_table to it_otype_table.
 

"populate fields of struture and append to itab
append wa_condition to it_condition.
 

"populate fields of struture and append to itab
append wa_base_objects to it_base_objects.
 

"populate fields of struture and append to itab
append wa_sel_objects to it_sel_objects.
 

"populate fields of struture and append to itab
append wa_marked_objects to it_marked_objects.
 

"populate fields of struture and append to itab
append wa_sel_hrobject_tab to it_sel_hrobject_tab.
 

"populate fields of struture and append to itab
append wa_sel_hrsobid_tab to it_sel_hrsobid_tab.
.

CALL FUNCTION 'RH_OBJID_REQUEST_40A'
* EXPORTING
*   mode =                       ld_mode
*   plvar =                      ld_plvar
*   otype =                      ld_otype
*   seark =                      ld_seark
*   seark_begda =                ld_seark_begda
*   seark_endda =                ld_seark_endda
*   no_seark_popup =             ld_no_seark_popup
*   without_rsign =              ld_without_rsign
*   without_relat =              ld_without_relat
*   without_sclas =              ld_without_sclas
*   dynpro_repid =               ld_dynpro_repid
*   dynpro_dynnr =               ld_dynpro_dynnr
*   dynpro_plvarfield =          ld_dynpro_plvarfield
*   dynpro_otypefield =          ld_dynpro_otypefield
*   dynpro_searkfield =          ld_dynpro_searkfield
*   seark_text =                 ld_seark_text
*   win_title =                  ld_win_title
*   list_header =                ld_list_header
*   callback_prog =              ld_callback_prog
*   callback_form =              ld_callback_form
*   restrict_fb =                ld_restrict_fb
*   restrict_data =              ld_restrict_data
*   forget_base_objects =        ld_forget_base_objects
*   pfkey =                      ld_pfkey
*   langu =                      ld_langu
*   langu_mode =                 ld_langu_mode
*   set_mode =                   ld_set_mode
*   select_message =             ld_select_message
*   no_dialog =                  ld_no_dialog
*   no_new_entries =             ld_no_new_entries
*   read_short_stext =           ld_read_short_stext
*   fill_sel_hrobject_tab =      ld_fill_sel_hrobject_tab
*   fill_sel_hrsobid_tab =       ld_fill_sel_hrsobid_tab
*   no_generic_warning =         ld_no_generic_warning
*   orgbeg =                     ld_orgbeg
*   orgend =                     ld_orgend
  IMPORTING
    sel_plvar =                  ld_sel_plvar
    sel_otype =                  ld_sel_otype
    sel_object =                 ld_sel_object
    used_fcode =                 ld_used_fcode
    sel_mode =                   ld_sel_mode
* TABLES
*   otype_table =                it_otype_table
*   condition =                  it_condition
*   base_objects =               it_base_objects
*   sel_objects =                it_sel_objects
*   marked_objects =             it_marked_objects
*   sel_hrobject_tab =           it_sel_hrobject_tab
*   sel_hrsobid_tab =            it_sel_hrsobid_tab
  EXCEPTIONS
    CANCELLED =                  1
    WRONG_CONDITION =            2
    NOTHING_FOUND =              3
    ILLEGAL_MODE =               4
    INTERNAL_ERROR =             5
    .  "  RH_OBJID_REQUEST_40A

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
ELSEIF SY-SUBRC EQ 5. "Exception
  "Add code for exception here
ENDIF.