Zugriff vom SQlRPGLE AUF DB2 Linux

[BenderD]

... einzeln verarbeitet wird das sowieso.
Mit three part alias muss die aktuelle Connection local sein und dann

Insert into lib.file +
Select * from remotedb.lib.file where...

[woodstock99]

ach du scheisse bin ich ......
Aber vielen Dank . Manchmal steht man nicht nur im Wald .....

[woodstock99]

jetzt erhalte ich folgende fehlermeldung wenn ich den commit absetze :

"Insert into lib.file +
Select * from remotedb.lib.file where..."



xxx rows inserted in xx in aa.
GET DIAGNOSTICS statement complete.
DRDA resource does not allow SQL cursor hold.



Message ID . . . . . . : CPD835D Severity . . . . . . . : 20
Message type . . . . . : Diagnostic
Date sent . . . . . . : 09.07.15 Time sent . . . . . . : 08:54:19

Message . . . . : DRDA resource does not allow SQL cursor hold.
Cause . . . . . : A commit or rollback operation, with SQLHOLD(YES)
specified, was performed for commitment definition *DFTACTGRP. However, the
relational database xxx at remote location *N, or IP address
::ffff:172.21.13.15, does not allow cursor hold. If the remote location is
*ARDPGM, the relational database is located by using an application
requester driver program.
Recovery . . . : Retry the commit or rollback operation using SQLHOLD(NO).
Technical description . . . . . . . . : The commitment definition identifier
is X'5CC4C6E3C1C3E3C7D9D7'. The activation group number is X'00000002'.

weiss da jemand rat?

[BenderD]

... steht doch schon drin, commit hold geht nicht mit der remote DB.

D*B

[woodstock99]

ich muss aber mit commit arbeiten weil commit * none die remote DB nicht zulässt .

[BenderD]

... aber nicht mit hold!

[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;