Progress - Identificando registros unicos y diferrentes en consulta (DISTINCT)

FOR EACH SomeTable NO-LOCK WHERE SomeConditions BREAK BY SomeField:

    IF FIRST-OF(SomeField) THEN

        /* Do What You Want With The Record Here */

END.

FOR EACH SomeTable NO-LOCK WHERE SomeConditions BREAK BY SomeField1 BY SomeField2:

    IF FIRST-OF(SomeField1) AND FIRST-OF(SomeField2) THEN

        /* Do What You Want With The Record Here */

END.