Dschainers
27-08-19, 15:59
Hallo,
ich habe hier ein System V7.3 mit PTF Stand TL18242.
Ich versuche verzweifelt eine SQL Prozedur von einem SQLRPGLE Programm aufzurufen.
Ich bekomme immer nachfolgende Meldungen im Joblog:
Zeiger für angegebene Position nicht gesetzt.
Anwendungsfehler. MCH3601 nicht überwacht durch TEST0002 bei Anweisung
0000000007, Instruktion X'0000'.
Fehler von Auslöserprogramm oder externer Routine erkannt.
Mein Programm:
D ParmIn S 13A
D ParmOut S 1A
c z-add *zeros error_nr 3 0
/free
ParmIn = 'Testtest';
EXEC SQL Call TEST0002 (:ParmIn, :ParmOut);
if sqlcod <> 0 and sqlcod <> 100;
Error_Nr = 04;
endif;
/end-free
c dsply parmout
c dsply error_nr
c dsply sqlcod
c dsply sqlstate
C move *on *inlr
Die Parameter stimmen definitiv mit der SQL Prozedur überein.
Ich hab schon hier im Forum gesucht, da war auch ein Beitrag, allerdings war da am Schluss keine Lösung/Ergebnis gestanden.
Was mache ich falsch, bzw. geht das überhaupt.
Danke
ich habe hier ein System V7.3 mit PTF Stand TL18242.
Ich versuche verzweifelt eine SQL Prozedur von einem SQLRPGLE Programm aufzurufen.
Ich bekomme immer nachfolgende Meldungen im Joblog:
Zeiger für angegebene Position nicht gesetzt.
Anwendungsfehler. MCH3601 nicht überwacht durch TEST0002 bei Anweisung
0000000007, Instruktion X'0000'.
Fehler von Auslöserprogramm oder externer Routine erkannt.
Mein Programm:
D ParmIn S 13A
D ParmOut S 1A
c z-add *zeros error_nr 3 0
/free
ParmIn = 'Testtest';
EXEC SQL Call TEST0002 (:ParmIn, :ParmOut);
if sqlcod <> 0 and sqlcod <> 100;
Error_Nr = 04;
endif;
/end-free
c dsply parmout
c dsply error_nr
c dsply sqlcod
c dsply sqlstate
C move *on *inlr
Die Parameter stimmen definitiv mit der SQL Prozedur überein.
Ich hab schon hier im Forum gesucht, da war auch ein Beitrag, allerdings war da am Schluss keine Lösung/Ergebnis gestanden.
Was mache ich falsch, bzw. geht das überhaupt.
Danke