Code: Alles auswählen.
ALL ABC.ALL t 0000 20041027224539 DDIC SERVER
SAPKD62017 ABC.ALL m 0000 20041027224543 SAPUSER DDIC SERVER
SAPKD62017 ABC.ALL P 0004 20041027224552 SAPUSER DDIC SERVER 20041027224543
SAPKD62017 ABC.ALL L 0000 20041027224600 SAPUSER DDIC SERVER 20041027224552
SAPKD62017 ABC.ALL H 0000 20041027224627 SAPUSER DDIC SERVER 20041027224601
SAPKD62017 ABC.ALL A 0004 20041027224759 SAPUSER DDIC SERVER 20041027224601
ALL ABC.ALL S 0000 20041027224817 DDIC SERVER 20041027224601
ALL ABC.ALL 6 0004 20041027224832 DDIC SERVER 20041027224601
SAPKD62017 ABC.ALL I 0004 20041027224948 SAPUSER DDIC SERVER 20041027224601
ALL ABC.ALL n 0000 20041027224953 DDIC SERVER 20041027224601
SAPKD62017 ABC.ALL R 0000 20041027225012 SAPUSER DDIC SERVER 20041027224601
ALL ABC.ALL t 0000 20041027225115 DDIC SERVER
ALL ABC.ALL t 0000 20041027230047 DDIC SERVER
Code: Alles auswählen.
* Zeilenstruktur einer ALOG Zeile
TYPES: BEGIN OF aloglin,
trkorr TYPE trkorr,
x1(1),
val1(7),
x2(1),
action(1),
x3(1),
retcode(4),
x4(1),
tstamp1(14),
x5(1),
owner TYPE xubname,
x6(1),
truser TYPE xubname,
END OF aloglin.
Code: Alles auswählen.
* Ordne Retcode und TR-User zu
LOOP AT lt_dir_list.
* Aufbau Pfad + Dateiname
CONCATENATE lv_trdir sep 'log' sep lt_dir_list-name INTO dsn.
OPEN DATASET dsn FOR INPUT MESSAGE msg
IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc = 0.
DO.
* Lese eine Zeile ALOG
READ DATASET dsn INTO ls_lin.
* Dateiende dann ENDO
IF sy-subrc NE 0.
EXIT.
ENDIF.
* Enthält die Zeile Daten eines Imports ??
IF ls_lin-action = 'I'.
* Wenn Treffer
IF sy-subrc = 0.
* Konvertiere TIMESTAMP-> Datum + Uhrzeit TT.MM.JJJJ hh:mm:ss
xdatum = ls_lin-tstamp1(8).
xzeit = ls_lin-tstamp1+8.
WRITE xdatum TO datum.
WRITE xzeit TO zeit.
******* MORE
ENDIF. "action = 'I'
ENDDO.
* Schliesse aktuelle ALOGxxxx
CLOSE DATASET dsn.
ENDIF. "OPEN DATASET
ENDLOOP.