-
likerec
hallo forum,
ich wollte mir etwas tipparbeit ersparen
Fsklmvwl00 uf a e k disk rename(sklmvwp: sklmvw00)
D Rec ds likerec(sklmvw00: *all)
D RecKeyds likerec(sklmvw00: *key)
/free
RecKey.smfkz=smfkz;
RecKey.smart#=smart#;
chain %kds(Reckey) sklmvwl00;
/end-free
der Satz wird gefunden, die felder sind gefüllt, nicht aber die
rec.xxxx - Felder
und hatte mir vorgestellt, das nach dem chain
diese datenstruktur gefüllt ist. leider war dem nicht so.
habe ich nun einen codier- oder denkfehler ?
fragende grüße
Hans-Joachim
-
Guten Morgen,
soweit ich weiß, werden durch das Schlüsselwort likerec lediglich die Feldattribute übernommen, nicht aber die Feldinhalte.
-
A data structure defined with LIKEREC is a qualified data structure.
Wenn du die Felder gefüllt haben willst, dann nimm nicht "likerec" sondern definiere die Struktur wie immer mit "REC E DS EXTNAME(MYFILE)".
-
Ergänzung:
The following example uses prefix ’MYDS.’ to associate the fields in MYFILE with
the subfields of qualified data structure MYDS.
Fmyfile if e disk prefix(’MYDS.’)
D myds e ds qualified extname(myfile)
was natürlich auch mit einer Likerec-DS geht, da diese ja qualified ist.
-
@tobse77
@fuerchau
vielen Dank für die Hilfe !!!!!
werde es entsprechend umstellen.
lg
Hans-Joachim
-
Hallo,
wenn mit LIKEREC oder auch mit EXTFILE und den Schlüssel-Worten QUALIFIED oder PREFIX eine externe Datenstruktur definiert wird, in die der Datensatz ausgegeben werden soll, muss diese Datenstruktur auch beim Lesebefehl angegeben werden. Um den Datensatz aus der Datenstrukrur fortzuschreiben, muss auch bei Update die Datenstruktur angegeben werden.
Auf die Ausgabe in die Datenstruktur kann man nur dann verzichten, wenn die Datenstruktur nicht qualifiziert ist und die Felder gleich heißen (also kein Prefix angegeben wurde).
PHP-Code:
FMYFILE UF A E K DISK
D DSMYFILE DS likeRec(MyFormat) inz
D DSMyKey DS LikeRec(MyFormat: *Key)
/Free
Chain %KDS(DSMyKey) MyFile DSMyFile;
If %Found;
DSMyFile.Fld1 = 123;
........
Update MyFormat DSMyFile;
EndIf;
Birgitta
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