SAP Reports / Programs | Personnel Management | Personnel Administration | Netherlands(PA-PA-NL) SAP PA
RPCCDFN0 SAP ABAP INCLUDE - Form include Notification Social Insurance CADANS
RPCCDFN0 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 RPCCDFN0 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 RPCCDFN0. "Basic submit
SUBMIT RPCCDFN0 AND RETURN. "Return to original report after report execution complete
SUBMIT RPCCDFN0 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Form include Notification Social Insurance CADANS
INCLUDES used within this REPORT RPCCDFN0
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:
HR_NL_GET_UVISRT CALL FUNCTION 'HR_NL_GET_UVISRT' EXPORTING insta = t5n9i-insta ansnr = t5n9r-ansnr reper = t5n9r-reper "YDRL6BK049299 begda = t5n9i-begda "YDRL6BK049299 endda = t5n9i-endda "YDRL6BK049299 IMPORTING uvisr = reptab-rel-uvisr error = error.
HR_NL_GET_REPERS CALL FUNCTION 'HR_NL_GET_REPERS' "K020977 EXPORTING date = f4date soort = f4soort uvis = f4uvis IMPORTING error = error TABLES relmngtab = relmngtab.
HR_NL_GET_RELATIONS CALL FUNCTION 'HR_NL_GET_RELATIONS' EXPORTING * date = pnpbegda "YFAL9CK038382 date = f4date "YFAAL0K054873 "YFAL9CK038382 TABLES relmngtab = relmngtab.
HR_NL_RELMNGCHECK CALL FUNCTION 'HR_NL_RELMNGCHECK' EXPORTING date = f4date "YFAAL0K054873 messtp = 'W' "YFAAL0K054873 TABLES relmngtab = relmngtab.
HR_NL_GET_REPERS CALL FUNCTION 'HR_NL_GET_REPERS' EXPORTING date = h_endda soort = f4soort uvis = f4uvis IMPORTING error = error TABLES relmngtab = persreper.
HR_NL_GET_RELATIONS CALL FUNCTION 'HR_NL_GET_RELATIONS' EXPORTING date = h_endda TABLES relmngtab = persreper.
HR_NL_RELMNGCHECK CALL FUNCTION 'HR_NL_RELMNGCHECK' EXPORTING date = h_endda messtp = 'W' "YFAAL0K054873 TABLES relmngtab = persreper.
VIEW_ENQUEUE CALL FUNCTION 'VIEW_ENQUEUE' "K004459 EXPORTING "K004459 action = 'E' "K004459 enqueue_mode = 'E' "K004459 view_name = 'V_T5N1T' "K004459 EXCEPTIONS "K004459 OTHERS = 08. "K004459
VIEW_ENQUEUE CALL FUNCTION 'VIEW_ENQUEUE' "K004459 EXPORTING "K004459 action = 'D' "K004459 enqueue_mode = 'E' "K004459 view_name = 'V_T5N1T' "K004459 EXCEPTIONS "K004459 OTHERS = 08. "K004459
HR_NL_CONVERT_NUMERIC CALL FUNCTION 'HR_NL_CONVERT_NUMERIC' EXPORTING SOURCE = itab40960-wostd length = 4 decim = 2 sign = 'N' ebcdic = 'N' IMPORTING destin = itab-vuren.
HR_NL_HIRE_FIRE * CALL FUNCTION 'RP_HIRE_FIRE' "YFAAL0K033766 CALL FUNCTION 'HR_NL_HIRE_FIRE' "YFAAL0K033766 EXPORTING beg = t_date end = pn-endda IMPORTING hire_date = hiredate fire_date = firedate TABLES pp0000 = p0000 pp0001 = p0001 pphifi = phifi.
HR_NL_GET_BGLST CALL FUNCTION 'HR_NL_GET_BGLST' EXPORTING appl = 'CCDS' famst = p0002-famst endda = p0002-endda begda = p0002-begda IMPORTING BGLST = itab-bglst EXCEPTIONS NO_APPL = 1 NO_ENTRY = 2 WRONG_SELECTION = 3 NOT_VALID = 4 OTHERS = 5 .
HR_NL_CONVERT_NUMERIC CALL FUNCTION 'HR_NL_CONVERT_NUMERIC' EXPORTING SOURCE = uren length = 4 decim = 2 sign = 'N' ebcdic = 'N' IMPORTING destin = itab-uren.
HR_NL_CONVERT_NUMERIC CALL FUNCTION 'HR_NL_CONVERT_NUMERIC' EXPORTING SOURCE = p0007-wostd length = 4 decim = 2 sign = 'N' ebcdic = 'N' IMPORTING destin = itab-uren.
HR_NL_SET_RECORDLENGTH * CALL FUNCTION 'HR_NL_SET_RECORDLENGTH' "XCJL9CK014191 * EXPORTING " * medcod = mdc " * CHANGING " * recordlength = recordlength " * EXCEPTIONS " * MEDIUMCODE_DOES_NOT_EXIST = 1 " * OTHERS = 2 " * . "
HR_NL_GET_REPERS CALL FUNCTION 'HR_NL_GET_REPERS' EXPORTING date = h_date soort = '01' uvis = 'C' pernr = h_pernr IMPORTING error = error TABLES relmngtab = persreper * ERRORTAB = .
HR_NL_GET_RELATIONS CALL FUNCTION 'HR_NL_GET_RELATIONS' EXPORTING date = h_date TABLES relmngtab = persreper.
HR_NL_ERR_REPORT CALL FUNCTION 'HR_NL_ERR_REPORT' TABLES fttab = fttab.
RP_EDIT_NAME CALL FUNCTION 'RP_EDIT_NAME' EXPORTING pp0002 = p0002 molga = mlga langu = space format = $$format IMPORTING edit_name = naam retcode = ret-code.
HR_NL_GET_REPERS CALL FUNCTION 'HR_NL_GET_REPERS' "K020977 EXPORTING date = pnpbegda soort = f4soort uvis = f4uvis IMPORTING error = error TABLES relmngtab = relmngtab.
HR_NL_GET_RELATIONS CALL FUNCTION 'HR_NL_GET_RELATIONS' EXPORTING date = pnpbegda TABLES relmngtab = relmngtab.
HR_NL_GET_REPERS CALL FUNCTION 'HR_NL_GET_REPERS' " EXPORTING " date = pn-endda " soort = f4soort " uvis = f4uvis " IMPORTING " error = error " TABLES " relmngtab = persreper. "used as a dummy "
HR_NL_GET_RELATIONS CALL FUNCTION 'HR_NL_GET_RELATIONS' " EXPORTING " date = pn-endda " TABLES " relmngtab = persreper. "
HR_NL_GET_REPERS * CALL FUNCTION 'HR_NL_GET_REPERS' * EXPORTING * date = p0001-begda * soort = '01' * pernr = pernr-pernr * IMPORTING * error = error * TABLES * relmngtab = persreper.
HR_NL_GET_FIXED_VALUE_TEXT CALL FUNCTION 'HR_NL_GET_FIXED_VALUE_TEXT' EXPORTING domain_name = 'P05_MEDCCD' "YFAAL0K033766 input_value = mdc IMPORTING value_text = mdt EXCEPTIONS not_found = 1 error_in_domain = 2 OTHERS = 3.
HR_NL_GET_FIXED_VALUE_TEXT * CALL FUNCTION 'HR_NL_GET_FIXED_VALUE_TEXT' * EXPORTING * domain_name = 'P05_DENSCC' "YFAAL0K033766 * input_value = bpi * IMPORTING * value_text = bpt * EXCEPTIONS * not_found = 1 * error_in_domain = 2 * OTHERS = 3.
COMPUTE_YEARS_BETWEEN_DATES CALL FUNCTION 'COMPUTE_YEARS_BETWEEN_DATES' EXPORTING first_date = p0002-gbdat second_date = melda IMPORTING years_between_dates = itab-leeft.
HR_NL_CONVERT_NUMERIC CALL FUNCTION 'HR_NL_CONVERT_NUMERIC' EXPORTING SOURCE = cl_result-brutoln_sv length = 7 decim = 0 sign = 'N' ebcdic = ebcdic IMPORTING destin = itab-loonsom.
HR_NL_GET_PRP CALL FUNCTION 'HR_NL_GET_PRP' "YWNAHRK063126 EXPORTING year = h_year permo = t549a-permo IMPORTING per = h_lstper.
HR_NL_READ_CD CALL FUNCTION 'HR_NL_READ_CD' "YWNAHRK063126 EXPORTING persnr = pernr-pernr permo = t549a-permo abkrs = p0001-abkrs pabrj = h_year * PABRP = pabrj_end = h_year * PABRP_END = * INPER_LST = inper_act = h_lstper * FURBEG = * FUREND = fpbeg = p_begda fpend = p_endda IMPORTING error = clerror TABLES locrgdir = rgdir EXCEPTIONS OTHERS = 1.
HR_NL_GET_LABELRECORD CALL FUNCTION 'HR_NL_GET_LABELRECORD' EXPORTING file_name = 'MBVDAT' * YEAR = eeuw = space medium = mdc * INZENDER = dsn = dsn * dens = bpi tapenr = p_tapnr rectrans = rectrans.
VIEW_ENQUEUE CALL FUNCTION 'VIEW_ENQUEUE' EXPORTING action = 'E' enqueue_mode = 'E' view_name = 'V_T5N1T' EXCEPTIONS OTHERS = 08.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = t5n1t-pernr infty = '0000' begda = t5n1t-begda endda = t5n1t-begda TABLES infty_tab = wa_0000 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = t5n1t-pernr infty = '0001' begda = t5n1t-begda endda = t5n1t-begda TABLES infty_tab = wa_0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_NL_GET_REPERS CALL FUNCTION 'HR_NL_GET_REPERS' EXPORTING date = t5n1t-begda soort = '01' uvis = 'C' " equal to UVI Cadans pernr = t5n1t-pernr IMPORTING error = error TABLES relmngtab = persreper.
HR_NL_GET_RELATIONS CALL FUNCTION 'HR_NL_GET_RELATIONS' EXPORTING date = t5n1t-begda TABLES relmngtab = persreper.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = t5n1t-pernr infty = '0002' begda = t5n1t-begda endda = t5n1t-begda TABLES infty_tab = wa_0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = t5n1t-pernr infty = '0000' begda = t5n1t-begda endda = t5n1t-begda TABLES infty_tab = wa_0000 EXCEPTIONS infty_not_found = 1 OTHERS = 2.HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = t5n1t-pernr infty = '0001' begda = t5n1t-begda endda = t5n1t-begda TABLES infty_tab = wa_0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_NL_GET_REPERS CALL FUNCTION 'HR_NL_GET_REPERS' EXPORTING date = t5n1t-begda soort = '01' uvis = 'C' " equal to UVI Cadans pernr = t5n1t-pernr IMPORTING error = error TABLES relmngtab = persreper.
HR_NL_GET_RELATIONS CALL FUNCTION 'HR_NL_GET_RELATIONS' EXPORTING date = t5n1t-begda TABLES relmngtab = persreper.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = t5n1t-pernr infty = '0002' begda = t5n1t-begda endda = t5n1t-begda TABLES infty_tab = wa_0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_INITIALIZE_BUFFER CALL FUNCTION 'HR_INITIALIZE_BUFFER' "YFAL9CK047790 EXPORTING "YFAL9CK047790 tclas = 'A' "YFAL9CK047790 pernr = t5n1t-pernr . "YFAL9CK047790
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr-pernr infty = '0001' begda = t5n1t-begda endda = t5n1t-begda * IMPORTING * SUBRC = SY-SUBRC TABLES infty_tab = p0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2 .
VIEW_ENQUEUE CALL FUNCTION 'VIEW_ENQUEUE' EXPORTING action = 'D' enqueue_mode = 'E' view_name = 'V_T5N1T' EXCEPTIONS OTHERS = 08.
HR_NL_GET_REGNR * CALL FUNCTION 'HR_NL_GET_REGNR' * * EXPORTING * SRT = '01' "soort instantie for determining IIB * PERSN = P_PERNR * DATE = P_DATE * JUPER = P_JUPER * SVGRP = P_SVGRP * INSTL = P_INSTL * IMPORTING * IIB = H_IIB * ERROR = H_ERROR ** ANSNR = * I5N9A = T5N9A.
HR_NL_GET_REGNR * CALL FUNCTION 'HR_NL_GET_REGNR' * EXPORTING * SRT = '01' " soort uitvoeringsinstantie * PERSN = PERNR-PERNR * DATE = USED_DATE " date for which the "UVI" needs to be * IMPORTING " determined * IIB = H_IIB " code UVI (1=GAK; 2,3= CADANS) * ERROR = H_ERROR * ANSNR = H_ANSNR " ANSNR industrial ins. board
RP_TS_CREATE_OBJECT CALL FUNCTION 'RP_TS_CREATE_OBJECT' EXPORTING objkn = 'CCDSN0' objnr = ts_ccds empfg = 'RPUTSVN0' * VERSN = '01' * SWNUM = '2' * OWNNR = ' ' objin = l_objin * ENQLOCK = 'N' IMPORTING tsobj = temse_obj-tsobj * OBJHD = 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 OTHERS = 15 .
RSTS_WRITE CALL FUNCTION 'RSTS_WRITE' * EXPORTING * BUFFLG = '*' * FBHANDLE = 0 * SHOWLG = ' ' * ROWS = 0 * STARTROW = 1 TABLES datatab = ccdsn0 * EXCEPTIONS * FB_CALL_HANDLE = 1 * FB_ERROR = 2 * FB_RSTS_NOCONV = 3 * FB_RSTS_OTHER = 4 * OTHERS = 5 .
RSTS_CLOSE CALL FUNCTION 'RSTS_CLOSE' * EXPORTING * FBHANDLE = 0 * EXCEPTIONS * FB_CALL_HANDLE = 1 * FB_ERROR = 2 * FB_RSTS_OTHER = 3 * OTHERS = 4 .
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 RPCCDFN0 or its description.