Code: Alles auswählen.
REPORT z_test.
DATA: pcl1 LIKE pcl1.
DATA: $text_tab TYPE it_notes,
$key LIKE pskey,
$text TYPE text72.
DATA: BEGIN OF $header,
pskey LIKE pskey,
pshd1 LIKE pshd1,
END OF $header.
INFOTYPES 0019.
SELECT * FROM pa0019 INTO CORRESPONDING FIELDS OF TABLE p0019
ORDER BY pernr begda.
LOOP AT p0019 INTO $header.
CHECK NOT $header-pshd1-itxex IS INITIAL.
$header-pskey-infty = '0019'.
WRITE: / 'Key P0019 ist', $header-pskey.
CALL FUNCTION 'HR_READ_INFTY_NOTE'
EXPORTING
key = $header-pskey
tclas = 'A'
TABLES
text = $text_tab
EXCEPTIONS
not_found = 1
OTHERS = 2.
LOOP AT $text_tab INTO $text.
WRITE: / ' - ', $text.
ENDLOOP.
* Nur zum Test mal unter neuer Pernr wegschreiben!
IF $header-pskey-pernr = 5.
$header-pskey-pernr = 6.
pcl1-histo = $header-pshd1-histo.
pcl1-uname = $header-pshd1-uname.
pcl1-aedtm = $header-pshd1-aedtm.
* pcl1-pgmid = $header-pshd1-pgmid.
EXPORT
ptext FROM $text_tab
TO DATABASE pcl1(tx) ID $header-pskey
FROM pcl1.
ENDIF.
ENDLOOP.