Thanks for your observation. I tried this and it worked!!!
FUNCTION PEGAINS
LPARAMETERS CODCOMP
Local repos
SELE RECCMP
=SEEK(CODCOMP,'RECCMP','ind1')
DO WHILE CODCOMP = RECCMP.IDCMP AND !EOF()
IF !ISNULL(CHILDIDCMP)
repos = recno() ******* GOTCHA *******
=PEGAINS(CHILDIDCMP)
goto repos ******* GOTCHA *******

ELSE
? allt(str(IDISM))
ENDIF
SKIP
ENDDO