|
Post by alincon on Oct 17, 2020 21:18:15 GMT -5
I am building an index file from the records in a random file. I don't want to include records than I have flagged with dept code = '99' I plan to reuse those records for future record 'additions' This code, run only once per program execution, seems to work. Any comments?
r.m.
empRecCtr = lof(#perFileNew) / record length
[MakePerFileIndex] for n = 1 to empRecCtr
get #perFileNew, n
emps$(n,2) = sect$
emps$(n,4) = lz$(n,3) 'record number
emps$(n,1) = dept$
emps$(n,3) = name$
if dept$ = "99" then
n99 = n99 + 1
end if
next
sort emps$(),1,empRecCtr,1 'dept 99 recs sort to end
empRecCtr = empRecCtr - n99
|
|