J_3RFKORIR1PDF SAP ABAP INCLUDE - Include J_3RFKORIR1
J_3RFKORIR1PDF 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 J_3RFKORIR1PDF 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 J_3RFKORIR1PDF. "Basic submit
SUBMIT J_3RFKORIR1PDF AND RETURN. "Return to original report after report execution complete
SUBMIT J_3RFKORIR1PDF 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 J_3RFKORIR1PDF
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:
J_3RF_DATE CALL FUNCTION 'J_3RF_DATE' EXPORTING F_DATE = TCJ_DOCUMENTS-DOCUMENT_DATE F_LANG = SAVE_LANGU IMPORTING F_DAY = P_DAY F_MONTH = P_MONTH F_YEAR = P_YEAR.
ADDR_GET CALL FUNCTION 'ADDR_GET' EXPORTING ADDRESS_SELECTION = SELECTION IMPORTING ADDRESS_VALUE = ADDRESS_VALUE EXCEPTIONS ADDRESS_NOT_EXIST = 1 OTHERS = 2.
ADDR_GET CALL FUNCTION 'ADDR_GET' EXPORTING ADDRESS_SELECTION = SELECTION IMPORTING ADDRESS_VALUE = ADDRESS_VALUE EXCEPTIONS ADDRESS_NOT_EXIST = 1 OTHERS = 2.
ADDR_GET CALL FUNCTION 'ADDR_GET' EXPORTING ADDRESS_SELECTION = SELECTION IMPORTING ADDRESS_VALUE = ADDRESS_VALUE EXCEPTIONS ADDRESS_NOT_EXIST = 1 OTHERS = 2.
ADDR_GET CALL FUNCTION 'ADDR_GET' EXPORTING ADDRESS_SELECTION = SELECTION IMPORTING ADDRESS_VALUE = ADDRESS_VALUE EXCEPTIONS ADDRESS_NOT_EXIST = 1 OTHERS = 2.
FI_CHECK_EXTENDED_WT CALL FUNCTION 'FI_CHECK_EXTENDED_WT' EXPORTING I_BUKRS = SAVE_BUKRS EXCEPTIONS COMPONENT_NOT_ACTIVE = 1 * NOT_FOUND = 2 OTHERS = 3 .
SPELL_AMOUNT CALL FUNCTION 'SPELL_AMOUNT' EXPORTING LANGUAGE = SAVE_LANGU CURRENCY = RF140-WAERS AMOUNT = TCJ_DOCUMENTS-H_NET_PAYMENT_WT FILLER = ' ' IMPORTING IN_WORDS = SPELL EXCEPTIONS NOT_FOUND = 1 TOO_LARGE = 2.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING DATE = TCJ_DOCUMENTS-POSTING_DATE FOREIGN_AMOUNT = TCJ_DOCUMENTS-H_NET_PAYMENT_WT FOREIGN_CURRENCY = RF140-WAERS LOCAL_CURRENCY = P_WAERS * RATE = 0 * TYPE_OF_RATE = 'M' IMPORTING exchange_rate = e_rate * foreign_factor = LOCAL_AMOUNT = DMBTR * local_factor = * exchange_ratex = EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 OTHERS = 5.
SPELL_AMOUNT CALL FUNCTION 'SPELL_AMOUNT' EXPORTING LANGUAGE = SAVE_LANGU CURRENCY = P_WAERS AMOUNT = DMBTR FILLER = ' ' IMPORTING IN_WORDS = DSPELL EXCEPTIONS NOT_FOUND = 1 TOO_LARGE = 2.
SPELL_AMOUNT CALL FUNCTION 'SPELL_AMOUNT' EXPORTING LANGUAGE = SAVE_LANGU CURRENCY = RF140-WAERS AMOUNT = RF140-WRSHB FILLER = ' ' IMPORTING IN_WORDS = SPELL EXCEPTIONS NOT_FOUND = 1 TOO_LARGE = 2.
CONVERT_TO_LOCAL_CURRENCY CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY' EXPORTING DATE = TCJ_DOCUMENTS-POSTING_DATE FOREIGN_AMOUNT = RF140-WRSHB FOREIGN_CURRENCY = RF140-WAERS LOCAL_CURRENCY = p_waers * RATE = 0 * TYPE_OF_RATE = 'M' IMPORTING exchange_rate = e_rate * foreign_factor = LOCAL_AMOUNT = DMBTR * local_factor = * exchange_ratex = EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 OTHERS = 5.
SPELL_AMOUNT CALL FUNCTION 'SPELL_AMOUNT' EXPORTING LANGUAGE = SAVE_LANGU CURRENCY = P_WAERS AMOUNT = DMBTR FILLER = ' ' IMPORTING IN_WORDS = DSPELL EXCEPTIONS NOT_FOUND = 1 TOO_LARGE = 2.
FI_DOCUMENT_RECORD CALL FUNCTION 'FI_DOCUMENT_RECORD' EXPORTING I_AWTYP = 'CAJO' I_AWREF = tcj_documents-posting_number I_AWORG = ld_aworg * I_AWSYS = ' ' * I_AWTYP_INCL = ' ' * I_AWTYP_EXCL = ' ' * I_BUKRS = ' ' TABLES T_DOCUMENTS = IT_DOCUMENTS[] .
CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING INPUT = h_cashor-ORDNUMBER IMPORTING OUTPUT = h_cashor-ORDNUMBER.
SPELL_AMOUNT CALL FUNCTION 'SPELL_AMOUNT' EXPORTING LANGUAGE = SAVE_LANGU CURRENCY = h_cashor-WAERS AMOUNT = tcj_documents-h_tax_amount FILLER = ' ' IMPORTING IN_WORDS = SPELL EXCEPTIONS NOT_FOUND = 1 TOO_LARGE = 2.
SPELL_AMOUNT CALL FUNCTION 'SPELL_AMOUNT' EXPORTING LANGUAGE = SAVE_LANGU CURRENCY = h_cashor-WAERS AMOUNT = tcj_documents-h_tax_amount FILLER = ' ' IMPORTING IN_WORDS = SPELL EXCEPTIONS NOT_FOUND = 1 TOO_LARGE = 2.
FP_GET_LAST_ADS_ERRSTR CALL FUNCTION 'FP_GET_LAST_ADS_ERRSTR' IMPORTING e_adserrstr = error_string.
FUNCTION_EXISTS CALL FUNCTION 'FUNCTION_EXISTS' DESTINATION gv_hrdest EXPORTING FUNCNAME = 'HR_RU_J3R_GET_PASSPORT_DATA' * IMPORTING * GROUP = * INCLUDE = * NAMESPACE = * STR_AREA = EXCEPTIONS FUNCTION_NOT_EXIST = 1 OTHERS = 2 .
* CALL FUNCTION 'CHECK_EXIST_LIMU_FUNC' * DESTINATION gv_hrdest * EXPORTING * NAME = 'HR_RU_J3R_GET_PASSPORT_DATA' * AGGNAME = ' ' * IMPORTING * EXIST = lv_exist * EXCEPTIONS * TR_INVALID_TYPE = 1 * OTHERS = 2.
HR_RU_J3R_GET_PASSPORT_DATA * CALL FUNCTION 'HR_RU_J3R_GET_PASSPORT_DATA' CALL FUNCTION lv_hr_get_passport_data DESTINATION gv_hrdest EXPORTING I_PERNR = TCJ_POSITIONS-PERNR I_BEGDA = '19000101' I_ENDDA = '99991231' IMPORTING E_PASSP_NUM = passport-nomer "char60 E_PASSP_ISS_BY = passport-passl "char100 E_PASSP_ISS_DAT = passport-datbg E_SERIAL = passport-seria "char20 EXCEPTIONS PERNR_NOT_FOUND = 1 OTHERS = 2.
HR_RU_J3R_GET_PASSPORT_DATA * CALL FUNCTION 'HR_RU_J3R_GET_PASSPORT_DATA' CALL FUNCTION lv_hr_get_passport_data DESTINATION gv_hrdest EXPORTING I_PERNR = TCJ_POSITIONS-PERNR I_BEGDA = '19000101' I_ENDDA = '99991231' IMPORTING E_PASSP_NUM = passport-nomer "char60 E_PASSP_ISS_BY = passl "char40 E_PASSP_ISS_DAT = passport-datbg E_SERIAL = passport-seria "char20 EXCEPTIONS PERNR_NOT_FOUND = 1 OTHERS = 2.
J_3R_HR_GET_RFC_DEST_FI CALL FUNCTION 'J_3R_HR_GET_RFC_DEST_FI' EXPORTING COMPANY_CODE = htcj_positions-comp_code IMPORTING DESTINATION = gv_hrdest EXCEPTIONS ERROR_IN_FILTEROBJECTS = 1 ERROR_IN_ALE_CUSTOMIZING = 2 NOT_UNIQUE_RECEIVER = 3 NO_RFC_DESTINATION_MAINTAINED = 4 OTHERS = 5.
FUNCTION_EXISTS CALL FUNCTION 'FUNCTION_EXISTS' DESTINATION gv_hrdest EXPORTING FUNCNAME = 'HR_RU_J3R_GET_PERNR_NAME' * IMPORTING * GROUP = * INCLUDE = * NAMESPACE = * STR_AREA = EXCEPTIONS FUNCTION_NOT_EXIST = 1 OTHERS = 2 .
CHECK_EXIST_LIMU_FUNC * CALL FUNCTION 'CHECK_EXIST_LIMU_FUNC' * DESTINATION gv_hrdest * EXPORTING * NAME = 'HR_RU_J3R_GET_PERNR_NAME' * AGGNAME = ' ' * IMPORTING * EXIST = lv_exist * EXCEPTIONS * TR_INVALID_TYPE = 1 * OTHERS = 2.
HR_RU_J3R_GET_PERNR_NAME * CALL FUNCTION 'HR_RU_J3R_GET_PERNR_NAME' CALL FUNCTION lv_hr_get_name DESTINATION gv_hrdest EXPORTING I_PERNR = pernr_kred I_BEGDA = sy-datum I_ENDDA = sy-datum IMPORTING E_NACHN = RECIPIENT-NAME1 E_VORNA = RECIPIENT-NAME2 E_MIDNM = RECIPIENT-NAME3 * E_INITI = ev_name_init EXCEPTIONS INFTY_0002_NOT_FOUND = 1 OTHERS = 2.
HR_RU_J3R_GET_PERNR_NAME * CALL FUNCTION 'HR_RU_J3R_GET_PERNR_NAME' CALL FUNCTION lv_hr_get_name DESTINATION gv_hrdest EXPORTING I_PERNR = pernr1_kred I_BEGDA = sy-datum I_ENDDA = sy-datum IMPORTING E_NACHN = RECIP1-NAME1 E_VORNA = RECIP1-NAME2 E_MIDNM = RECIP1-NAME3 * E_INITI = ev_name_init EXCEPTIONS INFTY_0002_NOT_FOUND = 1 OTHERS = 2.
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 J_3RFKORIR1PDF or its description.