-
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.
-
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;
-
bzw. in diesem Fall:
exec sql fetch mein_cursor into :ds_auftrag.zon_fld2;
-
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.
-
Und das funktionierte auch schon mit IBM i 5.4 so.
-
Laut IBM gibts dcl-ds in RPG aber erst ab 7.1 per PTFs ...
Zitat von andreaspr@aon.at
Und das funktionierte auch schon mit IBM i 5.4 so.
-
Also "dcl-ds" gabs doch erst mit V7? Gibt's da noch ein PTF für V5R4?
-
Nein, kein PTF. War ein Missverständnis meinerseits.
-
Also, ich habe mal alles nachgezogen, und folgendes hat bei mir ebenfalls funtioniert (V7R2) :
Code:
dcl-ds myDS;
FLD1 CHAR(14) ;
FLD2 CHAR(30) ;
end-ds;
...
EXEC SQL select f1, f2 into :myDS from file ;
Was nicht geht!
Code:
dcl-ds myDS;
extname(file)
end-ds;
...
EXEC SQL select * into :myDS from file ;
Finde das reichlich seltsam...
-
Passt denn deine SQL-Selektion genau zu myDS? Falls du join verwendest, hat dein select * eventuell mehr Felder als dein myDS.
Falls das so ist, könntest du es mit select meineDatei.* into :myDS versuchen.
-
Zitat von ExAzubi
Was nicht geht!
Code:
dcl-ds myDS;
extname(file)
end-ds;
...
EXEC SQL select * into :myDS from file ;
Finde das reichlich seltsam...
Was steht denn im Spool?
-
Die Definition der externen Datenstruktur ist ja auch nicht korrekt!
Das bekommst Du so auch in reinem RPG so nicht umgewandelt.
Das Semi Colon nach MyDS muss weg und file muss in Hochkommata und in Großbuchstaben hinterlegt werden.
Code:
DCL-DS MyDS ExtName('FILE') Inz End-DS;
Birgitta
Similar Threads
-
By Isabella Pridat-Zapp in forum Archiv NEWSboard Events
Antworten: 0
Letzter Beitrag: 10-09-15, 12:50
-
By philsturm in forum NEWSboard Programmierung
Antworten: 6
Letzter Beitrag: 05-09-14, 09:09
-
By AS400.lehrling in forum Intern - Hilfe - Feedback - Tests-Forum
Antworten: 1
Letzter Beitrag: 13-11-13, 23:54
-
By Kirsten Steer in forum Archiv NEWSblibs
Antworten: 0
Letzter Beitrag: 06-06-02, 08:59
-
By lrmeyer in forum IBM i Hauptforum
Antworten: 10
Letzter Beitrag: 05-03-02, 07:38
Tags for this Thread
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks