likerec

[Fuerchau]

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.

[jajonowak]

@tobse77
@fuerchau


vielen Dank für die Hilfe !!!!!

werde es entsprechend umstellen.



lg
Hans-Joachim

[B.Hauser]

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).

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