Re: enbeded SQL

Posted ByV.Schlüter on October 18, 1999 at 19:37:18:

In Reply to: Re: enbeded SQL posted byDanke und neue Frage on October 07, 1999 at 17:02:18:

: : : Wie schreibe ich SQL-Code in eine RPG III-Source ??????

: : : Kann mir jemand schnell helfen ???????

: : : Ich Bedanke mich jetzt schon für die Beantwortung der Frage.

: : Nun ungefär so....

: : C/EXEC SQL
: : C+ INSERT INTO DATENLIB/OAS_LINKHEAD (LINKCODE, CMPCODE, DOCCODE,
: : C+ DOCNUM, POSTED, YR, PERIOD, CURDOC, DOCDATE, AUTHUSER, DESCR,
: : C+ ORIGCMPCODE, ORIGDOCCODE, ORIGDOCNUM) VALUES(:vhLINKCODE,
: : C+ :vhCMPCODE, :vhDOCCODE, :vhDOCNUM, :vhPOSTED, :vhYR:YR_I,
: : C+ :vhPERIOD:PERIOD_I, :vhCURDOC:CURDOC_I, :vhDOCDATE:DOCDATE_I,
: : C+ :vhAUTHUSER:AUTHUSER_I, :vhDESCR:DESCR_Ihead,
: : C+ :vhORIGCMPCOD:ORIGCMPCODE_I, :vhORIGDOCCOD:ORIGDOCCODE_I,
: : C+ :vhORIGDOCNUM:ORIGDOCNUM_I)
: : C/END-EXEC

: : Hierzu ist aber auf jeden Fall die URL http://www.redbooks.ibm.com zu empfehlen.

: : Bei verteilter DB2 fängt es dann richtig an Spaß zu machen!

: : Gruß V.Schlüter

: Vielen Dank für die Ausführungen.

: Habe kleines Testprogramm geschrieben, aber nach der Umwandlung der Source und Aufruf durch einen CALL tut sich nichts.

: Programm :

: C MOVE 'TEST' TEST 10
: C/EXEC SQL
: C+ INSERT INTO TEST (DDM001) VALUES(:TEST)
: C/END-EXEC
: C MOVE *ON *INLR

1) Existiert die Tabelle?
2) Ist das Feld DDM001 ein Feld variabler Länge?
3) Werden Fehler im JOBLOG gelistet?
4) Ist das Objekt mit COMMIT *NONE generiert?

und los....

Follow Ups

Neuen Beitrag verfassen!