Code: Alles auswählen.
DATA: wa_0013 TYPE pa0013.
SELECT * FROM pa0013 INTO wa_0013 WHERE begda LE sy-datum
AND endda GE sy-datum.
write:/ wa_0013-pernr, wa_0013-begda, wa_0013-endda, wa_0013-rvnum, wa_0013-kvsfr.
ENDSELECT.
Code: Alles auswählen.
data:
lt_data type standard table of ...
gr_table type ref to cl_salv_table.
TRY.
cl_salv_table=>factory(
IMPORTING
r_salv_table = gr_table
CHANGING
t_table = lt_data ).
CATCH cx_salv_msg. "#EC NO_HANDLER
ENDTRY.
gr_table->display( ).
Code: Alles auswählen.
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
* TCLAS = 'A'
pernr = '521'
infty = '0013'
* BEGDA = '18000101'
* ENDDA = '99991231'
* BYPASS_BUFFER = ' '
* LEGACY_MODE = ' '
* IMPORTING
* SUBRC =
tables
infty_tab = itab_test
* EXCEPTIONS
* INFTY_NOT_FOUND = 1
* OTHERS = 2
Code: Alles auswählen.
DATA: itab_test TYPE STANDARD TABLE OF p0013.
itab_test_2 TYPE p0013.
[...]
LOOP AT itab_test INTO itab_test_2 WHERE ....
blablabla
ENDLOOP.