brainy

Entiendo que en la rutina BUSCAR2 realizas unas select para sacar los registros que deseas. Es en esa select donde debes filtrar dichos registros. Por otro lado veo que tienes un bucle DO dentro de otro y uno de los dos es innecesario.