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