Return aus SQL Procedure

[Fuerchau]

Schalte um auf "Erweitert", da gibt's das "#" für Code-einfügen:


Das ist nun der Code


Was haben denn deine aktuelle SQLCA und SQLCOD für einen Inhalt?
Normalerweise benötigst du dafür keine Get Diagnostics.

Und was passiert, wenn du den Exit-Handler weglässt?
In deinem Beispiel benötigst du ihn nämlich nicht.

Prozeduren und Funktionen sollten keinen COMMIT/ROLLBACK enthalten da damit das Transaktionshandling der Anwendung unterbrochen wird.
Schließlich machst du ja auch keinen COMMIT im Erfolgsfall.
Beides ist Fatal, da die Anwendung sich auf verschiedenes verlassen können muss.

[dabeda]

Diese Procedure ist rein zu Testzwecken, ein COMMIT wird nicht benötigt, da sie immer einen Fehler produziert.

Ich glaube ich weiß jetzt woran es liegt.
Die Procedure wurde mit langem Namen erstellt und als specific dann ein kurzer Systemname.


create procedure sp_artikelupdate_old()
lanuage sql
specific arupdold

Wenn ich call arupdold() mache, bekomme ich als Rückmeldung "Anweisung CALL beendet",
mache ich das call sp_artikelupdate_old(), bekomme ich "Doppelter Schlüsselwert angegeben".
Hab die Procedure nochmal gelöscht, mit dem i Navigator und PDM nach Überbleibsel gesucht und alles neu erstellt, das Ergebnis ist dasselbe.
Dazu fällt mir nur :confused::eek: ein.

[Fuerchau]

Ja das ist der Fluch der Automatismen.
Der Specific-Name dient zur Benennung des generierten Objektes und zu sonst nichts.
Bei langen Namen generiert SQL ansonsten den Systemnamen selber.
Im Gegensatz zu Feldern und Tabellen ist der Specific-Name nicht im SQL-Kontext verwendbar.
D.h., dadurch dass du in SQL jedes vorhandene Programm per CALL aufrufen kannst, wird deine SQL-Prozedur mittels "CALL PROGRAM" aufgerufen.
Dies ist das selbe, als wenn du das Programm per CALL aus RPG aufrufst.
SQL spielt da nicht mit.
Eine SQL-Prozedur muss mit ihrem originären Namen aufgerufen werden und zwar so wie sie in SYSPROCS unter ROUTINE_NAME eingetragen ist.
Wird sie dort nämlich nicht gefunden, wird ein Programm-Call daraus.
Nun führt dies nicht zu Fehlern, da die SQL-Prozeduren in "C" erstellt werden und daher automatisch mit 0-N Parametern aufgerufen werden (Ähnlich wie halt RPGLE).
Erst beim Zugriff auf die fehlenden Variablen würde ein MCH ausgelöst.

Wenn du eine externe Prozedur im SQL-Stil erstellst, erhältst du zusätzliche Übergabeparameter für z.B. eine SQLCODE-Rückgabe. Greifst du nicht darauf zu gibt's auch keinen Laufzeitfehler.
Machst du die Prozedur im Stil "General" sind nur die Funktionsparameter deklariert und dann merkst du keinen Unterschied zwischen SQL-Prozedur-Aufruf und SQL-Programm-Aufruf.

[andreaspr@aon.at]

Ich habe es bei mir jetzt auch nochmal getestet und funktioniert so wie erwartet. (7.1)
Einmal mit "declare exit handler for sqlexception" und einmal ohne.
In beiden Fällen bekomme ich den SQL Fehler:

In der standard SQLSTATE variable vom RPG
Oder mit der Get Diagnostics Funktion



CREATE or REPLACE PROCEDURE PRANLIB.MYPROC2 (
IN PNAME VARCHAR(10) )
LANGUAGE SQL
SPECIFIC PRANLIB.MYPROC2
NOT DETERMINISTIC
MODIFIES SQL DATA
SET OPTION COMMIT = *CHG

BEGIN
DECLARE SQLCODE INT ;
DECLARE SQLSTATE CHAR ( 5 ) ;

insert into pranlib.tab1 values (1, PNAME);

END;


Exec Sql Call PRANLIB.MYPROC2('asdf');
dsply sqlstate;
Exec Sql Get Diagnostics CONDITION 1 :vsqlmsg = MESSAGE_TEXT;
dsply (%subst(vsqlmsg : 1: 20 ) );


Bei den langen SQL und kurzen SYS Namen muss man etwas aufpassen.
Da kann es passieren, dass z.B. beim CREATE OR REPLACE die alte Prozedur nicht gelöscht sondern einfach eine Neue angelegt wird.
Produktiv verwenden wir gar nicht die REPLACE Syntax sondern Löschen alle Prozeduren mit:
DROP SPECIFIC ROUTINE ...
und
DROP ROUTINE ...
... um ganz sicher zu gehen dass da nicht was vergessen wurde.

lg Andreas

[dabeda]

Ja das ist der Fluch der Automatismen.
Der Specific-Name dient zur Benennung des generierten Objektes und zu sonst nichts.


Danke für die Erklärung, jetzt wirds mir klar.
Weiß nicht warum ich das gemacht hab, beim Überladen mach ich das ja auch nicht. :o
Ich halte ja nichts von so langen Namen, aber die werden für die PC-Welt erstellt, vielleicht hat sich da etwas in mir gesträubt.
Naja, eine Woche an der falschen Stelle gesucht, aber viel dabei gelernt. :)