Figure 6: Using the %KDS function

FOrdfile   UF   E         K Disk 
D Orderkey         DS                  Likerec(Ordrec:*Key)
 /Free
  Setll %Kds(Orderkey) Ordrec;
  If %Equal;
    Dou %Eof(Ordfile);
      Reade %Kds(Orderkey:2) Ordrec;
  		
    Enddo;
  Endif;
 /End-free