Hallo,
ich habe es nun so gelöst:

INSERT INTO lib.jrnDatei (
SELECT SEQUENCE_NUMBER, object, USER_NAME, JOB_NAME, JOB_USER, JOB_NUMBER, PROGRAM_NAME, JOURNAL_ENTRY_TYPE,
INTERPRET(SUBSTRING(ENTRY_DATA, 6, 7) AS CHAR(7) CCSID 1141) AS AB1,
INTERPRET(SUBSTRING(ENTRY_DATA, 13, 2) AS DECIMAL(2,0) ) AS AB2,
INTERPRET(SUBSTRING(ENTRY_DATA, 15, 2) AS DECIMAL(3,0) ) AS Pos,
INTERPRET(SUBSTRING(ENTRY_DATA, 38, 10) AS CHAR(7) CCSID 1141) AS Artikel,
INTERPRET(SUBSTRING(ENTRY_DATA, 66, 2) AS DECIMAL(2,0) ) AS Bewegungsart,
INTERPRET(SUBSTRING(ENTRY_DATA, 68, 20) AS CHAR(20) CCSID 1141) AS Text,
INTERPRET(SUBSTRING(ENTRY_DATA, 111, 5) AS DECIMAL(9,3) ) AS MENGE,
ENTRY_TIMESTAMP AS ZEITPUNKT
FROM TABLE ( QSYS2.DISPLAY_JOURNAL( 'JRNLIB', 'JRN',
STARTING_RECEIVER_NAME => '*CURCHAIN',
OBJECT_LIBRARY=>'LIB',
OBJECT_NAME =>'Datei',
OBJECT_OBJTYPE=>'*FILE', OBJECT_MEMBER =>'Datei'
) ) AS X
WHERE JOURNAL_ENTRY_TYPE <> ' '
AND CAST(SUBSTR(ENTRY_DATA, 38, 10) AS VARCHAR(10)) IN ('xxxxx')
AND SEQUENCE_NUMBER NOT IN (SELECT SEQUENCE_NUMBER FROM BKL.jrndatei)
)



Das ganze in ein CL und dann mit SBMJOB über WRKREGINF angestoßen.
Läuft.

HB