Re: Free form question

[Booth Martin <booth@xxxxxxxxxxxx>]

Aside from the issue:  a design thought.  Why not a for loop?  Its 
simpler, probably faster, and much clearer to see what is happening. 

 for Dr# = 1 to SizeOfSubfile
 chain(n)  DR#  Filerec;
... do something;
 endfor



Alan Shore wrote:
> I am writing a free form program that I need to chain through the records
> of a sub-file
>
>   Dr# = 0;
>   dou not %found;
>     Dr# += 1;
>     chain(n) (Dr#) Filerec;
>     if %found(File);
>       do something;
>     endif;
>     enddo;
>
>
> Where Filerec is the sub file record in the display file File, but I am
> getting the following compile error
>
> *RNF7702 30      1 A list of key fields is not allowed with program
> described
>                    file.
>
> which is throwing me for a loop.
> I get the same error with
>   chain (Dr#) Filerec;
>
> Anyone know what my problem is?
>
> Thanks in advance
>
>
>
> Alan Shore
>
> NBTY, Inc
> (631) 244-2000 ext. 5019
> AShore@xxxxxxxx
> "If you're going through Hell, keep going" - Winston Churchill
>