Hi Edgard

Try:

Send Rebuild_Constraints to oB_DD

Move False to Found

Send Request_Find of oB_DD First_Record B.File_Number 1

If (Found=False);
Send Clear
Best Regards,

Edgard