LikeRec oder Overlay oder ganz was anderes ?

[B.Hauser]

Angenommen die 20 Felder aus der Datenbank Datei heißen xxFld1 - xxFld20 und die Felder in der Display File heißen DspfFld01 - DspFFld20 kann wie folgt vorgegangen werden:
Die Datei-Felder werden in einer Datenstruktur hinterlegt und mit einer Feldgruppe überlagert.
Dabei ist keinerlei Länge-Angaben notwendig!!! Überlagerte Felder sind allein durch die Überlagerung definiert und Felder, die in einer Datei in den F-Bestimmungen definiert wurden sind ebenfalls definiert. Werden unqualifizierte Datenstrukturen verwendet, werden die Felder automatisch beim Lesen gefüllt und beim Schreiben fortgeschrieben.

D DSDspf          DS                                              
D   DspfFld01                                                     
D   DspfFld02                                                     
D   DspfFld03                                                     
D                                                                 
D   DspfFld19                                                     
D   DspfFld20                                                     
D   FgDspF                            Like(DspfFld01) Dim(20)     
D                                     overlay(DSDspf)             
                                                                  
D DSDBFile        DS                                              
D   XXFld1                                                       
D   XXFld2                                                       
D   XXFld3                                                       
D                                                                 
D   XXFld19                                                       
D   XXFld20                                                       
D   FGDBFile                          Like(XXFld1) Dim(20)       
D                                     overlay(DSDBFile)           
                                                                  
 /Free      
     Read DBFile;                                                      
     FgDspF = FgDBFile;
     Exfmt DSPF;
     //Eingabe-Prüfung
     FgDBFile = FgDSPF;
     Update DBFile;  
 /End-Free 

Birgitta