RFGMGRL1 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Master Data Index for Grant The report displays grant master data entered using the grant master data transaction...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.
If you would like to execute this report or see the full code listing simply enter RFGMGRL1 into the relevant SAP transactions such as SE38 or SE80
This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.
Selection Text: S_VALDAT = D .
Selection Text: S_VALDAF = D .
Selection Text: S_SPONS = Sponsor
Selection Text: S_LIFECY = D .
Selection Text: S_INTREF = D .
Selection Text: S_GRANT = D .
Selection Text: S_EXTREF = D .
Selection Text: S_CCODE = D .
Selection Text: SCREATED = D .
Selection Text: SCHANGED = D .
Selection Text: P_VARI = D .
Selection Text: P_RESPOB = D .
Selection Text: P_RESP = D .
Selection Text: P_OBJTYP = D .
Selection Text: P_GRGRP = Grant Group
Title: Master Data Index for Grant
Text Symbol: 930 = ALV
Text Symbol: 920 = Responsibilities
Text Symbol: 910 = Parameters
Text Symbol: 900 = Object
Text Symbol: 253 = Grant used in
Text Symbol: 252 = Assigned to Grant in
Text Symbol: 251 = GM Derivation Tool
Text Symbol: 250 = GM Sponsored Objects
Text Symbol: 222 = active
Text Symbol: 221 = Dynamic Selections
Text Symbol: 110 = HR Object Icon
Text Symbol: 109 = Lifecycle Icon
Text Symbol: 108 = User Status Icon
Text Symbol: 107 = Sponsor description
Text Symbol: 106 = Select
Text Symbol: 101 = Get GM Data
INCLUDE GMREPINCLFKT.
INCLUDE GMREPINCLHANA. "NOTE 1768268
No SAP DATABASE tables are accessed within this REPORT code!
FREE_SELECTIONS_INIT CALL FUNCTION 'FREE_SELECTIONS_INIT' EXPORTING kind = 'T' expressions = c_f_dyns-texpr IMPORTING selection_id = l_selection_id" field_groups_key = l_rsdsqcat where_clauses = c_f_dyns-clauses expressions = c_f_dyns-texpr field_ranges = c_f_dyns-trange number_of_active_fields = c_dynscnt TABLES tables_tab = l_t_tables fields_tab = l_t_fields EXCEPTIONS too_many_fields = 13.
FREE_SELECTIONS_DIALOG CALL FUNCTION 'FREE_SELECTIONS_DIALOG' EXPORTING selection_id = l_selection_id title = l_title frame_text = ' ' as_window = con_on IMPORTING where_clauses = c_f_dyns-clauses expressions = c_f_dyns-texpr field_ranges = c_f_dyns-trange number_of_active_fields = c_dynscnt TABLES fields_tab = l_t_fields EXCEPTIONS no_action = 2.
HDB_DBCON_GET_APPL CALL FUNCTION 'HDB_DBCON_GET_APPL' EXPORTING I_APPLICATION = 'PSM' I_SUBAPPLICATION = 'GM_GRANTEE_REPORTING' IT_REQUIRED_TABLE = LT_REQUIRED_TABLE[] IMPORTING E_DBCON_NAME = L_DBCON_NAME * et_message = l_t_message E_HDB_IS_PRIMARY_DB = l_hdb_is_primary_db "Note 1799565 EXCEPTIONS DBCON_NOT_EXIST = 1 DBCON_NO_USE = 2 DBCON_ERROR = 3 OTHERS = 4.
REUSE_ALV_VARIANT_DEFAULT_GET CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET' EXPORTING i_save = con_variant_save CHANGING cs_variant = l_f_variant EXCEPTIONS not_found = 2.
REUSE_ALV_VARIANT_F4 CALL FUNCTION 'REUSE_ALV_VARIANT_F4' EXPORTING is_variant = g_f_variant i_save = con_variant_save i_tabname_header = con_tabname_alv * it_default_fieldcat = IMPORTING e_exit = l_exit es_variant = l_f_variant EXCEPTIONS not_found = 2.
REUSE_ALV_VARIANT_EXISTENCE CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE' EXPORTING i_save = con_variant_save CHANGING cs_variant = l_f_variant.
RH_DETERMINE_ORG_OTYPE CALL FUNCTION 'RH_DETERMINE_ORG_OTYPE' IMPORTING org_object_otype = l_otype org_otype_text = l_otext EXCEPTIONS no_object_type_selected = 01.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = sy-cprog "Current program dynumb = sy-dynnr "Current screen TABLES dynpfields = l_dynpfields. "Relevant screen fields
G_RW_SET_SELECT CALL FUNCTION 'G_RW_SET_SELECT' EXPORTING set = l_set class = l_class field_name = l_fieldname table = l_table show_table_name = ' ' show_field_name = ' ' no_field_name_change = 'X' no_table_name_change = 'X' IMPORTING set_name = l_set class_name = l_class EXCEPTIONS no_set_picked = 01 no_sets = 02 OTHERS = 999.
DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING dyname = sy-cprog dynumb = sy-dynnr TABLES dynpfields = l_dynpfields.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = sy-cprog "Current program dynumb = sy-dynnr "Current screen TABLES dynpfields = l_dynpfields. "Relevant screen fields
RH_DETERMINE_ORG_OBJID CALL FUNCTION 'RH_DETERMINE_ORG_OBJID' EXPORTING org_object_type = l_objtyp act_search_string = l_objid_seark f4_mode = 'X' IMPORTING org_object_objid = l_object_objid EXCEPTIONS no_active_plvar = 01 no_object_id_selected = 02.
DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING dyname = sy-cprog dynumb = sy-dynnr TABLES dynpfields = l_dynpfields.
G_SET_ENCRYPT_SETID CALL FUNCTION 'G_SET_ENCRYPT_SETID' EXPORTING setclass = l_class shortname = l_shortname IMPORTING setid = l_setid EXCEPTIONS illegal_setclass = 2 OTHERS = 3.
G_SET_TREE_IMPORT CALL FUNCTION 'G_SET_TREE_IMPORT' EXPORTING setid = l_setid fieldname = l_fieldname tabname = l_tabname no_descriptions = con_on no_rw_info = con_on EXCEPTIONS OTHERS = 1.
SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING text = 'Get GM Data'(101) EXCEPTIONS OTHERS = 1.
GM_GET_GRANTS CALL FUNCTION 'GM_GET_GRANTS' EXPORTING i_sel_twhere = pdyns-clauses i_p_responsibility = p_resp i_p_resp_obj_type = p_objtyp i_p_resp_obj_id = p_respob i_incl_grant_not_relevant = con_on i_grant_grpname = p_grgrp TABLES i_r_grant_nbr = s_grant * I_R_REVISION_NBR = s_revnr i_r_int_reference = s_intref i_r_ext_reference = s_extref i_r_valid_from = s_valdaf i_r_valid_to = s_valdat i_r_created = screated i_r_changed = schanged i_r_company_code = s_ccode i_r_partner = s_spons i_r_lifecycle_status = s_lifecy e_t_gmgr = l_t_gmgr i_t_req_flds = l_t_gmgr_fldlst "Note 1768268 * E_T_GRANT_NBR = EXCEPTIONS not_found = 1 OTHERS = 2.
GM_GET_GRANT_SINGLE CALL FUNCTION 'GM_GET_GRANT_SINGLE' EXPORTING i_grant_nbr = l_t_gmgr-grant_nbr * I_LANGUAGE = SY-LANGU i_auth_activity = c_gm_activity_display IMPORTING * E_GMGR = e_gmgrtexts = e_f_gmgrtexts TABLES * E_T_GMGRCOSTSHARE = * E_T_GMGRFUNDRECOVER = * E_T_GMGRIDCCAP = e_t_gmgrresponsible = e_t_gmgrresponsible * E_T_gmgrsponsoredobj = * E_T_GMGRVALUETYPE = EXCEPTIONS not_found = 1 OTHERS = 2.
CALL FUNCTION 'GM_GET_SPONSOR_DATA' EXPORTING i_partner = c_t_grl-partner IMPORTING * E_GMSPONSOR = * E_KUNNR = * E_F_BUT000 = e_sponsor_description = c_t_grl-sponsor_description * TABLES * T_GMASPPROG = * T_GMASPCLASS = * T_GMSPAGT = * T_GMSPONSORLOC = * T_GMSPRESPTYP = EXCEPTIONS OTHERS = 1.
GM_GET_GRANT_TYPE CALL FUNCTION 'GM_GET_GRANT_TYPE' EXPORTING i_grant_type = c_t_grl-grant_type * I_LANGUAGE = SY-LANGU IMPORTING * E_F_GMGRTYPE = e_grant_type_description = c_t_grl-type_description EXCEPTIONS OTHERS = 1.
T001_READ CALL FUNCTION 'T001_READ' EXPORTING bukrs = c_t_grl-company_code IMPORTING struct = l_f_t001 EXCEPTIONS OTHERS = 1.
GM_GET_AWARD_TYPE CALL FUNCTION 'GM_GET_AWARD_TYPE' EXPORTING i_award_type = c_t_grl-award_type * I_LANGUAGE = SY-LANGU IMPORTING * E_F_GMAWARDTYPE = e_award_type_description = c_t_grl-award_description EXCEPTIONS not_found = 1 OTHERS = 2.
GET_PERIOD_VERSION CALL FUNCTION 'GET_PERIOD_VERSION' EXPORTING i_periv = c_t_grl-grant_fy_variant i_xtexts = con_on * I_SPRAS = SY-LANGU IMPORTING * E_T009 = e_t009t = l_f_t009t EXCEPTIONS OTHERS = 3.
GM_GET_BILLING_RULE CALL FUNCTION 'GM_GET_BILLING_RULE' EXPORTING i_billing_rule = c_t_grl-billing_rule * I_LANGUAGE = SY-LANGU IMPORTING * E_F_GMBRE = e_billing_rule_txt = c_t_grl-billing_rule_txt EXCEPTIONS OTHERS = 1.
GM_GET_IDC_RULE CALL FUNCTION 'GM_GET_IDC_RULE' EXPORTING i_idc_rule = c_t_grl-idc_rule * I_LANGUAGE = SY-LANGU IMPORTING * E_F_GMIDCRULES = e_idc_rule_txt = c_t_grl-idc_rule_txt EXCEPTIONS OTHERS = 1.
GM_GET_SPLITTING_RULE CALL FUNCTION 'GM_GET_SPLITTING_RULE' EXPORTING i_splitting_rule = c_t_grl-splitting_rule * I_LANGUAGE = SY-LANGU IMPORTING * E_F_GMSPLITRULES = e_split_rule_txt = c_t_grl-split_rule_txt EXCEPTIONS OTHERS = 1.
GM_GET_CS_RULE CALL FUNCTION 'GM_GET_CS_RULE' EXPORTING i_cs_rule = c_t_grl-cs_rule * I_LANGUAGE = SY-LANGU IMPORTING * E_F_GMCSRULES = e_cs_rule_txt = c_t_grl-cs_rule_txt EXCEPTIONS OTHERS = 1.
GM_GET_LIFECYCLE_USER_STATUS CALL FUNCTION 'GM_GET_LIFECYCLE_USER_STATUS' EXPORTING i_grant_type = c_t_grl-grant_type i_user_status = c_t_grl-user_status i_lifecycle_status = c_t_grl-lifecycle_status IMPORTING e_user_status_icon = c_t_grl-user_status_icon e_user_status_desc = c_t_grl-user_status_desc e_lifecycle_status_icon = c_t_grl-lifecycle_status_icon e_lifecycle_status_desc = c_t_grl-lifecycle_status_desc EXCEPTIONS OTHERS = 1.
GM_AUTH_GROUP_READ_TEXT CALL FUNCTION 'GM_AUTH_GROUP_READ_TEXT' EXPORTING auth_group = c_t_grl-authgr object = c_gm_object_grant * LANGUAGE = SY-LANGU IMPORTING e_dd07v = l_f_dd07v e_auth_group_desc = l_t_authgrp TABLES tauth_group_desc = l_t_authgrp EXCEPTIONS OTHERS = 1.
GM_OBJECT_ID_DESC_WITH_ICON CALL FUNCTION 'GM_OBJECT_ID_DESC_WITH_ICON' EXPORTING i_objecttype = e_t_gmgrresponsible-object_type i_objectid = e_t_gmgrresponsible-object_id i_use_type_icon = 'X' i_use_type = space i_use_type_desc = 'X' i_use_id = space i_use_id_desc = 'X' IMPORTING e_object_type_desc = l_object_type_desc e_object_type_icon = l_object_type_icon e_object_id_desc = l_object_id_desc.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = l_object_type_icon text = l_object_type_desc info = l_object_type_desc * ADD_STDINF = 'X' IMPORTING result = c_t_grl-object_id_icon EXCEPTIONS icon_not_found = 1 outputfield_too_short = 2 OTHERS = 3.
POPUP_TO_DECIDE_LIST CALL FUNCTION 'POPUP_TO_DECIDE_LIST' EXPORTING textline1 = 'Assigned to Grant in'(252) titel = 'Grant used in'(253) IMPORTING answer = l_answer TABLES t_spopli = t_spopli.
CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = g_t_grl-partner IMPORTING output = g_t_grl-partner.
BUP_TB003_SELECT_WITH_ROLECAT CALL FUNCTION 'BUP_TB003_SELECT_WITH_ROLECAT' EXPORTING i_rolecategory = 'PSSP01' TABLES t_tb003 = lt_tb003 EXCEPTIONS OTHERS = 0.
BPOB_NEUE_OBERFL CALL FUNCTION 'BPOB_NEUE_OBERFL' EXPORTING iv_partner = g_t_grl-partner iv_role = lv_role_pssp01 iv_activity = con_display iv_aktivityswitch = con_on EXCEPTIONS OTHERS = 0.
GM_LOOKUP_GRANT_OBJECTS CALL FUNCTION 'GM_LOOKUP_GRANT_OBJECTS' EXPORTING i_show = con_on i_callback_program = g_repid i_callback_usercommand = 'GMOBJ_UCOMM1' * I_PLAN = * I_BUDGET = * I_ACTUALS = TABLES i_r_grant_nbr = l_r_grant * I_R_SPONSORED_PROG = s_prog * I_R_SPONSORED_CLASS = s_class * I_R_FM_AREA = s_fmarea * I_R_FUND = s_fund * I_R_FINANCING_OBJECT = s_fiobj * E_T_gmgrsponsoredobj = l_t_gmgrsponsoredobj EXCEPTIONS not_found = 1 OTHERS = 2.
REUSE_ALV_GRID_LAYOUT_INFO_GET CALL FUNCTION 'REUSE_ALV_GRID_LAYOUT_INFO_GET' IMPORTING es_variant = l_f_variant EXCEPTIONS no_infos = 1 program_error = 2 OTHERS = 3.
REUSE_ALV_LIST_LAYOUT_INFO_GET CALL FUNCTION 'REUSE_ALV_LIST_LAYOUT_INFO_GET' IMPORTING es_variant = l_f_variant EXCEPTIONS no_infos = 1 program_error = 2 OTHERS = 3.
REUSE_ALV_GRID_LAYOUT_INFO_GET CALL FUNCTION 'REUSE_ALV_GRID_LAYOUT_INFO_GET' IMPORTING et_fieldcat = l_t_fieldcat EXCEPTIONS no_infos = 1 program_error = 2 OTHERS = 3.
GM_GET_RESPONSIBILITY CALL FUNCTION 'GM_GET_RESPONSIBILITY' EXPORTING i_responsibility = p_resp * I_LANGUAGE = SY-LANGU IMPORTING * E_F_GMRESPTYPE = e_responsibility_description = l_resp_desc EXCEPTIONS OTHERS = 1.
REUSE_ALV_VARIANT_SELECT CALL FUNCTION 'REUSE_ALV_VARIANT_SELECT' EXPORTING i_dialog = 'N' i_user_specific = 'X' i_default = SPACE it_default_fieldcat = c_t_fcat i_layout = g_f_layout I_BYPASSING_BUFFER = 'X' IMPORTING et_fieldcat = l_var_fcat[] et_sort = l_var_sort[] et_filter = l_var_filter[] CHANGING cs_variant = g_f_variant EXCEPTIONS wrong_input = 1 fc_not_complete = 2 not_found = 3 program_error = 4 OTHERS = 5.
GM_ALV_LAYOUT CALL FUNCTION 'GM_ALV_LAYOUT' CHANGING c_f_layout = c_f_layout.
REUSE_ALV_GRID_DISPLAY CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * i_interface_check = 'X' i_callback_program = g_repid i_callback_pf_status_set = 'PF_STATUS_SET' i_callback_user_command = 'USER_COMMAND' i_structure_name = con_tabname_alv i_grid_title = l_f_titletext i_grid_settings = l_f_grid_settings is_layout = g_f_layout it_fieldcat = u_t_fcat it_sort = g_t_sort is_sel_hide = g_f_sel_crit i_default = con_on i_save = l_save is_variant = g_f_variant is_print = l_f_print it_events = g_t_events it_event_exit = l_t_event_exit "Note 1768268 TABLES t_outtab = g_t_grl EXCEPTIONS program_error = 1 OTHERS = 2.
REUSE_ALV_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING * i_interface_check = 'X' i_callback_program = g_repid i_callback_pf_status_set = 'PF_STATUS_SET' i_callback_user_command = 'USER_COMMAND' i_structure_name = con_tabname_alv is_layout = g_f_layout it_fieldcat = u_t_fcat it_sort = g_t_sort is_sel_hide = g_f_sel_crit i_default = con_on i_save = l_save is_variant = g_f_variant is_print = l_f_print it_events = g_t_events it_event_exit = l_t_event_exit "Note 1768268 TABLES t_outtab = g_t_grl EXCEPTIONS program_error = 1 OTHERS = 2.
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.
This will then be available for everyone to easily find by simply searching on the report name RFGMGRL1 or its description.