Hi Bodo !

Es geht auch ohne RPG.

Ich erstelle mir eine PF, identisch mit der Original PF, aber vorne an die Felder wie unten aufgelistet.

FILE = Originaldatei
FILE_JRN = wie Original aber JRN-Felder vorne an


DSPJRN mit OUTPUT(*OUTFILE)
OUTFILFMT(*TYPE2)
OUTFILE(LIB/FILE_X)

Dann CPYF FROMFILE(FILE_X)
TOFILE(FILE_JRN)
MBROPT(*ADD)
FMTOPT(*NOCHK)

Felder für Datei mit Journalinformationen:

Code:
A            JE001          5          COLHDG('EINTRAG LÄNGE') 
A            JE002         10          COLHDG('FOLGENUMMER  ') 
A            JE003          1          COLHDG('JOURNALCODE  ') 
A            JE004          2          COLHDG('EINTRAGS.ART ') 
A            JE005          6          COLHDG('DATUM        ') 
A            JE006          6          COLHDG('UHRZEIT      ') 
A            JE007         10          COLHDG('JOB          ') 
A            JE008         10          COLHDG('USER         ') 
A            JE009          6          COLHDG('JOBNUMMER    ') 
A            JE010         10          COLHDG('PROGRAM      ') 
A            JE011         10          COLHDG('OBJEKT       ') 
A            JE012         10          COLHDG('LIBRARY      ') 
A            JE013         10          COLHDG('MEMBER       ') 
A            JE014         10          COLHDG('ANZ OD. REC.#') 
A            JE015          1          COLHDG('FLAG         ') 
A            JE016         10          COLHDG('COMMIT ZYK.ID') 
A            JE017         10          COLHDG('USER.PRF     ') 
A            JE018          8          COLHDG('SYSTEM       ')
A            JE999         20          COLHDG('NICHT BENUTZT')
A   ** ab hier Felder der Originaldatei **

Gruß

Jörg