Satz auf Änderung vergleichen

[dino]

Ich möchte Datensätze gleicher Dateien in verschiedenen Bibliotheken auf Unterschiede prüfen. Muss ich etwa jedes Feld vergleichen? In alten RPGII-Zeiten konnte man ein Feld = Satzlänge definieren und so nur einen Vergleich pro Satz durchführen.

[Pikachu]

Das geht mit externen Datenstrukturen. Aber Vorsicht: Dadurch werden gepackte Felder dieser Formate als gezonte Felder ins Programm geholt!

DDS1            E DS                  EXTNAME(Format1)
DDS2            E DS                  EXTNAME(Format2) 

[B.Hauser]

Aber Vorsicht: Dadurch werden gepackte Felder dieser Formate als gezonte Felder ins Programm geholt!

Nein! Dadurch werden nur die Felder so ausgegeben wie sie definiert sind, d.h. gezonte Felder als gezont und gepackte Felder als gepackt.
Wird ohne externe Datenstrukturen gearbeitet werden gezonte Felder in gepackte Felder konvertiert.
Gepackte Felder werden nur dann in gezonte Felder konvertiert, wenn diese ohne Definition (Felder werden nur aufgelistet) in internen Datenstrukturen verwendet werden.

Birgitta

[Pikachu]

Oh, so war das. Aber dennoch Vorsicht: Durch die Definition einer externen Datenstruktur werden einige Felder unter Umständen nicht mehr als gepackte sondern als gezonte Felder ins Programm geholt. Das ist eine Fehlerquelle, wenn man diese Felder zum Beispiel als Parameterfelder bei Aufrufen anderer Programme nutzt.

Nein! Dadurch werden nur die Felder so ausgegeben wie sie definiert sind, d.h. gezonte Felder als gezont und gepackte Felder als gepackt.
Wird ohne externe Datenstrukturen gearbeitet werden gezonte Felder in gepackte Felder konvertiert.
Gepackte Felder werden nur dann in gezonte Felder konvertiert, wenn diese ohne Definition (Felder werden nur aufgelistet) in internen Datenstrukturen verwendet werden.

Birgitta

[Fuerchau]

Wie Birgitta schon sagte:
Definierst du eine DS aus einer externen Datei werden gepackte Felder auch als solche definiert!
Dass kannst du im Spool sehr schön durch die Definition des Feldtyps "P" sehen.

Ein Problem ist hier eher die Definition von "internen" Datenstrukturen die aus DSPF/PRTF resultieren, da diese immer als Zoned definiert werden.

Durch die Namensgleichheit der Felder zwischen PF/LF und DSPF/PRTF spart man sich ja die Moves, was allerdings wieder dazu führt, dass nun die PF/LF-Felder der internen Strukturen auch als Zoned definiert werden wenn sie nicht explizit als externe Struktur angelegt werden.
Dies führt dann natürlich bei Parameterübergaben zu den benannten Problemen.

[dino]

Danke für die Info`s.

[B.Hauser]

Willst Du nur wissen, ob alle Felder gleich sind, oder musst Du wissen welche Felder abweichen?

Im ersten Fall, definierst Du externe Datenstrukturen, liest die Sätze in die Datenstrukturen ein und vergleichst diese.

FMYFILE01  IF   E           K DISK    ExtFile('MYLIB1/MYFILE')
F                                     Rename(MYFMT: MYFMT01)    
FMYFILE02  IF   E           K DISK    ExtFile('MYLIB2/MYFILE')
F                                     Rename(MYFMT: MYFMT02)    

D DSMYFILE01      DS                   LikeRec(MYFmt01)    
D DSMYFILE02      DS                   LikeRec(MYFmt02)    
 /Free
    Chain (MyKey1: MyKey2) MyFile01 DSMyFile01;
    Chain (MyKey1: MyKey2) MyFile02 DSMyFile02;

    If     %Found(MyFile01) = *On 
      and %Found(MyFile02) = *On
      and DSMyFile01 = DSMyFile02;
      //Sätze gleich
    EndIf;

Birgitta