EXIT_RPCDUDI0_028 SAP Function module - CUD 2001: user exit for box 71, Severance Indemnity

EXIT_RPCDUDI0_028 is a standard SAP function module available within R/3 SAP systems depending on your version and release level. Below is the pattern details for this FM showing its interface including any import and export parameters, exceptions etc as well as any documentation contributions (Comments) specific to the object.

See here to view full function module documentation and code listing, simply by entering the name EXIT_RPCDUDI0_028 into the relevant SAP transaction such as SE37 or SE80.

Associated Function Group: XUI0
Released Date: Not Released
Processing type: Normal fucntion module

Pattern for FM EXIT_RPCDUDI0_028 - EXIT RPCDUDI0 028

CALL FUNCTION 'EXIT_RPCDUDI0_028' "CUD 2001: user exit for box 71, Severance Indemnity
  EXPORTING
    p_pernr =                   " pernr-pernr   Personnel Number
    p_waers =                   " waers         Currency key
    p_begda =                   " sy-datum      Date and time, current date (Application server)
    p_endda =                   " sy-datum      Date and time, current date (Application server)
    p_defunto =                 " c
    p_cud1 =                    " t5itw5-cdmodu  Module for forms
    p_section =                 " t5itw5-cdqua  Sections on the Italian modules
    p_tfr =                     " t5itw5-cdqua  Sections on the Italian modules
    p_esodo =                   " t5itw5-cdqua  Sections on the Italian modules
  IMPORTING
    p_betrg =                   " pc207-betrg   Payroll: amount
    p_anzhl =                   " pc207-anzhl   Payroll: number
  TABLES
    rt_tab =                    "
    re5itw5 =                   " t5itw5        Characteristics of the sections
    cudtabtax =                 "
  EXCEPTIONS
    USED_USER_EXIT = 1          "
    .  "  EXIT_RPCDUDI0_028

ABAP code example for Function Module EXIT_RPCDUDI0_028

The ABAP code below is a full code listing to execute function module EXIT_RPCDUDI0_028 including all data declarations. The code uses the latest in-line data DECLARATION SYNTAX but I have included an ABAP code snippet at the end to show how declarations would look using the original method of declaring data variables up front. This will allow you to compare and fully understand the new inline method. Please note some of the newer syntax such as the @DATA is not available until a later 4.70 service pack (SP8).

DATA:
ld_p_betrg  
 
 TYPE PC207-BETRG
,
ld_p_anzhl  
 
 TYPE PC207-ANZHL
,
it_rt_tab  
 
 TYPE STANDARD TABLE OF STRING,"TABLES PARAM
wa_rt_tab
 
 LIKE LINE OF it_rt_tab
,
it_re5itw5  
 
 TYPE STANDARD TABLE OF T5ITW5,"TABLES PARAM
wa_re5itw5
 
 LIKE LINE OF it_re5itw5
,
it_cudtabtax  
 
 TYPE STANDARD TABLE OF STRING,"TABLES PARAM
wa_cudtabtax
 
 LIKE LINE OF it_cudtabtax
.



DATA(ld_p_pernr) = Check type of data required

DATA(ld_p_waers) = 'Check type of data required'.

DATA(ld_p_begda) = '20210129'.

DATA(ld_p_endda) = '20210129'.

DATA(ld_p_defunto) = '20210129'.
 

SELECT single CDMODU 
  FROM T5ITW5 
  INTO @DATA(ld_p_cud1).

 

SELECT single CDQUA 
  FROM T5ITW5 
  INTO @DATA(ld_p_section).

 

SELECT single CDQUA 
  FROM T5ITW5 
  INTO @DATA(ld_p_tfr).

 

SELECT single CDQUA 
  FROM T5ITW5 
  INTO @DATA(ld_p_esodo).

 

"populate fields of struture and append to itab
append wa_rt_tab to it_rt_tab.
 

"populate fields of struture and append to itab
append wa_re5itw5 to it_re5itw5.
 

"populate fields of struture and append to itab
append wa_cudtabtax to it_cudtabtax.
.

CALL FUNCTION 'EXIT_RPCDUDI0_028'
  EXPORTING
    p_pernr =                    ld_p_pernr
    p_waers =                    ld_p_waers
    p_begda =                    ld_p_begda
    p_endda =                    ld_p_endda
    p_defunto =                  ld_p_defunto
    p_cud1 =                     ld_p_cud1
    p_section =                  ld_p_section
    p_tfr =                      ld_p_tfr
    p_esodo =                    ld_p_esodo
  IMPORTING
    p_betrg =                    ld_p_betrg
    p_anzhl =                    ld_p_anzhl
  TABLES
    rt_tab =                     it_rt_tab
    re5itw5 =                    it_re5itw5
    cudtabtax =                  it_cudtabtax
  EXCEPTIONS
    USED_USER_EXIT =             1
    .  "  EXIT_RPCDUDI0_028

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ENDIF.

ABAP code to compare 7.40 inline data declaration with original syntax

The below ABAP code uses the older none in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. It may also be useful if you are using an older version of SAP as some of the newer syntax above, such as the @DATA is not available until 4.70 EHP 8.

DATA:

ld_p_betrg
 
 TYPE PC207-BETRG ,
ld_p_pernr
 
 TYPE PERNR-PERNR ,
it_rt_tab
 
 TYPE STANDARD TABLE OF STRING ,
wa_rt_tab
 
 LIKE LINE OF it_rt_tab,
ld_p_anzhl
 
 TYPE PC207-ANZHL ,
ld_p_waers
 
 TYPE WAERS ,
it_re5itw5
 
 TYPE STANDARD TABLE OF T5ITW5 ,
wa_re5itw5
 
 LIKE LINE OF it_re5itw5,
ld_p_begda
 
 TYPE SY-DATUM ,
it_cudtabtax
 
 TYPE STANDARD TABLE OF STRING ,
wa_cudtabtax
 
 LIKE LINE OF it_cudtabtax,
ld_p_endda
 
 TYPE SY-DATUM ,
ld_p_defunto
 
 TYPE C ,
ld_p_cud1
 
 TYPE T5ITW5-CDMODU ,
ld_p_section
 
 TYPE T5ITW5-CDQUA ,
ld_p_tfr
 
 TYPE T5ITW5-CDQUA ,
ld_p_esodo
 
 TYPE T5ITW5-CDQUA .



ld_p_pernr = Check type of data required 

"populate fields of struture and append to itab
append wa_rt_tab to it_rt_tab.
ld_p_waers = '20210129'. 

"populate fields of struture and append to itab
append wa_re5itw5 to it_re5itw5.
ld_p_begda = '20210129'. 

"populate fields of struture and append to itab
append wa_cudtabtax to it_cudtabtax.
ld_p_endda = '20210129'.
ld_p_defunto = '20210129'.

SELECT single CDMODU 
  FROM T5ITW5 
  INTO ld_p_cud1.


SELECT single CDQUA 
  FROM T5ITW5 
  INTO ld_p_section.


SELECT single CDQUA 
  FROM T5ITW5 
  INTO ld_p_tfr.


SELECT single CDQUA 
  FROM T5ITW5 
  INTO ld_p_esodo.