Array Dinâmico

Acredito que esta solução só está disponível para o OE 10.2A ou superior.

Att.

Cleber Trombini

Para progress 10.1A eu citei uma procedure que recebe como parâmetro um campo que é extent sem definição do tamanho.

Quem chamar a procedure enviará um array já com o tamanho definido.

No Progress 10.2B já tem como setar um aray dinamicamente, segue exemplo do Help do Progress.

DEFINE VARIABLE x AS INTEGER NO-UNDO EXTENT.
MESSAGE EXTENT(x).
EXTENT(x) = 4.
MESSAGE EXTENT(x).


Abraço

Senhores, segue uma opção ...

Código:

DEF VAR clistachr AS CHAR. 
DEF VAR hextent   AS HANDLE EXTENT.
DEF VAR cnome     AS CHAR.
DEF VAR icont     AS INTE.

/* Verificacoes para o nome */
ASSIGN 
    clistachr = "=,%,&,#,+,?,',','.',/,;,[,],!,@,$,(,),*,|,\,:,<,>"     
    cnome     = "AAA BBB ! CCC".

EXTENT(hextent) = NUM-ENTRIES(clistachr).

DO icont = 1 TO EXTENT(hextent):
    IF INDEX(cnome,ENTRY(icont,Clistachr)) <> 0 THEN DO: 
        MESSAGE "O Caracter " + TRIM(ENTRY(icont,clistachr)) + " nao é permitido! "
                   VIEW-AS ALERT-BOX. 
        RETURN ERROR.
    END.
END.

Espero ter ajudado....

Vlw

:mrgreen: Usa uma temp-table! hehe...