SAP Reports / Programs | Structures Workbench | Defense Forces and Public Security | Structures Workbench(IS-DFS-OF-FDP) SAP IS

MP195220 SAP ABAP INCLUDE - RP-PLAN Infotype 1952 Special Modules PAI/PBO







MP195220 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 MP195220 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 MP195220. "Basic submit
SUBMIT MP195220 AND RETURN. "Return to original report after report execution complete
SUBMIT MP195220 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: RP-PLAN Infotype 1952 Special Modules PAI/PBO


INCLUDES used within this REPORT MP195220

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:

ADDR_GET *** CALL FUNCTION 'ADDR_GET' *** EXPORTING *** address_selection = ls_addr_sel *** IMPORTING *** address_value = ls_addr_val *** EXCEPTIONS *** OTHERS = 99.

/ISDFPS/ADDR_REF_READ CALL FUNCTION '/ISDFPS/ADDR_REF_READ' EXPORTING i_addrnumber = p1952-addrnumber EXCEPTIONS parameter_error = 1 internal_error = 2 OTHERS = 3.

ADDR_DIALOG CALL FUNCTION 'ADDR_DIALOG' EXPORTING check_address = 'X' * SUPPRESS_TAXJURCODE_CHECK = ' ' * IMPORTING * OK_CODE = TABLES number_handle_tab = lt_number_handle.

ADDR_REFERENCE_GET CALL FUNCTION 'ADDR_REFERENCE_GET' EXPORTING address_number = p1952-addrnumber * PERSON_NUMBER = ' ' * ADDRESS_TYPE = '1' * IV_ONLY_OWNERS = ' ' * IMPORTING * REFERENCE_COUNTER = TABLES reference_table = lt_reference_table EXCEPTIONS parameter_error = 1 address_not_exist = 2 no_reference_found = 3 internal_error = 4 OTHERS = 5.

RH_GET_BUFFER_PLOG_TAB CALL FUNCTION 'RH_GET_BUFFER_PLOG_TAB' IMPORTING buffer_count_exp = l_buffer_count buffo_object_count_exp = l_buffo_object_count plog_tab_count_exp = l_plog_tab_count tb_buffer_count_exp = l_tb_buffer_count tb_plog_tab_count_exp = l_tb_plog_tab_count TABLES buffer_tab = lt_buffer buffo_tab = lt_buffo plog_tab_tab = lt_plog_tab tb_buffer_tab = lt_tb_buffer tb_plog_tab_tab = lt_tb_plog_tab.

POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = text-t03 text_question = text-t04 text_button_1 = text-t05 text_button_2 = text-t06 display_cancel_button = 'X' IMPORTING answer = l_answer.

/ISDFPS/ADDR_GEO_COPY CALL FUNCTION '/ISDFPS/ADDR_GEO_COPY' EXPORTING addrnumber_old = p1952-addrnumber handle = ls_handle addr_group = l_address_group addr_ref = ls_usage subty = p1952-subty IMPORTING addrnumber = l_addrnumber EXCEPTIONS copy_error = 1 OTHERS = 2.

BUA_BUT020_SELECT_WITH_ADDRNUM CALL FUNCTION 'BUA_BUT020_SELECT_WITH_ADDRNUM' EXPORTING i_addrnumber = p1952-addrnumber IMPORTING e_but020 = ls_but020 EXCEPTIONS not_found = 1 wrong_parameters = 2 not_valid = 3 OTHERS = 4.

ENQUEUE_EBU_PARTNR CALL FUNCTION 'ENQUEUE_EBU_PARTNR' EXPORTING mode_but000 = 'E' client = sy-mandt partner = ls_but020-partner EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

ADDR_ENQUEUE CALL FUNCTION 'ADDR_ENQUEUE' EXPORTING address_number = p1952-addrnumber EXCEPTIONS address_not_exist = 1 foreign_lock = 2 system_failure = 3 internal_error = 4 OTHERS = 5.

ADDR_DIALOG CALL FUNCTION 'ADDR_DIALOG' EXPORTING check_address = 'X' suppress_taxjurcode_check = ' ' IMPORTING ok_code = l_rc_ucomm TABLES number_handle_tab = addr_handle_tab values = addr_data_tab EXCEPTIONS address_not_exist = 1 group_not_valid = 2 parameter_error = 3 internal_error = 4 OTHERS = 90.

DEQUEUE_EBU_PARTNR CALL FUNCTION 'DEQUEUE_EBU_PARTNR' EXPORTING mode_but000 = 'E' client = sy-mandt partner = ls_but020-partner.

ADDR_DEQUEUE CALL FUNCTION 'ADDR_DEQUEUE' EXPORTING address_number = p1952-addrnumber EXCEPTIONS address_not_exist = 1 internal_error = 2 OTHERS = 3.

RH_OM_PERIOD_GET CALL FUNCTION 'RH_OM_PERIOD_GET' IMPORTING period = ls_periode upd_period = ls_periode_upd EXCEPTIONS period_not_initialized = 1 OTHERS = 2.

/ISDFPS/ADDR_SEARCH CALL FUNCTION '/ISDFPS/ADDR_SEARCH' EXPORTING subty = p1952-subty addr_group = address_group IMPORTING addrnumber = ls_addr_sel-addrnumber EXCEPTIONS nothing_selected = 1 OTHERS = 2.

ADDR_GET CALL FUNCTION 'ADDR_GET' EXPORTING address_selection = ls_addr_sel IMPORTING address_value = ls_addr_val EXCEPTIONS OTHERS = 99.

ADDR_DIALOG CALL FUNCTION 'ADDR_DIALOG' EXPORTING check_address = 'X' suppress_taxjurcode_check = ' ' IMPORTING ok_code = l_rc_ucomm TABLES number_handle_tab = addr_handle_tab values = addr_data_tab EXCEPTIONS address_not_exist = 1 group_not_valid = 2 parameter_error = 3 internal_error = 4 OTHERS = 90.

ADDR_NUMBER_GET CALL FUNCTION 'ADDR_NUMBER_GET' EXPORTING address_handle = address_handle address_reference = usage * GENERATE_TRANSPORT_ENTRIES = owner = ' ' IMPORTING address_number = address_number returncode_numberrange = rc_number_get EXCEPTIONS address_handle_not_exist = 1 internal_error = 2 parameter_error = 3 OTHERS = 4.

/ISDFPS/ADDR_COPY_REF





CALL FUNCTION '/ISDFPS/ADDR_COPY_REF' EXPORTING plvar = p1952-plvar otype = p1952-otype objid = p1952-objid * BEGDA = '19000101' * ENDDA = '99991231' act_svect = /isdfps/cl_fdpwb_cntl=>gs_status-svect EXCEPTIONS structure_not_found = 1 infty_not_found = 2 internal_error = 3 OTHERS = 4.

/ISDFPS/ADDR_COPY_REF_DOWN CALL FUNCTION '/ISDFPS/ADDR_COPY_REF_DOWN' EXPORTING plvar = p1952-plvar otype = p1952-otype objid = p1952-objid * BEGDA = '19000101' * ENDDA = '99991231' act_svect = /isdfps/cl_fdpwb_cntl=>gs_status-svect EXCEPTIONS structure_not_found = 1 infty_not_found = 2 internal_error = 3 OTHERS = 4.

ADDR_GET CALL FUNCTION 'ADDR_GET' EXPORTING address_selection = ls_addr_sel IMPORTING address_value = ls_addr_val * TABLES * ADDRESS_GROUPS = * ERROR_TABLE = * VERSIONS = EXCEPTIONS OTHERS = 99 .

/ISDFPS/ADRC_GEOLOC_READ CALL FUNCTION '/ISDFPS/ADRC_GEOLOC_READ' EXPORTING i_addrnumber = p1952-addrnumber i_date_from = q1952-date_from i_nation = q1952-nation IMPORTING eo_geoobject = lo_geoobject EXCEPTIONS read_error = 1 OTHERS = 2.

/ISDFPS/BADI_GEOLOC_SET_DATA CALL FUNCTION '/ISDFPS/BADI_GEOLOC_SET_DATA' EXPORTING is_geoloc = ls_geoloc i_readonly = l_grey_flag.

/ISDFPS/BADI_GEOLOC_GET_DATA CALL FUNCTION '/ISDFPS/BADI_GEOLOC_GET_DATA' IMPORTING es_geoloc = ls_geoloc.

NF_EM_SET_SY_UCOMM * CALL FUNCTION 'NF_EM_SET_SY_UCOMM' * EXPORTING * new_ok_code = sy-ucomm.

POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = 'Geolokation ändern'(t01) * DIAGNOSE_OBJECT = ' ' text_question = 'Wollen sie die Geolokation für diese Adresse ändern?'(t02) * TEXT_BUTTON_1 = 'Ja'(001) * ICON_BUTTON_1 = ' ' * TEXT_BUTTON_2 = 'Nein'(002) * ICON_BUTTON_2 = ' ' * DEFAULT_BUTTON = '1' * DISPLAY_CANCEL_BUTTON = 'X' * USERDEFINED_F1_HELP = ' ' * START_COLUMN = 25 * START_ROW = 6 * POPUP_TYPE = IMPORTING answer = l_answer * TABLES * PARAMETER = EXCEPTIONS text_not_found = 1 OTHERS = 2 .

/ISDFPS/ADRC_GEOLOC_READ CALL FUNCTION '/ISDFPS/ADRC_GEOLOC_READ' EXPORTING i_addrnumber = p1952-addrnumber i_date_from = q1952-date_from i_nation = q1952-nation IMPORTING eo_geoobject = lo_geoobject EXCEPTIONS read_error = 1 OTHERS = 2.

/ISDFPS/ADRC_GEOLOC_MAINT CALL FUNCTION '/ISDFPS/ADRC_GEOLOC_MAINT' EXPORTING io_geoobject = lo_geoobject EXCEPTIONS maint_error = 1 OTHERS = 2.

/ISDFPS/ADRC_GEOLOC_MAINT CALL FUNCTION '/ISDFPS/ADRC_GEOLOC_MAINT' EXPORTING io_geoobject = lo_geoobject EXCEPTIONS maint_error = 1 OTHERS = 2.

RH_SUBSCR_BUFFER_GET CALL FUNCTION 'RH_SUBSCR_BUFFER_GET' IMPORTING es_pppar = ls_pppar_subscr ev_input_done = l_input_done TABLES et_pnnnn_exp = lt_p1952_exp.

ADDR_DELETE CALL FUNCTION 'ADDR_DELETE' EXPORTING address_number = p1952-addrnumber address_reference = ls_usage EXCEPTIONS address_not_exist = 1 parameter_error = 2 internal_error = 3 reference_not_exist = 4 OTHERS = 5.



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