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

[Pikachu]

Vielleicht fehlen euch nur ein paar PTFs?

[dschroeder]

Bei uns geht das (bisher) auch nicht. Wir haben und damit abgefunden, Hostvariablen einzeln zu deklarieren und nicht direkt die Felder aus der Datenstruktur zu verwenden.

Wir sind auf 7.1 TR 11

Dieter

[BenderD]

... wobei man dieses Problem (bei adäquater Vorgehensweise) nicht hat.
Datenbanklogik gehört (eigentlich) ins View-Layer ( create view as select...) und dann hat man im Programm nur noch select * from myView order by ,,, und die DS für den fetch wird dann als E DS deklariert - und falls das mit real totally free nicht geht, dann ist das eh Murks (Krampf ist das eh...)

D*B

[dschroeder]

Es geht hierbei ja nicht immer um Datenstrukturen, die den Datensatz abbilden. Ich meine Datenstrukturen, die ich im Programm deklariere, um z.B. brutto, netto und mwst abzubilden:

dcl-ds summeDS qualified:
   brutto packed(15:2);
   netto packed(15:2);
   mwst packed(15:2);

Da würde ich schon gerne so etwas schreiben wie:
exec sql select sum(xx_brutto) into :summeDS.brutto from tabellexx;

In dieser Konstellation hilft mir eine View nicht weiter, denke ich.

[BenderD]

... was hast Du gegen
create view AufttragSumme (oder whatever) as
select sum(xx-brutto) as brutto, sum(...) as netto, sum(...) as mwst
from...

dann wird deine SummeDS zur e ds und du füllst die dann mit select * from AuftragSumme into ...

die dahinter stehende Ideen sind Entkoppelung (verwende niemals < never - ever> eine Table im Programm) und Zentralisierung (select sum(..) ist Datenbanklogik!!!) man gewinnt dadurch die Möglichkeit weitgehende strukturelle Änderungen in der Datenbank vorzunehmen, ohne dass dei Anwendung tangiert ist und QS wird einfacher, da die Prgramme im Datenbankzugriff realtiv stumpf sind.

D*B

[dschroeder]

... was hast Du gegen
create view AufttragSumme (oder whatever) as
select sum(xx-brutto) as brutto, sum(...) as netto, sum(...) as mwst
from...

dann wird deine SummeDS zur e ds und du füllst die dann mit select * from AuftragSumme into ...

die dahinter stehende Ideen sind Entkoppelung (verwende niemals < never - ever> eine Table im Programm) und Zentralisierung (select sum(..) ist Datenbanklogik!!!) man gewinnt dadurch die Möglichkeit weitgehende strukturelle Änderungen in der Datenbank vorzunehmen, ohne dass dei Anwendung tangiert ist und QS wird einfacher, da die Prgramme im Datenbankzugriff realtiv stumpf sind.

D*B

OK, gebe mich geschlagen. Ich kann deine Argumentation nachvollziehen.

[andreaspr@aon.at]

Bei uns (7.2) funktioniert das ganze ohne Probleme.

exec sql select sum(xx_brutto) into :summeDS.brutto from tabellexx;

Ich bilde mir auch ein schon vor früher 6.1 und 7.1 solche Konstrukte schon mal verwendet zu haben.
Ich meine DS oder Teile bzw. Felder einer DS im SQL zu verwenden.
"Leider" kann ich das aber nicht mehr testen da bei uns alles schon auf 7.2 hochgezogen ist.

[BenderD]

Bei uns (7.2) funktioniert das ganze ohne Probleme.

exec sql select sum(xx_brutto) into :summeDS.brutto from tabellexx;

Ich bilde mir auch ein schon vor früher 6.1 und 7.1 solche Konstrukte schon mal verwendet zu haben.
Ich meine DS oder Teile bzw. Felder einer DS im SQL zu verwenden.
"Leider" kann ich das aber nicht mehr testen da bei uns alles schon auf 7.2 hochgezogen ist.

... so, so, unter V6R1 free form declarations

viele Grüße aus Alsheim

D*B

[andreaspr@aon.at]

... so, so, unter V6R1 free form declarations

viele Grüße aus Alsheim

D*B

Bezogen auf die ursprüngliche Aussage:

Wenn ich die DS mit einer normalen D bzw. I Karte definiere, dann geht es...

Ja, mit einer DS konnte ich das auch schon früher ...

[dschroeder]

Bei uns (7.2) funktioniert das ganze ohne Probleme.

exec sql select sum(xx_brutto) into :summeDS.brutto from tabellexx;

Ich bilde mir auch ein schon vor früher 6.1 und 7.1 solche Konstrukte schon mal verwendet zu haben.
Ich meine DS oder Teile bzw. Felder einer DS im SQL zu verwenden.
"Leider" kann ich das aber nicht mehr testen da bei uns alles schon auf 7.2 hochgezogen ist.

Wenn das wirklich klappt, wäre das natürlich schön. Ich muss dass nochmal ausprobieren. Da wir Profound verwenden, können wir in Bildschirmdateien lange Feldnamen verwenden. Die werden intern in einer Datenstruktur im RPG-Programm verarbeitet. Wenn unser Recordformat im Bildschirm f1 heißt, greifen wir z.B. über "f1.bruttobetrag" auf das Bildschirmfeld zu. Das Feld in der Datenstruktur konnten wir (zumindest vor einiger Zeit) nicht direkt mit embedded SQL füllen. Vielleicht geht das ja jetzt. (Oder wir hatten damals ein anderes Problem).

Dieter

[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;