dynamisches SQL in Cobol

Dieses Thema hat 26 Antworten und 1 Teilnehmer, und wurde zuletzt aktualisiert vor 16 Jahre von
Perix
Mitglied
.

Ansicht von 15 Beiträgen - 1 bis 15 (von insgesamt 27)

1 2 →

Author
Posts
22. Februar 2006 um 14:35 #2668
Perix

Mitglied
Hi all,
wer kann mir sagen, wie ich die Beispielprogamme zum dynamischen SQL ( Hauptprog und Unterprog) aus Application Programming zum Laufen bekomme ?
Wenn ich das Hpro ohne DB2 wandle und dann das Upro mit DB2 aufgerufen wird, fehlt das DB2 in der JCL (-927 glaub ich war es).
Wandle ich beides als DB2-Programme, bekomme ich ein leeres DBRM und der Bind Package knallt.
Wie muss ich also wandeln, und welche optionen muss ich beim bind Plan/package angeben ?
greets Perix
23. Februar 2006 um 7:12 #3077
RolfD

Mitglied
Hi Perix,
wenn’s der -927 war dann sollte es ausreichen das Programm unter dem Command-Processor (und damit unter TSO) laufen zu lassen. Sieht dann etwa fÃ¼rs Programm DSNTEP2 so aus:
//DSNTEP2 EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB DD DISP=SHR,DSN=DB2E.SDSNLOAD
//SYSPRINT DD SYSOUT=X
//SYSTSPRT DD SYSOUT=X
//SYSTSIN DD *
DSN SYSTEM (DSNE)
RUN PROGRAM (DSNTEP2) PLAN (DSNTEP2) PARMS (‚/ALIGN(LHS)‘)
//SYSIN DD *
SET CURRENT SQLID = ‚…‘;
FÃ¼r Anwendungsprogramm muss die Steplib noch um die entsprechende Loadlib erweitert werden.
MfG Rolf
23. Februar 2006 um 7:48 #3368
Perix

Mitglied
Hallo Rolf and all,
ich hab das Ding gestern noch zum Laufen bekommen und zwar wie folgt.
HPRO = Hauptprogramm
UPRO = Unterprogramm
HPRO- Precompile,
Compile,
Link,
Bind mit Parametern :
DSN SYSTEM(DBXY)
BIND PLAN(BVHPRO) OWNER(myowner) –
PKLIST(Plist.*) –
VALIDATE(BIND) ISOLATION(CS) CACHESIZE(256) –
ACQUIRE(ALLOCATE) RELEASE(DEALLOCATE) –
ACTION(REPLACE) RETAIN –
DYNAMICRULES(BIND)
END
und kein bind Package
Upro
Precompile
Compile
Link
Bind mit Parametern
DSN SYSTEM(DBXY)
BIND PLAN(BVUPRO) OWNER(myowner) –
PKLIST(Plist.*) –
VALIDATE(BIND) ISOLATION(CS) CACHESIZE(256) –
ACQUIRE(ALLOCATE) RELEASE(DEALLOCATE) –
ACTION(REPLACE) RETAIN
END
Bind Package mit Parametern
DSN SYSTEM(DBXY)
BIND PACKAGE(Package) OWNER(myowner) MEMBER(BVUPRO) –
ACTION(REPLACE) VALIDATE(BIND) EXPLAIN(YES)
END
Und start des Upro Ã¼ber das Hpro mit IKJEFT01 und SYSTSIN DD *
DSN SYSTEM(DBXY)
RUN PROGRAM(HPRO) –
PLAN(HPRO) –
LIB(‚mylib‘)
END
/*
So lÃ¤uft es….
Hat einer dazu noch Anmerkungen, Komentare oder VerbesserungsvorschlÃ¤ge ??
GruÃŸ
Perix
23. Februar 2006 um 8:12 #3549
RolfD

Mitglied
MÃ¶chte mal behaupten, das sich der -927 nicht durch Dynamicrules (Bind) verschwunden ist (nur falls du die Ursache dafÃ¼r suchst).
MfG Rolf
15. März 2006 um 8:32 #3676
Perix

Mitglied
So,
der SELECT funzt.
Jetzt klemmt der "einfache" EXECUTE mit Update o.Ã¤.
Hat mal jemand mit "Parameter Markern" und Describe Ã¼ber die SQLDA gearbeitet ?
Theoretisch liest sich das ganz einfach, nur bei der Umsetzung in Cobol ergeben sich bei mir da ein paar Fragen.
Gibt es da Erfahrung bei Euch ?
Greets Perix
15. März 2006 um 10:03 #3768
RolfD

Mitglied
Hi,
wo klemmts denn genau? Hab das schon mal gemacht, allerdings in PL/I.
MfG rolf
15. März 2006 um 11:01 #3826
Perix

Mitglied
Wie ich das sehe weiss ich im schlimmsten Fall ja weder die Anzahl, noch die Art der Parameter Marker.
Also kann ich vorher auch nicht die entsprechenden Hostvariablen definieren, weder die GrÃ¶ÃŸe (ein oder 300 Byte), noch die Art (pic x( ) oder doch eher pic comp ).
und schlieÃŸlich muÃŸ ich dann ja an den Adressen der Hostvariablen auch noch zur AusfÃ¼hrungszeit die richtigen Werte in einer adÃ¤quaten Form zur VerfÃ¼gung stellen.
:-/ hmmmm :schwitz:
15. März 2006 um 11:45 #3864
RolfD

Mitglied
FÃ¼r den schlimmsten Fall hast du recht, da wirds auch gerade in COBOL schwierig.
Die kritische Stelle ist wenn du den SQL-String zusammenbastelst. Immer wenn du ein Parameter-Marker (?) reinhÃ¤ngst, kannst du i. A. auch die SQLDA fÃ¼llen (gilt fÃ¼r Input-Parameter).
Ansonsten wirds etwas kompliziert. Letztendlich bist du selbst fÃ¼r den Speicherbereich verantwortlich, den du DB2 zur VerfÃ¼gung stellst. Wie der in COBOL belegt wird ist DB2 egal. In PL/I gibts fÃ¼r sowas die Speicherklasse Controlled, aber ich kenne keine Entsprechung in COBOL.
Es gibt div. MÃ¶glichkeiten fÃ¼r dyn. SQL, insbesonsdere mit fixer oder variabler Select-Clause und Input- bzw. Output-Parameter-Marker.
Im Application Programming and SQL-Guide sind die MÃ¶glichkeiten beschrieben (allerdings extrem komprimiert). Schau dir mal die Kapitel
– Coding dynamic SQL in application programs (S. 535, bzw. ab S. 545)
– Sample COBOL dynamic SQL program (S. 931) (Adresszuweisungen und dyn. Speicherverwaltung)
an (die Seitenangaben beziehen sich auf V8-Doku).
Vielleicht kannst du mal kurz skizzieren, was du vorhast. Aber eins vorweg: Die eierlegende Wollmilchsau ist am schwierigsten!
MfG Rolf
15. März 2006 um 11:56 #3893
Perix

Mitglied
Hallo Rolf,
das Handbuch Application Programming and SQL Guide habe ich schon durchgeackert.
Das Cobol-Beispiel fÃ¼r den Select ist i.A. brauchbar. (Wenn auch nicht 1:1, da ein paar Fehler drin sind).
Nur eben bei dem Beispiel zum parameter marker Ã¼ber die SQLDA erschÃ¶pft sich die Literatur auf einen schlecht kommentierten PL/1 Auszug.
Und wenn schon dynamisch dann auch gleich richtig, also Eierlegende…..sau
GruÃŸ
Perix
16. März 2006 um 8:30 #3915
RolfD

Mitglied
Hi Perix,
aber man muss sich das Leben ja nicht unnÃ¶tig schwer machen. Was soll das Programm denn machen?
MfG Rolf
16. März 2006 um 9:32 #3926
Perix

Mitglied
Hi Rolf,
in der Luxus-Version sollte eben Alles mit Allem bearbeitet werden kÃ¶nen.
Diesen Weg verfolge ich aber zur Zeit nur noch soooo.. hm.. akademisch… sagt man glaub ich
FÃ¼r den Praxiseinsatz kommt aber eher die einfachere Variante mit fixer Anzahl von Hostvars in Frage. Dazu hab ich keine Fragen
Greets
Perix
16. März 2006 um 9:50 #3936
RolfD

Mitglied
Sry, ich versteh’s irgendwie nicht. Demnach willst du SQLs der Form
UPDATE table
SET col1 = ?, col2 = ?,….
WHERE cola = ? and colb = ? and….
verarbeiten, du weisst aber nicht welche HVs verwendet werden?
MfG Rolf
16. März 2006 um 12:41 #3945
DBSC_Info

Teilnehmer
Hallo Perix,
in einem Artikel von Craig Mullins wird die Arbeit mit Dynamic SQL und Cobol (Execute Immediate, SELECT Fixed List, SELECT Varying List) sehr schÃ¶n beschrieben. Das sollte Dir ein StÃ¼ckchen weiterhelfen.
Using Dynamic SQL for Maximum Flexibility
By Craig S. Mullins
http://www.craigsmullins.com/dbu_1004.htm
GruÃŸ
Gernot
16. März 2006 um 12:53 #3951
Perix

Mitglied
RolfD wrote: Sry, ich versteh’s irgendwie nicht. Demnach willst du SQLs der Form
UPDATE table
SET col1 = ?, col2 = ?,….
WHERE col1 = ? and col2 = ? and….
verarbeiten, du weisst aber nicht welche HVs verwendet werden?
MfG Rolf
Bei der Luxusvariante sind alle roten Teile unbekannt.
Bei der [glb]praktikablen Variante [/glb] (wollte hier nur mal glow ausprobieren)
werde ich den dynamischen Teil auf die WHERE Bedingung eingrenzen und somit auch kein Problem mit der AusprÃ¤gung (char? dec? o.Ã¤.) der HostVars haben
16. März 2006 um 13:18 #3956
DBSC_Info

Teilnehmer
Nachtrag zum Append von vorhin:
😀
es gibt noch ein tolles Redbook von der IBM: Squeezing the Most Out of Dynamic SQL with DB2 for z/OS and OS/390.
http://www.redbooks.ibm.com/redbooks/pdfs/sg246418.pdf
An diesem Redbook hat unser geschÃ¤tzer Kollege und Forum-Mitglied Axel PÃ¼rner mitgeschrieben. HÃ¤tte er Zeit, wÃ¼rde er sich an diesem Thread bestimmt beteiligen. :-/
Ciao
Gernot
Author
Posts

Ansicht von 15 Beiträgen - 1 bis 15 (von insgesamt 27)

1 2 →

You must be logged in to reply to this topic.

Kurzübersicht

Anmelden