dynamisches SQL in Cobol

Dieses Thema hat 26 Antworten und 1 Teilnehmer, und wurde zuletzt aktualisiert vor 14 Jahre, 5 Monaten 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