SAP Reports / Programs | Structures Workbench | Defense Forces and Public Security | Structures Workbench(IS-DFS-OF-FDP) SAP IS
MP1950FORMS SAP ABAP INCLUDE - documentation and ABAP source code
MP1950FORMS 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 MP1950FORMS 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 MP1950FORMS. "Basic submit
SUBMIT MP1950FORMS AND RETURN. "Return to original report after report execution complete
SUBMIT MP1950FORMS 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 MP1950FORMS
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:
RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = p1950-plvar otype = 'RF' objid = p1950-ref_objid IMPORTING stext = gv_ref_objid_stext EXCEPTIONS not_found = 1 OTHERS = 2.
/ISDFPS/GET_ORG_AREA_COUNTRIES CALL FUNCTION '/ISDFPS/GET_ORG_AREA_COUNTRIES' IMPORTING et_countries = lt_org_area_countries EXCEPTIONS nothing_found = 1 OTHERS = 2.
VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'P1950-OWNER_NATION' values = lt_country_vrm_value EXCEPTIONS id_illegal_name = 1 OTHERS = 2.
VRM_GET_VALUES CALL FUNCTION 'VRM_GET_VALUES' EXPORTING id = 'P1950-OWNER_NATION' IMPORTING values = lt_country_vrm_value EXCEPTIONS id_not_found = 1 OTHERS = 2.
/ISDFPS/GET_ORG_AREA CALL FUNCTION '/ISDFPS/GET_ORG_AREA' EXPORTING iv_owner_nation_land1 = p1950-owner_nation IMPORTING et_org_area_v_cserv = lt_org_area_v_cserv EXCEPTIONS nothing_found = 1 OTHERS = 2.
VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'P1950-SERVICE_ID' values = lt_org_area_vrm_value EXCEPTIONS id_illegal_name = 1 OTHERS = 2.
/ISDFPS/GET_ORG_AREA CALL FUNCTION '/ISDFPS/GET_ORG_AREA' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id iv_include_texts_flag = space IMPORTING et_org_area_v_cserv = lt_org_area_v_cserv EXCEPTIONS nothing_found = 1 OTHERS = 2.
/ISDFPS/GET_STRUCTURE_TYPE CALL FUNCTION '/ISDFPS/GET_STRUCTURE_TYPE' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id IMPORTING et_structure_type_v_cflev = lt_structure_type_v_cflev EXCEPTIONS nothing_found = 1 OTHERS = 2.
/ISDFPS/GET_BRANCH CALL FUNCTION '/ISDFPS/GET_BRANCH' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id IMPORTING et_branch_v_cbrnch = lt_branch_v_cbrnch EXCEPTIONS nothing_found = 1 OTHERS = 2.
VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'GV_FORCE_LEVEL_KEY' values = lt_structure_type_vrm_value EXCEPTIONS id_illegal_name = 1 OTHERS = 2.
VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'P1950-BRANCH_ID' values = lt_branch_vrm_value EXCEPTIONS id_illegal_name = 1 OTHERS = 2.
/ISDFPS/GET_BRANCH CALL FUNCTION '/ISDFPS/GET_BRANCH' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id iv_branch_id = p1950-branch_id iv_include_texts_flag = space IMPORTING et_branch_v_cbrnch = lt_branch_v_cbrnch EXCEPTIONS nothing_found = 1 OTHERS = 2.
/ISDFPS/GET_BRANCH_ADDITION CALL FUNCTION '/ISDFPS/GET_BRANCH_ADDITION' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id iv_branch_id = p1950-branch_id IMPORTING et_branch_addition_vcbrnchs = lt_branch_addition_vcbrnchs EXCEPTIONS nothing_found = 1 OTHERS = 2.
VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'P1950-BRANCHS_ID' values = lt_branch_addition_vrm_value EXCEPTIONS id_illegal_name = 1 OTHERS = 2.
/ISDFPS/GET_ORG_AREA CALL FUNCTION '/ISDFPS/GET_ORG_AREA' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id iv_include_texts_flag = space IMPORTING et_org_area_v_cserv = lt_org_area_v_cserv EXCEPTIONS nothing_found = 1 OTHERS = 2.
/ISDFPS/CLGROUP_READ CALL FUNCTION '/ISDFPS/CLGROUP_READ' EXPORTING im_service_type =
-service_type im_level_group = p1950-level_group IMPORTING ex_clgrp = ls_structure_level_v_clgrp EXCEPTIONS unknown_service_type = 1 unknown_level_group = 2 unknown_record = 3 OTHERS = 4.
/ISDFPS/GET_ORG_AREA CALL FUNCTION '/ISDFPS/GET_ORG_AREA' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id iv_include_texts_flag = space IMPORTING et_org_area_v_cserv = lt_org_area_v_cserv EXCEPTIONS nothing_found = 1 OTHERS = 2.
/ISDFPS/GET_BRANCH CALL FUNCTION '/ISDFPS/GET_BRANCH' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id iv_branch_id = p1950-branch_id iv_include_texts_flag = space IMPORTING et_branch_v_cbrnch = lt_branch_v_cbrnch EXCEPTIONS nothing_found = 1 OTHERS = 2.
/ISDFPS/GET_BRANCH_ADDITION
CALL FUNCTION '/ISDFPS/GET_BRANCH_ADDITION' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id iv_branch_id = p1950-branch_id iv_branchs_id = p1950-branchs_id iv_include_texts_flag = space IMPORTING et_branch_addition_vcbrnchs = lt_branch_addition_vcbrnchs EXCEPTIONS nothing_found = 1 OTHERS = 2.
/ISDFPS/GET_ORG_AREA CALL FUNCTION '/ISDFPS/GET_ORG_AREA' EXPORTING iv_owner_nation_land1 = p1950-owner_nation iv_org_area_service_id = p1950-service_id iv_include_texts_flag = space IMPORTING et_org_area_v_cserv = lt_org_area_v_cserv EXCEPTIONS nothing_found = 1 OTHERS = 2.
/ISDFPS/CLGROUP_READ CALL FUNCTION '/ISDFPS/CLGROUP_READ' EXPORTING im_service_type =
-service_type im_level_group = gv_force_level_key(3) IMPORTING ex_clgrp = ls_structure_level_v_clgrp EXCEPTIONS unknown_service_type = 1 unknown_level_group = 2 unknown_record = 3 OTHERS = 4.
/ISDFPS/SC_GEN_CODE CALL FUNCTION '/ISDFPS/SC_GEN_CODE' EXPORTING cs = '' aff = '' bd = '' s = lv_status fid = lv_fid location_type = '-' "No details available for location_type until now sm = lv_sm cc = p1950-owner_nation ob = '' IMPORTING sc = p1950-sc.
/ISDFPS/SC_MAN_CHANGE CALL FUNCTION '/ISDFPS/SC_MAN_CHANGE' EXPORTING cs = 'S' aff = 'F' bd = 'G' s = lv_status fid = lv_fid location_type = '-' "No details available for location_type until now sm = lv_sm cc = p1950-owner_nation ob = 'G' CHANGING sc = p1950-sc.
RH_MACO CALL FUNCTION 'RH_MACO' EXPORTING seark = gv_ref_objid_seark win_title = lv_sytitle plvar = p1950-plvar otype = 'RF' restrict_fb = '/ISDFPS/F4_RESTRICT_FB_PARENT' "RESTRICT OBJs restrict_data = '821' "ACC. TO RELAT
DYNP_GET_STEPL CALL FUNCTION 'DYNP_GET_STEPL' IMPORTING povstepl = ls_dynpread-stepl EXCEPTIONS OTHERS = 1.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = 'MP195000' dynumb = sy-dynnr perform_input_conversion = 'X' TABLES dynpfields = lt_dynpread EXCEPTIONS OTHERS = 11.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = 'SAPLRHOMDETAILMANAGER' dynumb = '0300' perform_input_conversion = 'X' TABLES dynpfields = lt_dynpread EXCEPTIONS OTHERS = 11.
CONVERT_DATE_TO_INTERNAL CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL' EXPORTING date_external = lv_begda_c10 IMPORTING date_internal = ls_sel_hrcond-low EXCEPTIONS OTHERS = 2.
CONVERT_DATE_TO_INTERNAL CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL' EXPORTING date_external = lv_endda_c10 IMPORTING date_internal = ls_sel_hrcond-low EXCEPTIONS OTHERS = 2.
RH_OBJID_REQUEST CALL FUNCTION 'RH_OBJID_REQUEST' EXPORTING plvar = p1950-plvar otype = 'RF' seark = lv_seark restrict_fb = '/ISDFPS/F4_RESTRICT_FB_PARENT' "RESTRICT OBJs restrict_data = '821' "ACC. TO RELAT
DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING dyname = 'MP195000' dynumb = sy-dynnr TABLES dynpfields = lt_dynpread EXCEPTIONS invalid_abapworkarea = 1 invalid_dynprofield = 2 invalid_dynproname = 3 invalid_dynpronummer = 4 invalid_request = 5 no_fielddescription = 6 undefind_error = 7 OTHERS = 8.
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 MP1950FORMS or its description.