Selection List 2

/******************** STATEMENTS**************************************
**
** VIEW-AS SELECTION-LIST (DEFINE VARIABLE...)
** E diferente de um BROWSE. Na SELECTION
** LIST so e possivel valores character,
** uma so coluna e nao ler dados do DB.
**
** LIST-ITEMS (VIEW-AS SELECTION-LIST...)
** Define as linhas da SELECTION-LIST
**
** INNER-CHARS n INNER-LINES n (VIEW-AS SELECTION-LIST...)
** Define a largura e a altura da
** SELECTION-LIST respectivamente.
**
** SORT (VIEW-AS SELECTION-LIST...)
** Ordena alfabeticamente as linhas
** da Selection-list.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim LABEL "&Ok". 
 
DEF VAR s-estados AS CHARACTER  
        VIEW-AS SELECTION-LIST  
        LIST-ITEMS "Bahia", "Pernambuco", "Rio de Janeiro",
                   "Goias", "Mato Grosso do Sul",
                   "Tocantins", "Alagoas", "Mato Grosso",
                   "Parana", "Paraiba", "Rio Grande do Norte",
                   "Rio Grande do Sul", "Espirito Santo",
                   "Sergipe", "Ceara", "Para", "Amazonas",
                   "Maranhao", "Acre", "Sao Paulo"
        INNER-CHARS 30 INNER-LINES 10 SORT
        SCROLLBAR-VERTICAL.     
        
DISPLAY s-estados SKIP bt-fim
          WITH FRAME A CENTERED ROW 3 NO-LABELS.
          
ENABLE ALL WITH FRAME A.

WAIT-FOR CHOOSE OF bt-fim.