PCMEDKR4 SAP ABAP INCLUDE - Include PCMEDKR4
PCMEDKR4 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 PCMEDKR4 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 PCMEDKR4. "Basic submit
SUBMIT PCMEDKR4 AND RETURN. "Return to original report after report execution complete
SUBMIT PCMEDKR4 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Include PCMEDKR4
INCLUDES used within this REPORT PCMEDKR4
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:
CU_READ_RGDIR CALL FUNCTION 'CU_READ_RGDIR' EXPORTING persnr = pernr-pernr TABLES in_rgdir = rgdir EXCEPTIONS OTHERS = 0.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr-pernr infty = gc_infty_0812 begda = gv_begda endda = gv_endda TABLES infty_tab = gt_p0812 EXCEPTIONS OTHERS = 0.
HR_INFOTYPE_GETLIST CALL FUNCTION 'HR_INFOTYPE_GETLIST' EXPORTING infty = gc_infty_0021 number = pernr-pernr timeintervallow = gv_begda timeintervalhigh = gv_endda TABLES key = lt_tab_key.
HR_INFOTYPE_GETDETAIL CALL FUNCTION 'HR_INFOTYPE_GETDETAIL' EXPORTING infty = gc_infty_0021 number =
-employeeno subtype = -subtype objectid = -objectid lockindicator = -lockindic validityend = -validend validitybegin = -validbegin recordnumber = -recordnr IMPORTING record = ls_p0021 secondary_record = ls_p0540 EXCEPTIONS OTHERS = 0.
RP_EDIT_NAME CALL FUNCTION 'RP_EDIT_NAME' EXPORTING pp0002 = ls_p0002 pp0021 = ls_p0021 molga = gc_controy_gp langu = sy-langu format = ls_p0002-knznm IMPORTING edit_name = lv_emnam.
COMPUTE_YEARS_BETWEEN_DATES * CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' * EXPORTING * first_date = ls_p0021-fgbdt * modify_interval = '+' * second_date = gv_endda * IMPORTING * years_between_dates = lv_years * EXCEPTIONS * OTHERS = 0.
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = ls_p0021-fgbdt modify_interval = '+' second_date = gv_endda IMPORTING years_between_dates = lv_years EXCEPTIONS OTHERS = 0.
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = ls_p0021-fgbdt modify_interval = '+' second_date = gv_endda IMPORTING years_between_dates = lv_years EXCEPTIONS OTHERS = 0.
RP_EDIT_NAME CALL FUNCTION 'RP_EDIT_NAME' EXPORTING pp0002 = ls_p0002 molga = gc_controy_gp langu = sy-langu format = ls_p0002-knznm IMPORTING edit_name = lv_emnam.
HR_INFOTYPE_GETDETAIL CALL FUNCTION 'HR_INFOTYPE_GETDETAIL' EXPORTING infty = gc_infty_0539 number = ls_p0002-pernr subtype = ls_p0002-subty objectid = ls_p0002-objps lockindicator = ls_p0002-sprps validityend = ls_p0002-endda validitybegin = ls_p0002-begda IMPORTING record = ls_p0539 EXCEPTIONS OTHERS = 0.
COMPUTE_YEARS_BETWEEN_DATES * CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' * EXPORTING * first_date = ls_p0002-gbdat * modify_interval = '+' * second_date = gv_endda * IMPORTING * years_between_dates = lv_years * EXCEPTIONS * OTHERS = 0.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr-pernr infty = gc_infty_0541 begda = gv_begda endda = gv_endda TABLES infty_tab = ls_p0541.
COMPUTE_YEARS_BETWEEN_DATES * CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' * EXPORTING * first_date = ls_p0002-gbdat * modify_interval = '+' * second_date = gv_endda * IMPORTING * years_between_dates = lv_years * EXCEPTIONS * OTHERS = 0.
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = ls_p0002-gbdat modify_interval = '+' second_date = gv_endda IMPORTING years_between_dates = lv_years EXCEPTIONS OTHERS = 0.
HR_KR_BUSINESSPLACE_GET_DATA CALL FUNCTION 'HR_KR_BUSINESSPLACE_GET_DATA' EXPORTING *<<< JINQUE1444018 * pers_area = p0001-werks * pers_subarea = p0001-btrtl * mode = ' ' pers_area = pers_area pers_subarea = pers_subarea mode = mode *>>> JINQUE1444018 address_nation = gv_nation IMPORTING bus_place_detail = ls_bus_place EXCEPTIONS no_company_code_for_pers_area = 1 no_busplace_for_subarea = 2 no_med_ins_assoc_for_subarea = 3 no_rep_busplace_for_mi_assoc = 4 no_entry_t7krbp_for_bupla = 5 no_businessplace_data = 6 illegal_mode = 7 OTHERS = 8.
ADDR_GET CALL FUNCTION 'ADDR_GET' EXPORTING address_selection = ls_addr_sel IMPORTING address_value = ls_addr_val EXCEPTIONS parameter_error = 1 address_not_exist = 2 version_not_exist = 3 internal_error = 4 OTHERS = 5.
HRCA_COMPANYCODE_GETDETAIL CALL FUNCTION 'HRCA_COMPANYCODE_GETDETAIL' EXPORTING companycode = pv_bukrs language = sy-langu IMPORTING comp_name = lv_comp_name EXCEPTIONS not_found = 1 OTHERS = 2.
RP_TS_CREATE_OBJECT CALL FUNCTION 'RP_TS_CREATE_OBJECT' EXPORTING objkn = gs_rptstype-objkn objnr = gs_rptstype-objnr empfg = gs_rptstype-empfg objin = gs_rptstype-objin IMPORTING objhd = gs_rptstype-objhd tsobj = gs_rptstype-tsobj EXCEPTIONS fb_call_handle = 1 fb_error = 2 fb_rsts_noconv = 3 fb_rsts_other = 4 no_object = 5 no_permission = 6 fb_nr_no_object = 7 fb_nr_not_intern = 8 fb_nr_not_found = 9 fb_object_already_exist = 10 fb_nr_overflow = 11 enq_foreign_lock = 12 enq_sys_fail = 13 enq_other = 14.
CALL FUNCTION 'RSTS_WRITE' EXPORTING fbhandle = gs_rptstype-objhd TABLES datatab = gt_data_file EXCEPTIONS fb_call_handle = 1 fb_error = 2 fb_rsts_noconv = 3 fb_rsts_other = 4.
HR_PAL_GENRL_MSG_ADD CALL FUNCTION 'HR_PAL_GENRL_MSG_ADD' EXPORTING i_msgid = pv_msgid i_msgty = pv_msgty i_msgno = pv_msgno i_msgv1 = ls_msg_txt-msgv1 i_msgv2 = ls_msg_txt-msgv2 i_msgv3 = ls_msg_txt-msgv3 i_msgv4 = ls_msg_txt-msgv4.
HR_PAL_GENRL_MSG_ADD CALL FUNCTION 'HR_PAL_GENRL_MSG_ADD' EXPORTING i_msgid = sy-msgid i_msgty = sy-msgty i_msgno = sy-msgno i_msgv1 = sy-msgv1 i_msgv2 = sy-msgv2 i_msgv3 = sy-msgv3 i_msgv4 = sy-msgv4.
HR_PAL_PERNR_MSG_ADD CALL FUNCTION 'HR_PAL_PERNR_MSG_ADD' EXPORTING i_pernr = p_pernr i_msgid = sy-msgid i_msgty = sy-msgty i_msgno = sy-msgno i_msgv1 = sy-msgv1 i_msgv2 = sy-msgv2 i_msgv3 = sy-msgv3 i_msgv4 = sy-msgv4.
HR_PAL_LOG_DISPLAY CALL FUNCTION 'HR_PAL_LOG_DISPLAY' EXPORTING i_s_display_profile = ls_disp_prof i_s_flat_profile = ls_flat_prof EXCEPTIONS OTHERS = 0.
HR_KR_STRING_TO_XSTRING CALL FUNCTION 'HR_KR_STRING_TO_XSTRING' EXPORTING unicode_string = lv_in_string out_len = pv_length IMPORTING xstring_stream = gv_out_xstring EXCEPTIONS invalid_codepage = 1 invalid_string = 2.
HR_KR_XSTRING_TO_STRING CALL FUNCTION 'HR_KR_XSTRING_TO_STRING' EXPORTING in_xstring = gv_adj_xstring IMPORTING out_string = gv_adj_string.
OPEN_FORM CALL FUNCTION 'OPEN_FORM' EXPORTING FORM = p_frmnm LANGUAGE = sy-langu DIALOG = dialog "N1624558 OPTIONS = itcpo "N1624558 EXCEPTIONS OTHERS = 1.
START_FORM CALL FUNCTION 'START_FORM' EXPORTING STARTPAGE = 'PAGE1' EXCEPTIONS OTHERS = 1.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'MEDEXPS' function = 'SET' type = 'BODY' window = 'MAIN' EXCEPTIONS OTHERS = 1.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'MEDEXPS2' function = 'SET' type = 'BODY' window = 'MAIN' EXCEPTIONS OTHERS = 1.
CONTROL_FORM CALL FUNCTION 'CONTROL_FORM' EXPORTING command = 'NEW-PAGE PAGE2'.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = 'TOTAL2' function = 'SET' type = 'BODY' window = 'MAIN' EXCEPTIONS OTHERS = 1.
END_FORM CALL FUNCTION 'END_FORM' EXCEPTIONS UNOPENED = 1.
CLOSE_FORM CALL FUNCTION 'CLOSE_FORM'.
CLOSE_FORM CALL FUNCTION 'CLOSE_FORM' IMPORTING RESULT = RESULTS TABLES OTFDATA = OTF_TABLE EXCEPTIONS UNOPENED = 1 OTHERS = 2.
CONVERT_OTF CALL FUNCTION 'CONVERT_OTF' EXPORTING format = 'PDF' IMPORTING bin_filesize = pdf_fsize TABLES otf = otf_table lines = pdf_content EXCEPTIONS err_max_linewidth = 1 err_format = 2 err_conv_not_possible = 3 err_bad_otf = 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 PCMEDKR4 or its description.