Welche PGM's ändern Daten

[Fuerchau]

Der Stack ist streng nach Aufrufebene sortiert. Da ist es kein Zufall, welches Programm den Trigger ausgelöst hat. Du musst also alle Einträge sortiert bearbeiten und SQL und Filehandler überlesen.

Und Access/MSSQL können auch nur via ODBC auf die IBM i zugreifen. Da ist dann ein Job QZDASOINIT im Spiel. Hier wird es schwieriger zu erkennen, ob per Access oder SQL-Server zugegriffen wurde.

Ein Journal ist zwar OK, es kann dir aber nur das Programm nennen, dass die Operation vornimmt.
Bei Verwendung von Services (kann auch OPM sein) benötigst du aber durchaus den Aufrufer des Service.

[HEBORA]

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