Code: Alles auswählen.
DATA: BEGIN OF ausgabe OCCURS 0,
pernr LIKE p0001-pernr,
name1 TYPE emnam,
attribut TYPE p,
betrag TYPE PBWLA,
END OF ausgabe.
Code: Alles auswählen.
CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE'
EXPORTING
* APPLI = 'E'
begda = '20190101'
endda = '99991231'
infty = '0008'
* OBJPS = ' '
tclas = 'A'
pernr = p0001-pernr
* SEQNR = ' '
subty = '0 '
dlspl = 'X'
* MSGFLG = ''
* NORDCT = ''
conv_curr = 'X'
* FLAG_NO_DB_READ =
* INITIALIZE_PERNR_BUFFER = ' '
TABLES
ppbwla = ausgabe-betrag
* PP0001 =
* PP0007 =
* pp0008 =
* PP0014 =
* PP0015 =
* PP0052 =
* PP0230 =
* PP0267 =
* PPNNNN_TAB =
* EXCEPTIONS
* ERROR_AT_INDIRECT_EVALUATION = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
Code: Alles auswählen.
DATA: betrag LIKE PBWLA.
Folgende Benutzer bedankten sich beim Autor wreichelt für den Beitrag:
Florian9999
Code: Alles auswählen.
READ TABLE betrag INDEX 1 INTO DATA(ls_betrag).
WRITE: ls_betrag-betrg.
Folgende Benutzer bedankten sich beim Autor schick für den Beitrag:
Florian9999