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.

Code:
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