RAIMRF01 SAP ABAP INCLUDE - documentation and ABAP source code

SAP T-Codes / Example ABAP code
ABAP OO / SAP Function Modules
ABAP reports / SAP Error Messages
SAP Tables / SAP Video Training

RAIMRF01 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter RAIMRF01 into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

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.

SUBMIT RAIMRF01. "Basic submit
SUBMIT RAIMRF01 AND RETURN. "Return to original report after report execution complete
SUBMIT RAIMRF01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement

INCLUDES used within this REPORT RAIMRF01

No INCLUDES are used within this REPORT code!

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

DATE_TO_PERIOD_CONVERT CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' EXPORTING i_date = sy-datum i_periv = tka01-lmona IMPORTING e_gjahr = c_gjahr EXCEPTIONS input_false = 1 t009_notfound = 2 t009b_notfound = 3 OTHERS = 4.

REUSE_ALV_VARIANT_DEFAULT_GET CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET' EXPORTING i_save = 'A' CHANGING cs_variant = gs_variant EXCEPTIONS wrong_input = 1 not_found = 2 program_error = 3 OTHERS = 4.

REUSE_ALV_VARIANT_EXISTENCE CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE' EXPORTING i_save = 'A' CHANGING cs_variant = gs_variant EXCEPTIONS wrong_input = 1 not_found = 2 program_error = 3 OTHERS = 4.

REUSE_ALV_VARIANT_F4 CALL FUNCTION 'REUSE_ALV_VARIANT_F4' EXPORTING is_variant = gs_variant i_save = g_save i_tabname_header = g_tabname_header IMPORTING e_exit = g_exit es_variant = gs_variant EXCEPTIONS not_found = 2.

AIPA_F4_PLAN_VERSION CALL FUNCTION 'AIPA_F4_PLAN_VERSION' EXPORTING i_program = 'RAIMARED' i_dynnr = '1000' i_fn_gjahr_proposal = 'PA_VJAHR' i_fn_versn = 'PA_VERSI'.

REUSE_ALV_VARIANT_EXISTENCE CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE' EXPORTING i_save = 'A' CHANGING cs_variant = ls_variant EXCEPTIONS wrong_input = 1 not_found = 2 program_error = 3 OTHERS = 4.

MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.

DDIF_FIELDINFO_GET CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = 'RERED_1' TABLES dfies_tab = lt_dfies.

AIAA_READ_REQUEST_SET CALL FUNCTION 'AIAA_READ_REQUEST_SET' EXPORTING it_field_list = lt_fieldlist it_selection_table = gt_selection_table i_req_statsl = pa_statu i_sel_req_tab_flg = aiaw_con_on i_auth_check_flg = aiaw_con_on i_auth_mes_stor_flg = aiaw_con_on i_imakzs_req_flg = aiaw_con_on i_altern_incl_flg = pa_alter i_package_size = l_package_size i_auth_activity = g_con_act_planaendern IMPORTING e_auth_subrc = c_auth_subrc TABLES et_imak = gt_imak et_imav = gt_imav et_imavz = gt_imavz iet_request_set = gt_posnr et_req_varnt = gt_imav_to_read EXCEPTIONS unknown_table = 1 OTHERS = 2.

REUSE_ALV_FIELDCATALOG_MERGE CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = l_repid i_internal_tabname = g_tabname_header i_structure_name = 'RERED_1' CHANGING ct_fieldcat = ct_fieldcat EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3.

REUSE_ALV_FIELDCATALOG_MERGE CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = l_repid i_internal_tabname = g_tabname_header i_structure_name = 'RERED_2' CHANGING ct_fieldcat = ct_fieldcat EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3.

DDIF_FIELDINFO_GET CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = 'RERED_2' TABLES dfies_tab = lt_fields EXCEPTIONS not_found = 1 internal_error = 2 OTHERS = 3.

KBPS_FIND_LEDGER CALL FUNCTION 'KBPS_FIND_LEDGER' EXPORTING currency = gs_tka01-waers new_ledger = 'X' periv = gs_tka01-lmona IMPORTING ledger = l_lednr_txn.

KBPR_READ_DATA
  CALL FUNCTION 'KBPR_READ_DATA'
    EXPORTING
      GEBER_ALL  = AIAW_CON_ON
      LEDGER_ALL = AIAW_CON_ON
      NEW_LEDGER = AIAW_CON_ON
      TRGKZ      = L_NODE
      READ_BPJA  = AIAW_CON_ON
      READ_BPGE  = AIAW_CON_ON
    IMPORTING
      SUBRC      = L_SUBRC
    TABLES
      BP_GE      = CT_BPGE
      BP_JA      = CT_BPJA
      TAB_OBJNR  = LT_OBJNR
      TAB_VALUE  = LT_WRTTP
    EXCEPTIONS
      OTHERS     = 1.

KBPS_FIND_LEDGER CALL FUNCTION 'KBPS_FIND_LEDGER' EXPORTING currency = gs_tka01-waers new_ledger = 'X' periv = gs_tka01-lmona IMPORTING ledger = l_lednr_coarea.

AIPR_BP_CURR_CONVERSION CALL FUNCTION 'AIPR_BP_CURR_CONVERSION' EXPORTING id_kokrs = gs_tka01-kokrs id_profil = tbp1c-profil id_applik = 'Q' id_wrttp = '39' id_gnjhr = gt_curr_info-gjahr id_versn_iq = gt_curr_info-versi id_waers_from = l_curr_txn id_waers_to = l_curr_alt TABLES it_bpge = lt_bpge_exp[] it_bpja = lt_bpja_exp[] et_bpge = lt_bpge_buf[] et_bpja = lt_bpja_buf[] EXCEPTIONS ERROR_OCCURED = 1 ABEND_OCCURED = 2 OTHERS = 3.

KBPV_POST_DATA CALL FUNCTION 'KBPV_POST_DATA' EXPORTING im_bpin = gs_bpin IMPORTING ex_belnr = l_belnr TABLES tab_bpge = gt_bpge_write tab_bpja = gt_bpja_write.

KBPS_INIT CALL FUNCTION 'KBPS_INIT' EXPORTING bp_import = gs_bpin IMPORTING bp_in = gs_bpin.

REUSE_ALV_COMMENTARY_WRITE

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING it_list_commentary = gt_commentary.

ENQUEUE_EI_IMAK
  CALL FUNCTION 'ENQUEUE_EI_IMAK'
*      EXPORTING
*           MODE_IMAK      = 'S'
*           MODE_IMAV      = 'E'
*           MANDT          = SY-MANDT
*           POSNR          =
*           VARNT          =
*           X_POSNR        = ' '
*           X_VARNT        = ' '
*           _SCOPE         = '2'
*           _WAIT          = ' '
*           _COLLECT       = ' '
       EXCEPTIONS
            foreign_lock   = 1
            system_failure = 2
            OTHERS         = 3.

DEQUEUE_EI_IMAK CALL FUNCTION 'DEQUEUE_EI_IMAK'.

KBPS_FIND_LEDGER CALL FUNCTION 'KBPS_FIND_LEDGER' EXPORTING CURRENCY = it_imak-waers NEW_LEDGER = 'X' PERIV = is_tka01-lmona IMPORTING LEDGER = lt_lednr-lednr.

Contribute (Add Comments)

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 RAIMRF01 or its description.

RAIMRF01 - documentation and ABAP source code
RAIMREFT - IM Drilldown general: Fixed routines for reading charact. texts
RAIMREFC - IM Drilldowns general: Fixed routines for checking characteristics
RAIMREEP - Investment Program Position: Plan Line Items
RAIMREEP - Investment Program Position: Plan Line Items
RAIMREEF - Inv.program position: Plan/budget line items