SAP Function Modules

EXIT_SAPLPS09_001 SAP Function module - PS: Enhancement of EIS sender structure for accounting







EXIT_SAPLPS09_001 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_SAPLPS09_001 into the relevant SAP transaction such as SE37 or SE80.

Associated Function Group: XPSEIS
Released Date: Not Released
Processing type: Normal fucntion module
Normal function module settings


Pattern for FM EXIT_SAPLPS09_001 - EXIT SAPLPS09 001





CALL FUNCTION 'EXIT_SAPLPS09_001' "PS: Enhancement of EIS sender structure for accounting
* EXPORTING
*   i_expdate = SY-DATUM        " sy-datum
*   i_repid = 'RKPSEIS1'        " sy-repid
*   i_kokrs =                   " tka01-kokrs
*   i_test = 'X'                " c
* TABLES
*   t_rpsco =                   " rpsco
*   t_rpsqt =                   " rpsqt
*   t_pseisrsthie =             " pseisrsthie
*   t_pseisproj =               " pseisproj
*   t_pseisprps =               " pseisprps
*   t_pseisprte =               " pseisprte
*   t_pseisaufk =               " pseisaufk
*   t_pseisafko =               " pseisafko
*   t_pseisafpo =               " pseisafpo
*   t_pseisact01 =              " pseisact01
*   t_pseisresb01 =             " pseisresb01
*   t_pseiselm_ps =             " pseiselm_ps
*   t_psgenacc =                " psgenacc
    .  "  EXIT_SAPLPS09_001

ABAP code example for Function Module EXIT_SAPLPS09_001





The ABAP code below is a full code listing to execute function module EXIT_SAPLPS09_001 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:
it_t_rpsco  TYPE STANDARD TABLE OF RPSCO,"TABLES PARAM
wa_t_rpsco  LIKE LINE OF it_t_rpsco ,
it_t_rpsqt  TYPE STANDARD TABLE OF RPSQT,"TABLES PARAM
wa_t_rpsqt  LIKE LINE OF it_t_rpsqt ,
it_t_pseisrsthie  TYPE STANDARD TABLE OF PSEISRSTHIE,"TABLES PARAM
wa_t_pseisrsthie  LIKE LINE OF it_t_pseisrsthie ,
it_t_pseisproj  TYPE STANDARD TABLE OF PSEISPROJ,"TABLES PARAM
wa_t_pseisproj  LIKE LINE OF it_t_pseisproj ,
it_t_pseisprps  TYPE STANDARD TABLE OF PSEISPRPS,"TABLES PARAM
wa_t_pseisprps  LIKE LINE OF it_t_pseisprps ,
it_t_pseisprte  TYPE STANDARD TABLE OF PSEISPRTE,"TABLES PARAM
wa_t_pseisprte  LIKE LINE OF it_t_pseisprte ,
it_t_pseisaufk  TYPE STANDARD TABLE OF PSEISAUFK,"TABLES PARAM
wa_t_pseisaufk  LIKE LINE OF it_t_pseisaufk ,
it_t_pseisafko  TYPE STANDARD TABLE OF PSEISAFKO,"TABLES PARAM
wa_t_pseisafko  LIKE LINE OF it_t_pseisafko ,
it_t_pseisafpo  TYPE STANDARD TABLE OF PSEISAFPO,"TABLES PARAM
wa_t_pseisafpo  LIKE LINE OF it_t_pseisafpo ,
it_t_pseisact01  TYPE STANDARD TABLE OF PSEISACT01,"TABLES PARAM
wa_t_pseisact01  LIKE LINE OF it_t_pseisact01 ,
it_t_pseisresb01  TYPE STANDARD TABLE OF PSEISRESB01,"TABLES PARAM
wa_t_pseisresb01  LIKE LINE OF it_t_pseisresb01 ,
it_t_pseiselm_ps  TYPE STANDARD TABLE OF PSEISELM_PS,"TABLES PARAM
wa_t_pseiselm_ps  LIKE LINE OF it_t_pseiselm_ps ,
it_t_psgenacc  TYPE STANDARD TABLE OF PSGENACC,"TABLES PARAM
wa_t_psgenacc  LIKE LINE OF it_t_psgenacc .

DATA(ld_i_expdate) = '20210129'.
DATA(ld_i_repid) = '20210129'.

SELECT single KOKRS
FROM TKA01
INTO @DATA(ld_i_kokrs).

DATA(ld_i_test) = 'some text here'.

"populate fields of struture and append to itab
append wa_t_rpsco to it_t_rpsco.

"populate fields of struture and append to itab
append wa_t_rpsqt to it_t_rpsqt.

"populate fields of struture and append to itab
append wa_t_pseisrsthie to it_t_pseisrsthie.

"populate fields of struture and append to itab
append wa_t_pseisproj to it_t_pseisproj.

"populate fields of struture and append to itab
append wa_t_pseisprps to it_t_pseisprps.

"populate fields of struture and append to itab
append wa_t_pseisprte to it_t_pseisprte.

"populate fields of struture and append to itab
append wa_t_pseisaufk to it_t_pseisaufk.

"populate fields of struture and append to itab
append wa_t_pseisafko to it_t_pseisafko.

"populate fields of struture and append to itab
append wa_t_pseisafpo to it_t_pseisafpo.

"populate fields of struture and append to itab
append wa_t_pseisact01 to it_t_pseisact01.

"populate fields of struture and append to itab
append wa_t_pseisresb01 to it_t_pseisresb01.

"populate fields of struture and append to itab
append wa_t_pseiselm_ps to it_t_pseiselm_ps.

"populate fields of struture and append to itab
append wa_t_psgenacc to it_t_psgenacc. . CALL FUNCTION 'EXIT_SAPLPS09_001' * EXPORTING * i_expdate = ld_i_expdate * i_repid = ld_i_repid * i_kokrs = ld_i_kokrs * i_test = ld_i_test * TABLES * t_rpsco = it_t_rpsco * t_rpsqt = it_t_rpsqt * t_pseisrsthie = it_t_pseisrsthie * t_pseisproj = it_t_pseisproj * t_pseisprps = it_t_pseisprps * t_pseisprte = it_t_pseisprte * t_pseisaufk = it_t_pseisaufk * t_pseisafko = it_t_pseisafko * t_pseisafpo = it_t_pseisafpo * t_pseisact01 = it_t_pseisact01 * t_pseisresb01 = it_t_pseisresb01 * t_pseiselm_ps = it_t_pseiselm_ps * t_psgenacc = it_t_psgenacc . " EXIT_SAPLPS09_001
IF SY-SUBRC EQ 0. "All OK 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_i_expdate  TYPE SY-DATUM ,
it_t_rpsco  TYPE STANDARD TABLE OF RPSCO ,
wa_t_rpsco  LIKE LINE OF it_t_rpsco,
ld_i_repid  TYPE SY-REPID ,
it_t_rpsqt  TYPE STANDARD TABLE OF RPSQT ,
wa_t_rpsqt  LIKE LINE OF it_t_rpsqt,
ld_i_kokrs  TYPE TKA01-KOKRS ,
it_t_pseisrsthie  TYPE STANDARD TABLE OF PSEISRSTHIE ,
wa_t_pseisrsthie  LIKE LINE OF it_t_pseisrsthie,
ld_i_test  TYPE C ,
it_t_pseisproj  TYPE STANDARD TABLE OF PSEISPROJ ,
wa_t_pseisproj  LIKE LINE OF it_t_pseisproj,
it_t_pseisprps  TYPE STANDARD TABLE OF PSEISPRPS ,
wa_t_pseisprps  LIKE LINE OF it_t_pseisprps,
it_t_pseisprte  TYPE STANDARD TABLE OF PSEISPRTE ,
wa_t_pseisprte  LIKE LINE OF it_t_pseisprte,
it_t_pseisaufk  TYPE STANDARD TABLE OF PSEISAUFK ,
wa_t_pseisaufk  LIKE LINE OF it_t_pseisaufk,
it_t_pseisafko  TYPE STANDARD TABLE OF PSEISAFKO ,
wa_t_pseisafko  LIKE LINE OF it_t_pseisafko,
it_t_pseisafpo  TYPE STANDARD TABLE OF PSEISAFPO ,
wa_t_pseisafpo  LIKE LINE OF it_t_pseisafpo,
it_t_pseisact01  TYPE STANDARD TABLE OF PSEISACT01 ,
wa_t_pseisact01  LIKE LINE OF it_t_pseisact01,
it_t_pseisresb01  TYPE STANDARD TABLE OF PSEISRESB01 ,
wa_t_pseisresb01  LIKE LINE OF it_t_pseisresb01,
it_t_pseiselm_ps  TYPE STANDARD TABLE OF PSEISELM_PS ,
wa_t_pseiselm_ps  LIKE LINE OF it_t_pseiselm_ps,
it_t_psgenacc  TYPE STANDARD TABLE OF PSGENACC ,
wa_t_psgenacc  LIKE LINE OF it_t_psgenacc.

ld_i_expdate = '20210129'.

"populate fields of struture and append to itab
append wa_t_rpsco to it_t_rpsco.
ld_i_repid = '20210129'.

"populate fields of struture and append to itab
append wa_t_rpsqt to it_t_rpsqt.

SELECT single KOKRS
FROM TKA01
INTO ld_i_kokrs.


"populate fields of struture and append to itab
append wa_t_pseisrsthie to it_t_pseisrsthie.
ld_i_test = 'some text here'.

"populate fields of struture and append to itab
append wa_t_pseisproj to it_t_pseisproj.

"populate fields of struture and append to itab
append wa_t_pseisprps to it_t_pseisprps.

"populate fields of struture and append to itab
append wa_t_pseisprte to it_t_pseisprte.

"populate fields of struture and append to itab
append wa_t_pseisaufk to it_t_pseisaufk.

"populate fields of struture and append to itab
append wa_t_pseisafko to it_t_pseisafko.

"populate fields of struture and append to itab
append wa_t_pseisafpo to it_t_pseisafpo.

"populate fields of struture and append to itab
append wa_t_pseisact01 to it_t_pseisact01.

"populate fields of struture and append to itab
append wa_t_pseisresb01 to it_t_pseisresb01.

"populate fields of struture and append to itab
append wa_t_pseiselm_ps to it_t_pseiselm_ps.

"populate fields of struture and append to itab
append wa_t_psgenacc to it_t_psgenacc.

Contribute (Add Comments)

Please help keep this info upto date and use the comments section below to add useful hints, tips and information specific to this SAP function. This will then be available for you and other users to easily find by simply searching on the object name EXIT_SAPLPS09_001 or its description.