Alterando COR Várias Fill-in

Olá Galera!
Preciso alterar a cor de várias fill-in, mas não queria colocar o comando para cada um, acho que tem uma maneira mais fácil, eu fiz assim:
fi-001:bgcolor = 10.
f2-001:bgcolor = 10.
f3-i001:bgcolor = 10.
f4-001:bgcolor = 10.
f5-001:bgcolor = 10.
.......... e assim por diante até a 35.
tentei fazer de outra forma mas não sei se dá certo, é + ou - assim;

DEF ind AS INT.
DEF i-fil AS CHAR.

DO ind = 1 TO 35.
i-fil = 'fi-' + STRING(i-ind, '999').
i-fil:BGCOLOR = 10.
END.
mas tbem não dá certo.


Alguém pode me ajudar?

Directamente em Progress nunca vi. Penso que não dá.

Olá,
Eu utilizo esta include, não sei se é exatamente o que procura mas acho que esta próximo.

Código:

    DEF VAR h_Group AS HANDLE NO-UNDO.
    DEF VAR h_Field AS HANDLE NO-UNDO.
    DEF VAR i_color AS INTE   INIT 16 NO-UNDO.

    assign i_color = {1}.

    h_Group = FRAME {&FRAME-NAME}:FIRST-CHILD.
    DO WHILE VALID-HANDLE( h_Group ):
        h_Field =  h_Group:FIRST-CHILD.
        DO WHILE VALID-HANDLE(h_Field):
           IF CAN-DO("LITERAL,RADIO-SET,TOGGLE-BOX,SLIDER", h_Field:TYPE) THEN 
           DO:
/*             	 message h_Field:NAME view-as alert-box. */
               ASSIGN h_Field:BGCOLOR = i_color.    
           END. 
           h_Field = h_Field:NEXT-SIBLING.
        END.
        h_Group = h_Group:NEXT-SIBLING.
    END.