Total Free und SQL --> Eine schlechte Lösung?

[dholtmann]

Bei uns mit 7.1 funktioniert das.
Meine DS schaut so aus:
dcl-ds ds_auftrag qualified inz;
zon_fld1 zoned(9);
zon_fld2 zoned(9);
zon_fld3 zoned(2);
zon_fld4 zoned(2);
zon_fld5 zoned(1);
zon_fld6 zoned(9);
end-ds;

Der SQL dazu:
exec sql declare mein_cursor cursor for
select * from meineview;
exec sql open mein_cursor;
exec sql fetch mein_cursor into :ds_auftrag;
exec sql close mein_cursor;

Ein Beispiel mit direktem select into habe ich leider gerade nicht,
aber das sollte ja kein Problem darstellen.

[dschroeder]

Das ist ja klar. Du füllst die ganze Struktur. Das geht natürlich. Die Frage ist, ob du auch ein einzelnes Unterfeld der Struktur füllen kannst.

Also: exec sql fetch mein_cursor into :zon_fld2;

[andreaspr@aon.at]

bzw. in diesem Fall:
exec sql fetch mein_cursor into :ds_auftrag.zon_fld2;

[dholtmann]

achso
habs ausprobiert, das funktioniert auch:

dcl-ds ds_auftrag;
firma zoned(2);
sparte zoned(1);
verkaufshaus zoned(2);
auftrag zoned(4);
end-ds;

exec sql declare mein_cursor cursor for
select firma from firmadatei where firma = 1;
exec sql open mein_cursor;
exec sql fetch mein_cursor into :ds_auftrag.firma;
if sqlcode = 0;
ds_auftrag = ds_auftrag;
endif;
exec sql close mein_cursor;

Firma wird gefüllt, der Rest natürlich nicht.
Funktioniert auch bei Verkaufshaus, liegt also nicht am ersten Feld.