Failed While loops

[Madeleine D.]

Having a weird issue that I hope somebody can help with.

On HP/UX setup, I'm trying to do recursive While Retrieving loops in
Quick to remove various layers of parts.

I've done a lot of this type of thing before, but in this instance, the
first while loop always exits after the code returns from the 2nd While.

The Retrievals are in a ghost Quick file of their own, with an alias for
each instance of the file.

So:

Ghost Screen WP375QC is called to remove the first part.

Procedure DELETE_1 accesses PARTS_1, deletes part #1 and makes a call to
DELETE_2, passing the component part.

Procedure DELETE_2 accesses PARTS_2, deletes the component and makes a
call to DELETE_3, etc.


I've tried different indices, aliases, using Open and Update, etc.  If I
remove the call for DELETE_1, the first While loop proceeds as expected.

All file instances are Designer.

The only thing I'm not sure about is that we're using indexed files,
instead of relational.  Could that be the problem???  I have an older
bit of code that did the same kind of recursive deletes, but the file in
question was Oracle.

Any help is appreciated.

Madeleine D.