O extent eh como se fosse um array no Progress.

DEFINE VARIABLE nome AS CHARACTER EXTENT 10.
DEFINE VARIABLE i    AS INT.

ASSIGN nome[1] = “sl4v3r”.
ASSIGN nome[2] = “sl4v3r2”.

DO i = 1 TO 10:
   message nome[i] VIEW-AS ALERT-BOX.   
END.

abs