Re: Store Record Format in an Array

V5R2

First, sort the file, or use a good logical.

D firstrec    DS                    extname(myfile) qualified
D nextrec     ds                    extname(myfile) qualified
d firstcycle  s               n     inz(*on)
 
clear firstrec;
clear nextrec;
dou %eof(myfile);
read myfile nextrec;
Select;
When %eof(myfile);
  Leave;
When firstcycle;
  firstcycle=*off;
When firstrec=nextrec;
  delete myrec;
endSl;
firstrec=nextrec;
EndDo;
 
Rob Berendt
-- 
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)