mit SQL in ein array lesen

[andreaspr@aon.at]

Hallo,

eigentlich sollte das ganz normal gehen. Probier es mal so:

D wert            DS                  DIM(99) QUALIFIED  
D we                             7S 0                    

C     *ENTRY        PLIST                          
C                   PARM                    FeWe   
C                   PARM                    WERT 

Exec Sql Declare c1 Cursor for
	select xxwert from DateiA                               
	where (xxa, xxb)                                  
	in(select yya, yyb from DateiB where feld=:FeWe)
	group by xxwert;

Exec Sql open c1;

Exec Sql Fetch c1 For 99 Rows Into :wert;

lg Andreas

[ExAzubi]

Mit Cursor ja, Statisch wie vom TE gechrieben nein.

Ich persönlich arbeite auch lieber ohne Cursor...

[dibe]

Hallo Andreas, vielen Dank
es ist zwar etwas umständlicher aber es geht so.
Danke
VG
DiBe

[Fuerchau]

Wie willst du ohne Cursor mehrere Zeilen bearbeiten;-)?

[dschroeder]

Wenn das mit dem Cursor geht (wie von Andreas beschrieben), geht es dann vielleicht auch mit select into? (Das würde den Cursor sparen)

Exec Sql select xxwert into :wert from DateiA                               
    where (xxa, xxb)                                  
    in(select yya, yyb from DateiB where feld=:FeWe)
    group by xxwert
fetch first 99 rows only;

(Ich habe es nicht ausprobiert)

Dieter

[Fuerchau]

Der wesentliche Unterschied ist, dass ein "Select ... Into ..." ausschließlich maximal 1 Ergebniszeile erlaubt. Somit stellt sich das DIM-Problem da nicht.

The SELECT INTO statement produces a result table consisting of at most one row,
and assigns the values in that row to variables.

Only one row may be specified in the fetch-first-clause.