Progress - Donde colocar el "BY" !?

Buenoa dias..... tengo este código:

FOR EACH NoNomPer where
NoNomPer.Cocia = vsicocia and
NoNomPer.Cosuc = vsicosuc and
...... ,

EACH Noperson where NoPerson.sepersona = NoNomPer.sepersona NO-LOCK ,
EACH NoTiprec where ...... :

Que pasa!?... que necesito meter un by tanto para NoNomPer como para Noperson... Como hago? porque me arroja mensajes de error.

En NoNomPer es: BY NoNomPer.NuFicha
En Noperson es: BY NoPerson.Nbapellido

Por favor, alguna sugerencia??

El BY se mete al final de la sentencia, por lo que quedaría así:

FOR EACH NoNomPer where NoNomPer.Cocia = vsicocia
and NoNomPer.Cosuc = vsicosuc
and ...... ,
EACH Noperson where NoPerson.sepersona = NoNomPer.sepersona
NO-LOCK ,
EACH NoTiprec where ...... by nonomper.nuficha by noperson.nbapellido:

Ok, pero si yo hago eso, en algun lugar del codigo tengo esto:

IF FIRST-OF(NoNomPer.Informapago) THEN DO:

No lo puedo quitar porque los necesito.

Lo unico que yo quiero es ordenar tanto alfabeticamente como por numero de ficha.

Si yo hago esto:
EACH NoTiprec where ...... by nonomper.nuficha by noperson.nbapellido:

Donde meto los break by que estan al final de todos los each?????

Antes del primer BY, y sólo necesitas meterlo una vez. Ejemplo:

BREAK BY nonomper.nuficha BY noperson.nbapellido.

ademas de colocarlos antes del DISPLAY

gracias, preguntas y sugerencias
[email protected]