Zugriff vom SQlRPGLE AUF DB2 Linux

[woodstock99]

ja das ist mir klar aber wie stell ich das um oder was muss ich machen ?

Exec SQL Prepare DynCsrC1 From :String1;
Exec SQL Declare Icur Cursor For DYNCSRC1;
Exec SQL Open ICUR;
Exec SQL Fetch Next From ICUR into :MYDATA;

Da ist nirgends ein HOLD WITH ..

[BenderD]

was muss ich machen ?

zu aller erst mal genau beschreiben, was Du da machst und was wann genau passiert...
dann noch alle Ungereimtheiten beseitigen:
- lokal ist das SQL package Bestandteil des Programmes
- remote wird ein package für static SQL benötigt
-- das wird erstellt beim CRTSQLxxx, wenn man für RDB die Datenbank angibt
-- alternativ kann man CRTSLxxx mit RDB(*local) machen und dann CRTSQLPKG mit Angabe der RDB machen

D*B

[B.Hauser]

wo ist der COSE?
Wie setzt Du den COMMIT ab als SQL-Befehl (wenn ja wie) oder RPG/CL-Befehl.
Wird der COMMIT nach dem CLOSE abgesetzt?

Birgitta

[woodstock99]

"alternativ kann man CRTSLxxx mit RDB(*local) machen und dann CRTSQLPKG mit Angabe der RDB machen"
hab ich gemacht.

ich will per SQLRPGLE auf eine DB2 zugreifen die auf Linux läuft. ich kann nur unter Commit steuerung zugreifen ansonsten kommt ein fehler das ich per commit zugreifen soll .

@birgitta commit wird im SQLRPGLE . der Commit schliesst ja auch den Cursor weil ich kein With hold habe oder??

Exec SQL Fetch Next From ICUR into :MYDATA;
eXec SQl SET CONNECTION :lokal_RDB;
EXEC SQL
INSERT into sss.ss values(:MYDATA);
commit;


sollte doch funzen aber ich bekomme immer diesen fehler

Message . . . . : DRDA resource does not allow SQL cursor hold.
Message ID . . . . . . : CPD835D Severity . . . . . . . : 20
Message type . . . . . : Diagnostic
Date sent . . . . . . : 09.07.15 Time sent . . . . . . : 11:56:24

Message . . . . : DRDA resource does not allow SQL cursor hold.
Cause . . . . . : A commit or rollback operation, with SQLHOLD(YES)



hab das Commit auch schon ans ende des PGMs gesetzt - Davor schliesse ich ich die connection und den cursor von hand . selbe fehlermeldung

[BenderD]

- da fehlt immer noch die Cursor Definition (bzw. der Rest des Programms)
- die Connection lässt sich nicht schließen, wenn noch uncommitted changes anstehen
- am einfachsten beendet man mit: release und dann commit.

D*B

[woodstock99]

Exec SQL Prepare DynCsrC1 From :String1;
Exec SQL Declare Icur Cursor For DYNCSRC1;

[BenderD]

... wenn du keine Lust hast, dein Programm hier zu outen, dann habe ich keine Lust mehr rumzuraten...

[woodstock99]

das war das ganze pgm , die connection setzen usw ist ja standart .

ich habe meinen fehler gefunden

ich habe den commit ohne EXEC SQl ausgeführt .................
ist mir gar nicht aufgefallen

aber vielen dank für eure zeit

[woodstock99]

@bender
- lokal ist das SQL package Bestandteil des Programmes
- remote wird ein package für static SQL benötigt

Remote für static ? Ohne Package geht auf dem Remote doch gar nix. Egal ob static oder dynamic ..

[Fuerchau]

Das gilt nur für DB2-kompatible Datenbanken.
Kommuniziere ich mit entfernten DB's die keine Pakete unterstützen merkt sich das die AS/400 und schickt eben jeden SQL einzeln.
Bei ODBC/JDBC kann man ja auch den "Extended dynamic"-Support ausschalten um ohne Paket zu arbeiten. Dies bringt auch keine nennenswerte Performanceverluste, da die gespeicherten Zugriffspläne nicht so viel Gewinn bringen.

[woodstock99]

verstehe jetzt deine Antwort nicht wirklich .. Was meinst du mit das gilt nur für db2 kompatible Datenbanken ??? Meinst du es muss kein SQLPackage auf dem Remote erstellt werden ??

[Fuerchau]

Wenn ich zu einer DB2/400 aufbaue, dann leider ja. Sogar wenn ich nur dynamische SQL's generiere.
Aber *DB's ArdGate (Zugriff über JDBC) beweist, dass ich zu anderen DB's nicht unbedingt Pakete benötige.
Das sagt mit aber das Programm zur Laufzeit.