SAP Reports / Programs | Financial Accounting | Asset Accounting | Information System(FI-AA-IS) SAP FI
DBADAF30 SAP ABAP INCLUDE - Rout. for plannning recd. process. LDB ADA
DBADAF30 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 DBADAF30 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 DBADAF30. "Basic submit
SUBMIT DBADAF30 AND RETURN. "Return to original report after report execution complete
SUBMIT DBADAF30 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Rout. for plannning recd. process. LDB ADA
INCLUDES used within this REPORT DBADAF30
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:
AIPA_GET_SUBTREE_INVPROG CALL FUNCTION 'AIPA_GET_SUBTREE_INVPROG' EXPORTING i_prnam = t_imtp-prnam i_entry_posid = pa_posi1 i_gjahr = t_imtp-gjahr TABLES et_impr = t_impr_sel EXCEPTIONS entry_position_not_found = 8.
AIPL_STORE_SETTINGS CALL FUNCTION 'AIPL_STORE_SETTINGS' EXPORTING i_afabe = bereich1 "vw i_berdatum = berdatum "vw i_pa_versn = pa_versn i_pa_xbudg = pa_xbudg i_pa_xinvp = pa_xinvp i_pa_prnam = pa_prnam i_pa_posi1 = pa_posi1 i_pa_xmanf = pa_xmanf i_pa_imagn = pa_imagn i_pa_xproj = pa_xproj i_pa_posid = pa_posid i_pa_xauft = pa_xauft i_pa_xgjbg = pa_xgjbg i_pa_xsetl = pa_xsetl i_pa_stsel = pa_stsel i_tab_invpgsel = t_invpgsel[] TABLES i_so_gnjhr = so_gnjhr * I_SO_IMAPO = SO_IMAPO "manfext i_so_imape = so_imape "manfext i_so_pspnr = so_pspnr i_so_eaufn = so_eaufn i_ania_where_tab = ania_where_tab i_rg_afabe = r_anlb EXCEPTIONS OTHERS = 0.
AIPL_CHECK_INVPROG_RELEVANCY CALL FUNCTION 'AIPL_CHECK_INVPROG_RELEVANCY' EXPORTING i_prnam = t_imtp-prnam i_gjahr = t_imtp-gjahr IMPORTING e_flg_relevant = l_flg_relevant EXCEPTIONS OTHERS = 1.
AIPL_GET_AFAOBJECTS CALL FUNCTION 'AIPL_GET_AFAOBJECTS' EXPORTING i_flg_invprog = 'X' * I_PRNAM = T_IMTP-PRNAM "pta_sol * I_POSI1 = PA_POSI1 "pta_sol * I_GJAHR = T_IMTP-GJAHR "pta_sol i_prnam = t_top_impr-prnam "pta_sol i_posi1 = t_top_impr-posid "pta_sol i_gjahr = t_top_impr-gjahr "pta_sol i_flg_project = ' ' i_flg_order = ' ' i_flg_request = ' '.
AIPL_GET_AFAOBJECT_SINGLE_IP CALL FUNCTION 'AIPL_GET_AFAOBJECT_SINGLE_IP' EXPORTING i_index = l_index IMPORTING e_im_afaobj = afaobj e_subrc = l_subrc EXCEPTIONS OTHERS = 1.
AIPL_CHECK_PROJ_RELEVANCY * CALL FUNCTION 'AIPL_CHECK_PROJ_RELEVANCY' "invsel(del) * EXPORTING "invsel(del) * I_PSPNR = T_PROJ-PSPNR "invsel(del) * IMPORTING "invsel(del) * E_FLG_RELEVANT = L_FLG_RELEVANT "invsel(del) * EXCEPTIONS "invsel(del) * OTHERS = 1. "invsel(del)
CJDW_PRPS_SELECT_SINGLE * CALL FUNCTION 'CJDW_PRPS_SELECT_SINGLE' "invsel(del) * EXPORTING "invsel(del) * POSID = PA_POSID "invsel(del) * IMPORTING "invsel(del) * E_PRPS = T_TOP_PRPS "invsel(del) * EXCEPTIONS "invsel(del) * OTHERS = 4. "invsel(del)
AIPL_GET_AFAOBJECTS * CALL FUNCTION 'AIPL_GET_AFAOBJECTS' "invsel(del) * EXPORTING "invsel(del) * I_FLG_INVPROG = ' ' "invsel(del) * I_FLG_PROJECT = 'X' "invsel(del) * I_PSPID = T_PROJ-PSPID "invsel(del) * I_POSID = T_TOP_PRPS-POSID"invsel(del) * I_FLG_ORDER = ' ' "invsel(del) * I_FLG_REQUEST = ' '. "invsel(del)
AIPL_GET_AFAOBJECT_SINGLE * CALL FUNCTION 'AIPL_GET_AFAOBJECT_SINGLE' "invsel(del) * EXPORTING "invsel(del) * I_INDEX = L_INDEX "invsel(del) * IMPORTING "invsel(del) * E_IM_AFAOBJ = AFAOBJ "invsel(del) * E_SUBRC = L_SUBRC "invsel(del) * EXCEPTIONS "invsel(del) * OTHERS = 1. "invsel(del)
AIPL_GET_AFAOBJECTS * CALL FUNCTION 'AIPL_GET_AFAOBJECTS' "invsel(del) * EXPORTING "invsel(del) * I_FLG_INVPROG = ' ' "invsel(del) * I_FLG_PROJECT = ' ' "invsel(del) * I_FLG_ORDER = 'X' "invsel(del) * I_FLG_REQUEST = ' ' "invsel(del) * I_TAB_OBJNR_AUF = T_OBJ[]. "invsel(del)
AIPL_GET_AFAOBJECT_SINGLE * CALL FUNCTION 'AIPL_GET_AFAOBJECT_SINGLE' "invsel(del) * EXPORTING "invsel(del) * I_INDEX = L_INDEX "invsel(del) * IMPORTING "invsel(del) * E_IM_AFAOBJ = AFAOBJ "invsel(del) * E_SUBRC = L_SUBRC "invsel(del) * EXCEPTIONS "invsel(del) * OTHERS = 1. "invsel(del)
AIPL_GET_AFAOBJECTS * CALL FUNCTION 'AIPL_GET_AFAOBJECTS' "invsel(del) * EXPORTING "invsel(del) * I_FLG_INVPROG = ' ' "invsel(del) * I_FLG_PROJECT = ' ' "invsel(del) * I_FLG_ORDER = ' ' "invsel(del) * I_FLG_REQUEST = 'X' "invsel(del) * I_TAB_REQVAR = T_REQVAR[]. "invsel(del)
AIPL_GET_AFAOBJECT_SINGLE * CALL FUNCTION 'AIPL_GET_AFAOBJECT_SINGLE' "invsel(del) * EXPORTING "invsel(del) * I_INDEX = L_INDEX "invsel(del) * IMPORTING "invsel(del) * E_IM_AFAOBJ = AFAOBJ "invsel(del) * E_SUBRC = L_SUBRC "invsel(del) * EXCEPTIONS "invsel(del) * OTHERS = 1. "invsel(del)
FAA_NEWDCP_BUFFER_REFRESH CALL FUNCTION 'FAA_NEWDCP_BUFFER_REFRESH' "> 1257655 EXPORTING "> 1257655 ib_refresh_asset_manager = con_x "> 1257655 ib_refresh_segment_buffer = con_x "> 1257655 ib_refresh_buffer_registry = con_x. "> 1257655
DATE_TO_PERIOD_CONVERT CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' "vw EXPORTING "vw i_date = ania-aktiv "vw i_periv = hlp_periv "vw IMPORTING "vw e_buper = l_sav_zuper "vw e_gjahr = l_sav_zujhr. "vw
DATE_TO_PERIOD_CONVERT * CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' "vw * EXPORTING "vw * I_DATE = ANIA-AKTIV "vw * I_MONMIT = T093C-MONMIT "vw * I_PERIV = HLP_PERIV "vw * IMPORTING "vw * E_BUPER = ANLAV-ZUPER "vw * E_GJAHR = ANLAV-ZUJHR. "vw
DATE_TO_PERIOD_CONVERT CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' "gplab EXPORTING "gplab i_date = ania-gplab "gplab i_periv = hlp_periv "gplab IMPORTING "gplab e_buper = hlp_gplab_buper "gplab e_gjahr = hlp_gplab_gjahr. "gplab
AIPL_AUTHORITY_CHECK CALL FUNCTION 'AIPL_AUTHORITY_CHECK' EXPORTING i_afaobj = afaobj IMPORTING e_subrc = l_subrc EXCEPTIONS OTHERS = 0.
* CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET' * EXPORTING * I_GJAHR = XBPJA-GJAHR * I_MONMIT = X093C-MONMIT * I_PERIV = HLP_PERIV * I_POPER = CON_FIRSTPER * IMPORTING * E_DATE = L_BZDAT * EXCEPTIONS * OTHERS = 04.
DATE_TO_PERIOD_CONVERT CALL FUNCTION 'DATE_TO_PERIOD_CONVERT' EXPORTING i_date = berdatum i_periv = hlp_periv IMPORTING e_buper = hlp_perbis. "gplab
DEPR_RECALCULATE CALL FUNCTION 'DEPR_RECALCULATE' EXPORTING i_ants = ants i_fehler = 'X' i_function = 'N' " AfA-Neurechnen.
VIRTUAL_DEP_AREA_CALC CALL FUNCTION 'VIRTUAL_DEP_AREA_CALC' * EXPORTING F_ANLC = ANLC " n. 99496
ANLC_VORTRAGEN CALL FUNCTION 'ANLC_VORTRAGEN' EXPORTING i_ants = ants i_fehler = 'X' i_vortrag = l_vortrag i_cal_closed_fyears = 'X' IMPORTING e_vortrag = l_vortrag TABLES t_anlb = xanlb t_anlc = xanlc t_anlz = xanlz t_anep = xanep t_anfm = yanfm EXCEPTIONS OTHERS = 04.
ANEP_AFARECHNEN CALL FUNCTION 'ANEP_AFARECHNEN' EXPORTING i_ants = ants i_fehler = 'X' i_cal_closed_fyears = 'X' TABLES t_anea = xanea t_anep = xanep t_anfm = yanfm t_anlb = xanlb t_anlc = xanlc t_anlz = xanlz EXCEPTIONS OTHERS = 04.
ANEP_AFARECHNEN CALL FUNCTION 'ANEP_AFARECHNEN' EXPORTING i_ants = ants i_fehler = 'X' i_cal_closed_fyears = 'X' TABLES t_anea = xanea t_anep = xanep t_anfm = yanfm t_anlb = xanlb t_anlc = xanlc t_anlz = xanlz EXCEPTIONS OTHERS = 04.
CONVERT_TO_FOREIGN_CURRENCY CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING date = xanep-bzdat * TYPE_OF_RATE = 'M' " Mittelkurs. "n. 316258
FIRST_DAY_IN_PERIOD_GET CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET' EXPORTING i_gjahr = pa_gejhr i_periv = hlp_periv i_poper = con_firstper IMPORTING e_date = l_first_day EXCEPTIONS OTHERS = 04.
LAST_DAY_IN_YEAR_GET CALL FUNCTION 'LAST_DAY_IN_YEAR_GET' EXPORTING i_date = l_first_day i_periv = hlp_periv IMPORTING e_date = berdatum EXCEPTIONS OTHERS = 04.
AIPA_READ_VALUES_BUDG_AND_PLAN * CALL FUNCTION 'AIPA_READ_VALUES_BUDG_AND_PLAN' * EXPORTING * I_OBART = AFAOBJ-OBART * I_FLG_READ_VALUES = ' ' * I_FLG_AUTH_CHECK = 'X' * I_MESSAGE_BUDG = ' ' * I_MESSAGE_PLAN = ' ' * I_IMTP = AFAOBJ-IMTP * I_IMPR = AFAOBJ-IMPR * I_AUFKV = AFAOBJ-AUFKV * I_PRPS = AFAOBJ-PRPS * IMPORTING * E_SUBRC_PLAN = F_SUBRC * EXCEPTIONS * OTHERS = 1.
AIPA_F4_PLAN_VERSION CALL FUNCTION 'AIPA_F4_PLAN_VERSION' EXPORTING i_program = l_program i_dynnr = l_dynnr i_fn_gjahr_proposal = 'SO_GNJHR-LOW' i_fn_prnam_proposal = 'PA_PRNAM' i_fn_versn = 'PA_VERSN' i_takeover_allowed = 'X'.
AIPA_F4_PROGRAM CALL FUNCTION 'AIPA_F4_PROGRAM' EXPORTING i_program = l_program i_dynnr = l_dynnr i_fn_prnam = 'PA_PRNAM' i_fn_gjahr = 'SO_GNJHR-LOW' i_takeover_allowed = 'X'.
AIPA_F4_POSITION CALL FUNCTION 'AIPA_F4_POSITION' EXPORTING i_program = l_program i_dynnr = l_dynnr i_fn_prnam_proposal = 'PA_PRNAM' i_fn_gjahr_proposal = 'SO_GNJHR-LOW' i_fn_prnam = 'PA_PRNAM' i_fn_posid = 'PA_POSI1' i_fn_gjahr = 'SO_GNJHR-LOW' i_takeover_allowed = 'X'.
FREE_SELECTIONS_RANGE_2_WHERE CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_WHERE' EXPORTING field_ranges = t_dyn_sel-trange IMPORTING where_clauses = t_dyn_sel-clauses EXCEPTIONS OTHERS = 1.
AIPL_GET_AFAOBJECTS CALL FUNCTION 'AIPL_GET_AFAOBJECTS' EXPORTING i_flg_invprog = ' ' i_flg_project = ' ' i_flg_order = 'X' i_flg_request = ' ' i_tab_objnr_auf = it_obj[].
AIPL_GET_AFAOBJECT_SINGLE CALL FUNCTION 'AIPL_GET_AFAOBJECT_SINGLE' EXPORTING i_index = l_index IMPORTING e_im_afaobj = afaobj e_subrc = l_subrc EXCEPTIONS OTHERS = 1.
AIPL_GET_AFAOBJECTS CALL FUNCTION 'AIPL_GET_AFAOBJECTS' EXPORTING i_flg_invprog = ' ' i_flg_project = ' ' i_flg_order = ' ' i_flg_request = 'X' i_tab_reqvar = t_reqvar[].
AIPL_GET_AFAOBJECT_SINGLE CALL FUNCTION 'AIPL_GET_AFAOBJECT_SINGLE' EXPORTING i_index = l_index IMPORTING e_im_afaobj = afaobj e_subrc = l_subrc EXCEPTIONS OTHERS = 1.
AIPL_CHECK_PROJ_RELEVANCY CALL FUNCTION 'AIPL_CHECK_PROJ_RELEVANCY' EXPORTING i_pspnr = it_proj-pspnr IMPORTING e_flg_relevant = l_flg_relevant EXCEPTIONS OTHERS = 1.
CJDW_PRPS_SELECT_SINGLE CALL FUNCTION 'CJDW_PRPS_SELECT_SINGLE' EXPORTING posid = pa_posid IMPORTING e_prps = t_top_prps EXCEPTIONS OTHERS = 4.
AIPL_GET_AFAOBJECTS CALL FUNCTION 'AIPL_GET_AFAOBJECTS' EXPORTING i_flg_invprog = ' ' i_flg_project = 'X' i_pspid = it_proj-pspid i_posid = t_top_prps-posid i_flg_order = ' ' i_flg_request = ' '.
AIPL_GET_AFAOBJECT_SINGLE CALL FUNCTION 'AIPL_GET_AFAOBJECT_SINGLE' EXPORTING i_index = l_index IMPORTING e_im_afaobj = afaobj e_subrc = l_subrc EXCEPTIONS OTHERS = 1.
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 DBADAF30 or its description.