BoxDialog

Caixa de diálogo.

Sintaxe

BoxDialog
[ TITLE mensagem ]
[ LINE linha ]
[ COLUMN coluna ]
[ COLOR código-da-cor ]
[ CANCEL;indicador-de-cancelamento ]
{ CAPTION(1...10) texto [ DATA(1...10) valor-inicial;variável-de-retorno SIZE(1...10) tamanho ] | KEY(1...10) código-de-tecla }
[ PIC(1...10) máscara | [ PUSH-BUTTON(1...10) ]
[ SECURE(1...10) ]
[ PROTECTED(1...10) ]
[ AUTO(1...10) ]
[ NUMERIC(1...10) ] [ BLANK(1...10) ]

Argumentos

mensagem

Título da janela de até 78 caracteres.

linha

Linha de posicionamento da janela.

coluna

Coluna de posicionamento da janela.

código-da-cor

Indica o código da cor (CWNCOR.CPY) a ser usada na janela.

indicador-de-cancelamento

Variável de 1 byte que recebe o valor "Y" quando usuário fechar a janela sem se importar com o preenchimento correto dos dados.

Declaração de campos (de 1 até 10)

texto

Texto de até 30 caracteres que identifica o campo para o usuário.

valor-inicial

Valor inicial do campo.

variável-de-retorno

Variável de até 50 bites que receberá o retorno digitado pelo usuário.

tamanho

Indica o tamanho de variável-de-retorno.

código-de-tecla

Indica o código de retorno para push-button.

máscara

PICTURE de edição segundo a convenção da linguagem COBOL.

PUSH-BUTTON

Seleciona opção de push-button.

SECURE

Habilita a opção de campo de senha. Serão exibidos asteriscos (*) ao invés dos dados reais existentes no campos.

PROTECTED

Desabilita a alteração de dados, o campo servirá apenas para exibição.

AUTO

Habilita a opção de aceite automático. Quando o campo estiver totalmente preenchiso o cursor passará para o próximo sem a necessidade de se teclar [tab] ou [enter].

NUMERIC

Define que o campo deve aceitar somente dados numéricos.

BLANK

Habilita a função BLANK WHEN ZEROS para que campos numericos exibam espaços quando estiverem totalmente preenchidos com zeros.

Observações

A acentuação deve ser codificada com a página de código 850, os processadores de tela se encarregam de traduzir para o codificação apropriada a plataforma de execução:

Exemplo

Codificação COBOL

EXEC COBOLware BoxDialog
           TITLE "Dados da música"
           LINE 10 COLUMN 15
           CAPTION(1) "Artista"
                                   DATA(1);artista
                                   SIZE(1) 30
           CAPTION(2) "Nome"
                                  DATA(2);titulo
                                  SIZE(2) 50
           CAPTION(3) "Minutos"
                                  DATA(3);tempo
                                  SIZE(3) 3
                                  NUMERIC(3)
                                  BLANK(3)
END-EXEC

Efeito no modo gráfico

Efeito no modo texto