MULTIPLE (VIEW-AS SELECTION-LIST...)

/******************** STATEMENTS**************************************
**
** MULTIPLE (VIEW-AS SELECTION-LIST...)
** Permite que mais de uma linha seja
** selecionada na SELECTION-LIST.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim   LABEL "&Ok". 
DEF BUTTON bt-opcao LABEL "&Opcao Escolhida". 
 
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 MULTIPLE.     
        
DISPLAY s-estados SKIP(1) bt-opcao bt-fim
          WITH FRAME A CENTERED ROW 3 NO-LABELS.
          
ENABLE ALL WITH FRAME A.   

ON CHOOSE OF bt-opcao
   MESSAGE "A UNIDADE FEDERAL ESCOLHIDA FOI:"
       s-estados:SCREEN-VALUE VIEW-AS ALERT-BOX INFORMATION.

WAIT-FOR CHOOSE OF bt-fim.