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

[BenderD]

... ich staune immer wieder wieviel Gehirnschmalz manche Leute verbraten um unleserliche Programme zu schreiben.

D*B

[B.Hauser]

Manchmal würde es aber auch nichts schaden, wenn manche Leute sich (mehr) Gedanken darüber machen würden, wie man den Code so schreiben kann, dass er auch in einem halben Jahr noch/wieder lesbar ist.

Birgitta

[Fuerchau]

Und noch ne Variante:
In den I-Bestimmungen der Datenbank-Datei die Felder einfach passend zur DSPF umbenennen.

Das ganze funktioniert allerdings nur, wenn die Definition identisch ist.

[holgerscherer]

Manchmal würde es aber auch nichts schaden, wenn manche Leute sich (mehr) Gedanken darüber machen würden, wie man den Code so schreiben kann, dass er auch in einem halben Jahr noch/wieder lesbar ist.

Birgitta

Dafür gibts doch Programmgeneratoren (mit lesbarem Meta-Code), die dann ruhig unleserliches RPG produzieren können ;-)

-h

[Fuerchau]

Jepp, das hatte ich früher mal mit Signon, nach Analyse der generierten Quellen entschieden wir uns damals doch für native Programmierung.
Die Programm waren dann erheblich leichter zu warten (vom Ressourcen- und Laufzeit-Bedarf der generierten Objekte mal ganz abgesehen).

[BenderD]

- das Ding hieß SYNON
- die Entscheidung war richtig
- die Begründung der Entscheidung falsch

D*B

Jepp, das hatte ich früher mal mit Signon, nach Analyse der generierten Quellen entschieden wir uns damals doch für native Programmierung.
Die Programm waren dann erheblich leichter zu warten (vom Ressourcen- und Laufzeit-Bedarf der generierten Objekte mal ganz abgesehen).

[Fuerchau]

Stimmt, aber die Begründung war genau diese (nach eingehender Analyse).
Die Planung damals sah 70 AS/400-System Modell F02 mit 4MB Hauptspeicher und 988MB Platte vor.
Hätten wir SYNON behalten, wären die Systeme nicht ausreichend gewesen.
Bei den damaligen Hardwarepreise wären statt 4,5MIO DM ca. 25MIO DM nötig gewesen.

Heute kostet die Hardware ja vergleichbar wenig.

Ansonsten gehört das ja wohl gar nicht mehr zum Thema.