V5R4 -> V7R1, Problem mit Trigger-Programmen

[programmer400]

Nach Umstellung von V5R4 auf V7R1 brechen alle Triggerprogramm (ILE-RPG) mit Fehler RNQ0222 - Zeicher- oder Parameterfehler ab.

Bitte um Hilfe, was da die Ursache sein könnte.

... noch ergänzend: im Programm wir das API QUSRJOBI aufgerufen, wurde seitens des Betriebssystems vielleicht hier was geändert?

[Fuerchau]

Da solltest du schon in die Quellen reinschauen und die Zeilen-Nr. überprüfen.
Meine Vermutung ist da, dass ihr mit festen Adressen für die Image-Puffer gearbeitet habt.
Der Trigger-Header kann sich aber nun mal je nach Release ändern.
Deshalb muss man die Image-Puffer über Pointer adressieren "DS Based(PtrBefore)" und die Verweise mit
PtrBefore = %addr(TriggerHeader) + BevoreOffset
setzen.

Dann gibts bei Releaseupdate/-wechsel keine Probleme.

[programmer400]

Zeilennr. hab ich eh geprüft, es ist die letzte Zeile, die in der Umwandlungsliste angeführt wird.

Ich hab das nicht selber programmiert, deshalb steh ich a bissl im Regen. Deine Anweisungen sagen mir leider überhaupt nichts, bin nicht ganz so fit in ILE ;-).

[Fuerchau]

Dann ist das leider genau das Problem!
Der Fehler tritt in der Laufzeitumgebung auf, z.B. bei Dateioperationen o.ä., dann ist die Zeilennummer nicht so ganz die richtige.
Da du aber mit dem Begriff "Pointer" nichts anfangen kannst, gehe ich davon aus, dass du genau diese nicht verwendest.

Wenn du dann also auf deine Before/After-Images zugreifst und den geänderten Trigger-Header nicht berücksichtigst, kommt es halt "später" zu undefinierten Fehlern.

Poste einfach mal ein Beispiel deiner Trigger-Aufrufparameter und Definitionen.
Nach dem *Entry des Programmes (PI-Interface) muss als erstes das Setzen der korrekten Adressen erfolgen.

[programmer400]

Folgend das Programm. Ist mir leider nicht gelungen, das in der korrekten Formatierung zu posten, ich hoffe, es ist trotzdem lesbar.



MFA/400 TRIGGER: ARTIKELSTAMM-PROTOKOLLIEREN > TRG101 <
5770WDS V7R1M0 100416 RN IBM ILE RPG XXXMFA/TRG102 ATXXX01 23.11.13 06:54:16 Seite 1
Befehl . . . . . . . . . . . . . : CRTBNDRPG
Ausgegeben von . . . . . . . . . : XXXMFA
Programm . . . . . . . . . . . . : TRG102
Bibliothek . . . . . . . . . . . : XXXMFA
Text 'Beschreibung' . . . . . . : *SRCMBRTXT
Quellenteildatei . . . . . . . . : TRG102
Quellendatei . . . . . . . . . . : QRPGLESRC
Bibliothek . . . . . . . . . . . : XXXMFA
CCSID . . . . . . . . . . . . . : 273
Text 'Beschreibung' . . . . . . : Trigger - ASTP
Letzte Änderung . . . . . . . . : 06.09.04 10:48:48
Generierungsbewertungsstufe . . : 10
Standardaktivierungsgruppe . . . : *YES
Umwandlungsprogrammauswahlmögl. : *XREF *GEN *NOSECLVL *SHOWCPY
*EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT
*DEBUGIO *UNREF *NOEVENTF
Testhilfesichten . . . . . . . . : *STMT
Testhilfeverschlüsselungsschl. . : *NONE
Ausgabe . . . . . . . . . . . . : *PRINT
Optimierungsstufe . . . . . . . : *NONE
Quellenlisteneinrückung . . . . : *NONE
Umsetzungsauswahlmögl. eingeben : *NONE
Sortierfolge . . . . . . . . . . : *HEX
Sprachen-ID . . . . . . . . . . : *JOBRUN
Programm ersetzen . . . . . . . : *YES
Benutzerprofil . . . . . . . . . : *USER
Berechtigung . . . . . . . . . . : *LIBCRTAUT
Numerische Daten abschneiden . . : *YES
Numerische Daten korrigieren . . : *NONE
Ziel-Release . . . . . . . . . . : *CURRENT
Nullwerte zulassen . . . . . . . : *NO
Bedingungsnamen definieren . . . : *NONE
Leistungsdatenerfassg. aktivieren: *PEP
Profildefinitionsdaten . . . . . : *NOCOL
LIC-Optionen . . . . . . . . . . :
Prog.-Schnittstelle generieren . : *NO
Verzeichnis einschließen . . . . :
Vorprozessoroptionen . . . . . . : *NONE
MFA/400 TRIGGER: ARTIKELSTAMM-PROTOKOLLIEREN > TRG101 <
5770WDS V7R1M0 100416 RN IBM ILE RPG XXXMFA/TRG102 ATXXX01 23.11.13 06:54:16 Seite 2
Zeil.- <---------------------- Quellenbestimmungen ------------------------------><-- Bemerkungen --> Do S. Änd.- Src Folge-
Nummer ....1....+....2....+....3....+....4....+....5....+ ....6....+....7....+....8....+....9....+...10 Num Z. Datum ID nummer
Q u e l l e n l i s t e
1 H DATEDIT(*YMD) 980122 000200
2 *================================================= ======================* 0093 970521 000300
3 * * 0004 970521 000400
4 * * 0005 970922 000500
5 * TRIGGER: ARTIKELSTAMM PROTOKOLLIEREN * 0008 970826 000600
6 * * 970521 000700
7 * DATEI: ASTP *AFTER *INSERT * 970922 000800
8 * *AFTER *DELETE * 970521 000900
9 * *AFTER *UPDATE *CHANGE * 970826 001000
10 * * 970521 001100
17 *================================================= ======================* 0093 970521 001800
18 * ACHTUNG: BEI DATEIÄNDERUNGEN MUSS DER TRIGGER BUFFER AN DIE NEUE * 0013 970826 001900
19 * ------- SATZLÄNGE UND DIE NEUE ANZAHL FELDER ANGEPASST WERDEN! * 970826 002000
20 * FELDER: OREC,RECORD --> SATZLÄNGE * 970826 002100
21 * OOMAP,NNMAP --> ANZAHL FELDER IN DATEI * 970826 002200
22 *================================================= ======================* 0093 970516 002300
23 FASTPJ O E DISK 970922 002400
24 *================================================= ======================* 0093 970826 002500
25 * QUSRJOBI - API (RETRIEVE JOB INFORMATION) * 970826 002600
26 *================================================= ======================* 0093 970826 002700
*--------------------------------------------------------------------------------------------*
* RPG-Name Externer Name *
* Dateiname . . . . . . . . : ASTPJ XXXDATNEU/ASTPJ *
* Satzformat(e) . . . . . . : ASTPPF1 ASTPPF1 *
*--------------------------------------------------------------------------------------------*
27 D RTVAPI DS 970826 002800
28 D BRTN 1 4B 0 BYTES RETURNED 970826 002900
29 D BAVAIL 5 8B 0 BYTES AVAILABLE 970826 003000
30 D JOBNAM 9 18 JOB NAME 970826 003100
31 D USRNAM 19 28 USER NAME 970826 003200
32 D JOBNBR 29 34 JOB NUMBER 970826 003300
33 D JOBID 35 50 JOB IDENTIFIER 970826 003400
34 D JOBSTS 51 60 JOB STATUS 970826 003500
35 D JOBTYP 61 61 JOB TYPE 970826 003600
36 D JOBSTYP 62 62 JOB SUBTYPE 970826 003700
37 D SBSD 63 72 SUBSYSTEM DESCRIPTIO 970826 003800
38 D RUNPTY 73 76B 0 RUN PRIORITY 970826 003900
39 D SYSPOOL 77 80B 0 SYSTEM POOL IDENTIFI 970826 004000
40 D PCU 81 84B 0 PROCESSING UNIT 970826 004100
41 D IONBR 85 88B 0 AUX. I/O REQUESTS 970826 004200
42 D INTACT 89 92B 0 INTERACTIVE TRANSACT 970826 004300
43 D RSPTIM 93 96B 0 RESPONSE TIME TOTAL 970826 004400
44 D FNTYP 97 97 FUNCTION TYPE 970826 004500
45 D FNNAM 98 107 FUNCTION NAME 970826 004600
46 D ACTJOB 108 111 ACTIVE JOB STATUS 970826 004700
47 *================================================= ======================* 0093 970826 004800
48 * TRIGGER BUFFER * 970516 004900
49 *================================================= ======================* 0093 970516 005000
MFA/400 TRIGGER: ARTIKELSTAMM-PROTOKOLLIEREN > TRG101 <
5770WDS V7R1M0 100416 RN IBM ILE RPG XXXMFA/TRG102 ATXXX01 23.11.13 06:54:16 Seite 3
Zeil.- <---------------------- Quellenbestimmungen ------------------------------><-- Bemerkungen --> Do S. Änd.- Src Folge-
Nummer ....1....+....2....+....3....+....4....+....5....+ ....6....+....7....+....8....+....9....+...10 Num Z. Datum ID nummer
50 D PARM1 DS 32767 040906 005100
51 D NAME 10 DATEI 040906 005200
52 D LIB 10 BIBLIOTHEK 040906 005300
53 D MEMBER 10 TEILDATEI 040906 005400
54 D EVENT 1 AUSLÖSENDES EREIGNIS 040906 005500
55 D TIME 1 ZEIT 040906 005600
56 D COMMIT 1 COMMIT-STATUS 040906 005700
57 D RESV1 3 ** LEER ** 040906 005800
58 D CCSID 9B 0 CCSID 040906 005900
59 D RESV2 8 ** LEER ** 040906 006000
60 D RELPOSOLD 9B 0 OFFSET ALTER SATZ 040906 006100
61 D LNGRECOLD 9B 0 LÄNGE ALTER SATZ 040906 006200
62 D RELWERTOLD 9B 0 OFFSET NULLMAP ALT 040906 006300
63 D NULLBYTOLD 9B 0 LÄNGE NULLMAP ALT 040906 006400
64 D RELPOSNEW 9B 0 OFFSET NEUER SATZ 040906 006500
65 D LNGRECNEW 9B 0 LÄNGE NEUER SATZ 040906 006600
66 D RELWERTNEW 9B 0 OFFSET NULLMAP NEU 040906 006700
67 D NULLBYTNEW 9B 0 LÄNGE NULLMAP NEU 040906 006800
68 D RESV3 16 ** LEER ** 040906 006900
69 *================================================= =======================* 0093 970523 007000
70 * LÄNGER DES BUFFERS * 970516 007100
71 *================================================= =======================* 0093 970516 007200
72 D PARM2 DS 970516 007300
73 D LENG 1 4B 0 970516 007400
74 *================================================= =======================* 0093 970516 007500
75 * ASTP-RECORD * 970922 007600
76 *================================================= =======================* 0093 970516 007700
77 D OLDREC E DS EXTNAME(ASTP) PREFIX(O:1) 040906 007800
*--------------------------------------------------------------------------------------------* 1
* Datenstruktur . . . . . . : OLDREC * 1
* Präfix . . . . . . . . . . : O : 1 * 1
* Externes Format . . . . . : ASTPPF1 : XXXDATNEU/ASTP * 1
* Formattext . . . . . . . . : ARTIKELSTAMM-NETTOPREISE * 1
*--------------------------------------------------------------------------------------------* 1
78=D OSSKZ 1A EXTFLD (ASSKZ) Statuskennzeichen 1000001
79=D OSNLN 3P 0 EXTFLD (ASNLN) NL-Nr. 1000002
80=D OSANR 15A EXTFLD (ASANR) Artikel-Nr. 1000003
81=D OSKNR 9A EXTFLD (ASKNR) Kunden-Nr. 1000004
82=D OSKGR 3A EXTFLD (ASKGR) Kundengruppe 1000005
83=D OSPCD 5A EXTFLD (ASPCD) Preiscode 1000006
84=D OSSPBP 1A EXTFLD (ASSPBP) Kz. Betrag/% 1000007
85=D OSSPZA 11P 2 EXTFLD (ASSPZA) Zu-/Abschlag 1000008
86=D OSSPZN 11P 2 EXTFLD (ASSPZN) Zu-/Abschlag-Neu 1000009
87=D OSNEP 11P 2 EXTFLD (ASNEP) Nettopreis 1000010
88=D OSNEPN 11P 2 EXTFLD (ASNEPN) Nettopreis-Neu 1000011
89=D OSSPNA 8S 0 EXTFLD (ASSPNA) Neu gültig Datum-Ab 1000012
90=D OSSM01 11P 0 EXTFLD (ASSM01) Staffelmenge-01 1000013
99=D OSSM10 11P 0 EXTFLD (ASSM10) Staffelmenge-10 1000022
100=D OSPR01 11P 2 EXTFLD (ASPR01) Staffelpreis-01 1000023
109=D OSPR10 11P 2 EXTFLD (ASPR10) Staffelpreis-10 1000032
110=D OSPN01 11P 2 EXTFLD (ASPN01) Staffelprs.Neu-01 1000033
119=D OSPN10 11P 2 EXTFLD (ASPN10) Staffelprs.Neu-10 1000042
120=D OSSTNA 8S 0 EXTFLD (ASSTNA) Neu gültig Datum-Ab 1000043
121 D NEWREC E DS EXTNAME(ASTP) PREFIX(N:1) 040906 007900
*--------------------------------------------------------------------------------------------* 2
* Datenstruktur . . . . . . : NEWREC * 2
* Präfix . . . . . . . . . . : N : 1 * 2
* Externes Format . . . . . : ASTPPF1 : XXXDATNEU/ASTP * 2
* Formattext . . . . . . . . : ARTIKELSTAMM-NETTOPREISE * 2
*--------------------------------------------------------------------------------------------* 2
122=D NSSKZ 1A EXTFLD (ASSKZ) Statuskennzeichen 2000001
123=D NSNLN 3P 0 EXTFLD (ASNLN) NL-Nr. 2000002
124=D NSANR 15A EXTFLD (ASANR) Artikel-Nr. 2000003
125=D NSKNR 9A EXTFLD (ASKNR) Kunden-Nr. 2000004
126=D NSKGR 3A EXTFLD (ASKGR) Kundengruppe 2000005
127=D NSPCD 5A EXTFLD (ASPCD) Preiscode 2000006
128=D NSSPBP 1A EXTFLD (ASSPBP) Kz. Betrag/% 2000007
129=D NSSPZA 11P 2 EXTFLD (ASSPZA) Zu-/Abschlag 2000008
130=D NSSPZN 11P 2 EXTFLD (ASSPZN) Zu-/Abschlag-Neu 2000009
131=D NSNEP 11P 2 EXTFLD (ASNEP) Nettopreis 2000010
132=D NSNEPN 11P 2 EXTFLD (ASNEPN) Nettopreis-Neu 2000011
133=D NSSPNA 8S 0 EXTFLD (ASSPNA) Neu gültig Datum-Ab 2000012
134=D NSSM01 11P 0 EXTFLD (ASSM01) Staffelmenge-01 2000013
143=D NSSM10 11P 0 EXTFLD (ASSM10) Staffelmenge-10 2000022
144=D NSPR01 11P 2 EXTFLD (ASPR01) Staffelpreis-01 2000023
153=D NSPR10 11P 2 EXTFLD (ASPR10) Staffelpreis-10 2000032
154=D NSPN01 11P 2 EXTFLD (ASPN01) Staffelprs.Neu-01 2000033
163=D NSPN10 11P 2 EXTFLD (ASPN10) Staffelprs.Neu-10 2000042
164=D NSSTNA 8S 0 EXTFLD (ASSTNA) Neu gültig Datum-Ab 2000043
165 D RECORD E DS EXTNAME(ASTP) 040906 008000
166 *================================================= =======================* 0093 970516 008100
167 * SDS * 970516 008200
168 *================================================= =======================* 0093 970516 008300
*--------------------------------------------------------------------------------------------* 3
* Datenstruktur . . . . . . : RECORD * 3
* Externes Format . . . . . : ASTPPF1 : XXXDATNEU/ASTP * 3
* Formattext . . . . . . . . : ARTIKELSTAMM-NETTOPREISE * 3
*--------------------------------------------------------------------------------------------* 3
169=D ASSKZ 1A Statuskennzeichen 3000001
170=D ASNLN 3P 0 NL-Nr. 3000002
171=D ASANR 15A Artikel-Nr. 3000003
172=D ASKNR 9A Kunden-Nr. 3000004
173=D ASKGR 3A Kundengruppe 3000005
174=D ASPCD 5A Preiscode 3000006
175=D ASSPBP 1A Kz. Betrag/% 3000007
176=D ASSPZA 11P 2 Zu-/Abschlag 3000008
177=D ASSPZN 11P 2 Zu-/Abschlag-Neu 3000009
178=D ASNEP 11P 2 Nettopreis 3000010
179=D ASNEPN 11P 2 Nettopreis-Neu 3000011
180=D ASSPNA 8S 0 Neu gültig Datum-Ab 3000012
181=D ASSM01 11P 0 Staffelmenge-01 3000013
190=D ASSM10 11P 0 Staffelmenge-10 3000022
191=D ASPR01 11P 2 Staffelpreis-01 3000023
200=D ASPR10 11P 2 Staffelpreis-10 3000032
201=D ASPN01 11P 2 Staffelprs.Neu-01 3000033
210=D ASPN10 11P 2 Staffelprs.Neu-10 3000042
211=D ASSTNA 8S 0 Neu gültig Datum-Ab 3000043
212 D SDS ESDS 0058 970516 008400
213 *================================================= =======================* 0093 970516 008500
214 * FELDDEFINITIONEN * 970516 008600
215 *================================================= =======================* 0093 970516 008700
MFA/400 TRIGGER: ARTIKELSTAMM-PROTOKOLLIEREN > TRG101 <
5770WDS V7R1M0 100416 RN IBM ILE RPG XXXMFA/TRG102 ATXXX01 23.11.13 06:54:16 Seite 6
Zeil.- <---------------------- Quellenbestimmungen ------------------------------><-- Bemerkungen --> Do S. Änd.- Src Folge-
Nummer ....1....+....2....+....3....+....4....+....5....+ ....6....+....7....+....8....+....9....+...10 Num Z. Datum ID nummer
*--------------------------------------------------------------------------------------------* 4
* Datenstruktur . . . . . . : SDS * 4
* Externes Format . . . . . : SDSPF : XXXMFADOK/SDS * 4
* Formattext . . . . . . . . : SDS - Systemdatenstruktur * 4
*--------------------------------------------------------------------------------------------* 4
216=D SDPGM 10A Programmname 4000001
217=D SDSTC 5S 0 Statuscode 4000002
218=D SDSTV 5S 0 vorh. Statuscode 4000003
219=D SDANR 8A Anweisung RPG/400 4000004
220=D SDSBR 8A RPG/400-Routine 4000005
221=D SDAPM 3S 0 Anzahl Parameter 4000006
222=D SDFAR 3A Fehlerart CPF/MCH 4000007
223=D SDFNR 4A Fehlernummer 4000008
224=D SDMIN 4A MI/ODT-Nummer 4000009
225=D SDBFN 30A Bereich für Nachr. 4000010
226=D SDLIB 10A Bibliothek 4000011
227=D SDADA 80A Ausnahmedaten 4000012
228=D SDAKZ 4A Kz Ausnahme 4000013
229=D SDNU1 26A Nicht benutzt 4000014
230=D SDLFL 8A letzte Datei bei Fehler 4000015
231=D SDLFI 35A Info zu Datei 4000016
232=D SDWSID 10A Wsid 4000017
233=D SDUSER 10A Benutzer 4000018
234=D SDJNR 6S 0 Jobnummer 4000019
235=D SDEDT 6S 0 Eingabedatum UDATE 4000020
236=D SDADT 6S 0 Datum Pgmausführung 4000021
237=D SDAZT 6S 0 Zeit Pgmausführung 4000022
238=D SDCDT 6A Datum Umwandlung 4000023
239=D SDCZT 6A Umwandlungszeit 4000024
240=D SDAKT 4A Aktstufe 4000025
241=D SDQFL 10A Quellendatei 4000026
242=D SDQLB 10A Quellenbibliothek 4000027
243=D SDQMB 10A Quellenteildatei 4000028
244=D SDNU2 96A unbenutzt 4000029
245 D PARAM S 53 970519 008800
246 D RTVLEN S 4B 0 970826 008900
247 D DATE S D 980122 009000
248 *================================================= =======================* 0093 970521 009100
249 * ÜBERNAHME PARAMETER * 970521 009200
250 *================================================= =======================* 0093 970521 009300
251 C *ENTRY PLIST 970521 009400
252 C PARM PARM1 970516 009500
253 C PARM PARM2 970516 009600
254 *================================================= =======================* 0093 970826 009700
255 * RETRIEVE JOB INFORMATION * 970826 009800
256 *================================================= =======================* 0093 970826 009900
257 C PLJOBI PLIST 970826 010000
258 C PARM RTVVAR 111 970826 010100
259 C PARM RTVLEN 970826 010200
260 C PARM RTVFMT 8 970826 010300
261 C PARM RTVNAM 26 970826 010400
262 C PARM RTVID 16 970826 010500
263 * 040906 010600
264 *================================================= =======================* 0093 040906 010700
265 C EVAL OLDREC=%SUBST(PARM1:RELPOSOLD+1: 040906 010800
266 C LNGRECOLD) 040906 010900
267 C EVAL NEWREC=%SUBST(PARM1:RELPOSNEW+1: 040906 011000
268 C LNGRECNEW) 040906 011100
269 *================================================= =======================* 0093 040906 011200
MFA/400 TRIGGER: ARTIKELSTAMM-PROTOKOLLIEREN > TRG101 <
5770WDS V7R1M0 100416 RN IBM ILE RPG XXXMFA/TRG102 ATXXX01 23.11.13 06:54:16 Seite 7
Zeil.- <---------------------- Quellenbestimmungen ------------------------------><-- Bemerkungen --> Do S. Änd.- Src Folge-
Nummer ....1....+....2....+....3....+....4....+....5....+ ....6....+....7....+....8....+....9....+...10 Num Z. Datum ID nummer
270 * 040906 011300
271 C Z-ADD 111 RTVLEN 970826 011400
272 C MOVEL 'JOBI0200' RTVFMT 970826 011500
273 C MOVEL(P) '*' RTVNAM 970826 011600
274 C MOVE *BLANKS RTVID 970826 011700
275 C 970826 011800
276 C CALL 'QUSRJOBI' PLJOBI 970826 011900
277 C 970826 012000
278 C MOVEL RTVVAR RTVAPI 970826 012100
279 C 970826 012200
280 C MOVEL FNNAM $$FNC 970826 012300
281 C 970826 012400
282 * DATUM UND ZEIT 980122 012500
283 *--------------- 980122 012600
284 C TIME $$AZT 980122 012700
285 C Z-ADD *DATE $$JMT 980122 012800
286 C 980122 012900
287 * USER,WS-ID 980122 013000
288 *----------- 980122 013100
289 C MOVEL SDUSER $$USER 980122 013200
290 C MOVEL SDWSID $$WSID 980122 013300
291 C 980122 013400
292 C EVENT IFEQ '1' INSERT B01 040906 013500
293 C MOVEL NEWREC RECORD 01 C 040906 013600
294 C MOVEL 'PT' $$TYP 01 970826 013700
295 C WRITE ASTPPF1 01 970922 013800
296 C END E01 970516 013900
297 C* --- C* 970516 014000
298 C EVENT IFEQ '2' DELETE B01 040906 014100
299 C MOVEL OLDREC RECORD 01 C 040906 014200
300 C MOVEL 'DL' $$TYP 01 970826 014300
301 C WRITE ASTPPF1 01 970922 014400
302 C END E01 970516 014500
303 C* --- C* 970516 014600
304 C EVENT IFEQ '3' DELETE B01 040906 014700
305 C MOVEL OLDREC RECORD 01 C 040906 014800
306 C MOVEL 'UB' $$TYP 01 970826 014900
307 C WRITE ASTPPF1 01 970922 015000
308 C MOVEL NEWREC RECORD 01 C 040906 015100
309 C MOVEL 'UP' $$TYP 01 970826 015200
310 C WRITE ASTPPF1 01 970922 015300
311 C END E01 970826 015400
312 C* --- C* 970826 015500
313 C 970826 015600
314 C MOVE *ON *INLR 970826 015700
315 *================================================= ======================* 0093 970522 015800
316=OASTPPF1 5000001
*--------------------------------------------------------------------------------------------* 5
* RPG-Satzformat . . . . . . : ASTPPF1 * 5
* Externes Format . . . . . : ASTPPF1 : XXXDATNEU/ASTPJ * 5
* Formattext . . . . . . . . : ARTIKELSTAMM-NETTOPREISE * 5
*--------------------------------------------------------------------------------------------* 5
317=O $$TYP 2A CHAR 2 EINTRAGSART 5000002
318=O $$FNC 12A CHAR 10 FUNKTION 5000003
319=O $$USER 22A CHAR 10 USER 5000004
320=O $$WSID 32A CHAR 10 WS-ID 5000005
321=O $$JMT 40S ZONE 8,0 ÄND.-DATUM 5000006
322=O $$AZT 46S ZONE 6,0 ÄND.-ZEIT 5000007
323=O ASSKZ 47A CHAR 1 Statuskennzeichen 5000008
324=O ASNLN 49P PACK 3,0 NL-Nr. 5000009
325=O ASANR 64A CHAR 15 Artikel-Nr. 5000010
MFA/400 TRIGGER: ARTIKELSTAMM-PROTOKOLLIEREN > TRG101 <
5770WDS V7R1M0 100416 RN IBM ILE RPG XXXMFA/TRG102 ATXXX01 23.11.13 06:54:16 Seite 8
Zeil.- <---------------------- Quellenbestimmungen ------------------------------><-- Bemerkungen --> Do S. Änd.- Src Folge-
Nummer ....1....+....2....+....3....+....4....+....5....+ ....6....+....7....+....8....+....9....+...10 Num Z. Datum ID nummer
326=O ASKNR 73A CHAR 9 Kunden-Nr. 5000011
327=O ASKGR 76A CHAR 3 Kundengruppe 5000012
328=O ASPCD 81A CHAR 5 Preiscode 5000013
329=O ASSPBP 82A CHAR 1 Kz. Betrag/% 5000014
330=O ASSPZA 88P PACK 11,2 Zu-/Abschlag 5000015
331=O ASSPZN 94P PACK 11,2 Zu-/Abschlag-Neu 5000016
332=O ASNEP 100P PACK 11,2 Nettopreis 5000017
333=O ASNEPN 106P PACK 11,2 Nettopreis-Neu 5000018
334=O ASSPNA 114S ZONE 8,0 Neu gültig Datum-Ab 5000019
335=O ASSM01 120P PACK 11,0 Staffelmenge-01 5000020
354=O ASPR10 234P PACK 11,2 Staffelpreis-10 5000039
355=O ASPN01 240P PACK 11,2 Staffelprs.Neu-01 5000040
364=O ASPN10 294P PACK 11,2 Staffelprs.Neu-10 5000049
365=O ASSTNA 302S ZONE 8,0 Neu gültig Datum-Ab 5000050
366=O $$KZD 303A CHAR 1 DRUCK-KZ 5000051
* * * * * E N D E D E R Q U E L L E * * * * *

[Fuerchau]

Auf den ersten Blick kann ich da nichts erkennen.
Da du am Anfang die Pufferdaten per %SUBST herauskopierst, gibt es das Adressproblem nicht.
Du solltest nur darauf achten, dass ja nach Ereignis die Adresse des puffers ungültig ist und du "irgendwas" überrägst.
Sicherlich geht es mit Pointern einfacher, ist hier aber nicht der Grund.

Hier hilft wohl nur der Debugger weiter um das Problem näher einzukreisen.

Noch ein paar Empfehlungen:
Du solltest das Programm nicht mit *INLR=*ON verlassen, sondern es aktiv halten.
Das bringt Performance (Open/Close deiner Log-Dateien).
Auch das QUSRJOBI-API solltest du nur einmal aufrufen, da sich die relevanten infos zur Joblaufzeit nie ändern.

Auch die Aktivierungsgruppe könnte ein Problem sein. Hier wird Standard QILE verwendet.
Ggf. ist *CALLER die bessere Wahl.

Tritt der Fehler auch immer beim 1. Aufruf oder erst später, also beim wiederholten Aufruf, auf?

[BenderD]

... riecht nach Bug, kümmer Dich zuerst um den PTF Stand, insbesondere die Database Group PTFs und Software Defekt reklamieren.

D*B

[programmer400]

Tritt der Fehler auch immer beim 1. Aufruf oder erst später, also beim wiederholten Aufruf, auf?


Der Fehler tritt schon beim ersten Aufruf auf.

[Fuerchau]

Versuche doch mal das Programm zu debuggen!
Dieters Tipp solltest du auf jeden Fall auch mal prüfen.

[programmer400]

PTFs sind aktuell, d.h. erst vorletzte Woche alle verfügbaren heruntergeladen und installiert.

Bitte noch um Info, bzgl. des aktuellen Debug-Befehles, ich bin noch vom alten RPGIII-Schlag.

[Fuerchau]

Du kannst bei der Umwandlung DBGVIEW(*SOURCE) angeben.
Dann kannst du ganz normal per STRDBG wie auch bei OPM mit Quellsicht debuggen.

[programmer400]

Zur Info: Debugging hat mich auch nicht weitergebracht. Ich hab einen Call bei IBM aufgemacht.