Object

Declaração de objetos de interface.

Sintaxe

Object DROP
        | { { COMBO-BOX | LIST-BOX }
             FIELD item-de-tela
             LINE linha
             COLUMN coluna
             WIDTH colunas
             HEIGHT linhas
             { PROVIDER provedor [ WORK-AREA comunicação ]
                 | { [ LEFT(1...100) elemento-esquerdo ] [ RIGHT(1...100) elemento-direito ] }
             { [ LEFT-WIDTH largura-visível-da-coluna-esquerda ]
               [ RIGHT-WIDTH largura-visível-da-coluna-direita ] }
               [ NOEDIT ]
               [ ORDER-LEFT | ORDER-RIGHT ]
               [ RETURN-LEFT | RETURN-RIGHT ] }
        | { PUSH-BUTTON
              CAPTION texto [ IMAGE bitmap ]
            [ LINE linha ]
              [ COLUMN coluna ]
              [ WIDTH colunas ]
              [ HEIGHT linhas ]
              [ KEY código-de-retorno ]
              [ TAB-OFF | TAB-ON ]
              [ SMALL | FONT nome-da-fonte BOLD FIXED ITALIC STRIKE-OUT UNDERLINE
                                FONT-WIDTH largura-da-fonte
                                  FONT-HEIGHT altura-da-fonte ] }
        | { GROUP
               [ CAPTION texto ]
               [ LINE linha ]
               [ COLUMN coluna ]
               [ WIDTH colunas ]
               [ HEIGHT linhas ]
               [ NO3D ] }
       | { VALIDATE PROGRAM validador USING campos
            FIELD { campa-a-validar | ANY }
            [ CURSOR campo-posicionado ] }
       | { TEXT CAPTION texto
             [ LINE linha ]
             [ COLUMN coluna ]
             [ COLOR codigo-da-cor ]
             [ PIXEL-WIDTH largura--do-texto-em-pixels ]
             [ FONT nome-da-fonte BOLD FIXED ITALIC STRIKE-OUT UNDERLINE
               FONT-WIDTH largura-da-fonte
               FONT-HEIGHT altura-da-fonte ] }
      | { SCROLL { VERTICAL HEIGHT linhas | HORIZONTAL WIDTH colunas } THUMB percentual
             [ LINE linha ]
             [ COLUMN coluna ]
[ KEY código-de-retorno ]
             [ COLOR codigo-da-cor ] }

Argumentos

DROP

Elimina todos os objetos declarados.

Exemplo

EXEC COBOLware Object DROP
END-EXEC

COMBO-BOX Lista de seleção visível somente quando em foco. LIST-BOX Lista de seleção visível . item-de-tela Nome da variável de tela referenciada na SCREEN SECTION ou em um comando ACCEPT posicionado que recebe o retorno da seleção. linha Linha de posicionamento da lista na janela. coluna Coluna de posicionamento da lista na janela. colunas Largura da lista janela em colunas. linhas Quantidade de itens visíveis na seleção. provedor Nome do módulo COBOL de apoio especialmente preparado para fornecer os elementos selecionáveis na lista em função de uma base de dados. comunicação Variável de até 50 bytes reservada para passagem de parâmetros para o provedor permitindo definir critérios de seleção. elemento-esquerdo Elemento (até 100 de até 80 bytes cada) da coluna da esquerda. elemento-direito Elemento (até 100 de até 80 bytes cada) da coluna da direita. largura-visível-da-coluna-esquerda Tamanho em bytes (0 a 80) da largura do elemento da coluna da esquerda. largura-visível-da-coluna-direita Tamanho em bytes (0 a 80) da largura do elemento da coluna da direita. NOEDIT Não permite que seja digitado conteúdo no ENTRY-FIELD, aceitando somente seleção. ORDER-LEFT ou ORDER-RIGHT Determina por qual coluna a lista deve estar ordenada. RETURN-LEFT ou RETURN-RIGHT Determina qual coluna deve retornar em item-de-tela.
Exemplo
WORKING-STORAGE SECTION. 77 estado-civil PIC 9(001) VALUE 2. PROCEDURE DIVISION. INICIO. EXEC COBOLware Object COMBO-BOX LINE 12 COLUMN 15 WIDTH 10 HEIGHT 3 LEFT(1) "1" RIGHT(1) "Solteiro" LEFT(2) "2" RIGHT(2) "Casado" LEFT(3) "3" RIGHT(3) "Viúvo" LEFT(4) "4" RIGHT(4) "Desquitado" LEFT(5) "5" RIGHT(5) "Divorciado" FIELD estado-civil RIGHT-WIDTH 10 ORDER-RIGHT RETURN-LEFT END-EXEC ACCEPT estado-civil LINE 12 COLUMN 15 WITH UPDATE SIZE 10
Efeito no modo gráfico	Efeito no modo texto

PUSH-BUTTON Declara botões de seleção. texto Texto a ser exibido no botão sendo que o caractere "~" indica que o caractere seguinte servirá de mnemônico de atalho. bitmap Nome de arquivo de figura no formato bitmap para decorar o push button em substituição a texto no modo gráfico. linha Linha de posicionamento do botão. coluna Coluna de posicionamento do botão na janela. colunas Largura do botão em colunas se obtido será assumido o suficiente para comportar texto. linhas Altura do botão em linhas. Se omitido será assumido o valor 1. código-de-retorno Valor a ser retornado no ESCAPE KEY quando o botão for selecionado. TAB-OFF ou TAB-ON Indica se o botão deve ser considerado na navegação do cursor. SMALL Indica botão reduzido com a altura de meia linha no modo gráfico e sem moldura no modo caractere. nome-da-fonte Nome de fonte instalada no Windows, exemplos: "Arial", "Currier New" e "Impact". BOLD Seleciona negrito, Exemplo. FIXED Seleciona formato fixo, `Exemplo`. ITALIC Seleciona Itálico, Exemplo. UNDERLINE Seleciona Sublinhado, Exemplo. STRIKE-OUT Seleciona riscado, ~~Exemplo~~. largura-da-fonte Largura do caractere em pixels. altura-da-fonte Altura do caractere em pixels.
Exemplo
EXEC COBOLware Object PUSH-BUTTON CAPTION "~Processar" LINE 23 COLUMN 03 KEY 101 TAB-OFF END-EXEC ACCEPT TELA-DADOS ACCEPT tecla FROM ESCAPE KEY IF tecla = 101 PERFORM PROCESSAR END-IF
Efeito no modo gráfico	Efeito no modo texto

GROUP Desenha um quadrilátero delimitador. Os campos exibidos nesta área, cujos nomes iniciarem com CWRADIO, serão tratados como radio-buttons. Quando um deles for ligado os demais serão desligados. Já os campos iniciados com CWCHECK permitem seleções múltiplas desvinculadas da existência de um GROUP. texto Frase de identificação do grupo. linha Linha de posicionamento do grupo na janela. coluna Coluna de posicionamento do grupo na janela. colunas Largura do grupo em colunas. linhas Altura do grupo em linhas. NO3D Desabilita o efeito 3D no modo gráfico.
Exemplo
SCREEN SECTION. 01 CTAC-LIT-TESTE. 05 LINE 18 COLUMN 21 VALUE "Masculino". 05 LINE 18 COLUMN 35 VALUE "Feminino". 01 CTAC-VAR-TESTE. 05 LINE 18 COLUMN 18 PIC X USING CWRADIO-SEXO1. 05 LINE 18 COLUMN 32 PIC X USING CWRADIO-SEXO2. PROCEDURE DIVISION. EXEC COBOLware Object GROUP LINE 17 COLUMN 16 WIDTH 29 CAPTION "Sexo" END-EXEC DISPLAY CTAC-LIT-TESTE CTAC-VAR-TESTE ACCEPT CTAC-VAR-TESTE IF CWRADIO-SEXO1 = 1 PERFORM PALETO ELSE PERFORM VESTIDO END-IF
Efeito no modo gráfico

Efeito no modo texto

VALIDATE Declara procedimentos de validação de dados campo-a-campo durante um ACCEPT de tela com múltiplos campos. validador Nome do programa COBOL a ser invocado para validação de dados da tela. O validador será invocado pelo processador de tela passando 3 parâmetros pela LINKAGE SECTION:
ERRO	PIC X.	O validador deve retornar 1 quando detectar erro.
DADOS	PIC X(2000)	campos
FIELD	PIC X(30)	Nome do campo em foco.
O validador pode alterar o valor criticado que será refletido imediatamente no entry-field.. campos Lista dos campos da tela a serem enviados para o validador pela LINKAGE SECTION. campa-a-validar ou ANY Nome do campo cujo foco deve ativar o validador. ANY indica que a validação deve ser invocada para todos os campos. campo-posicionado Nome do campo para onde deve ir o foco em caso de erro. Se omitido o foco permanece no campo que apresentou o erro.
Exemplo
SCREEN SECTION. 01 CTAC-LIT-TESTE. 05 LINE 02 COLUMN 03 VALUE "Código". 05 LINE 04 COLUMN 03 VALUE "Descrição". 05 LINE 06 COLUMN 03 VALUE "Preço". 01 CTAC-VAR-TESTE. 05 LINE 02 COLUMN 13 PIC Z(006) USING CODIGO. 05 LINE 04 COLUMN 13 PIC X(030) USING descricao. 05 LINE 06 COLUMN 13 PIC ZZ.ZZZ.ZZ9,99 USING preco. PROCEDURE DIVISION. INICIO. EXEC COBOLware Object VALIDATE PROGRAM "validador" USING descricao preco FIELD ANY END-EXEC DISPLAY CTAC-LIT-TESTE CTAC-VAR-TESTE ACCEPT CTAC-VAR-TESTE
Efeito no modo gráfico

Efeito no modo texto

TEXT Exibe um texto no momento do ACCEPT. texto Frase de até 80 caracteres. linha Linha de posicionamento de texto na janela. coluna Coluna de posicionamento de texto na janela. código-da-cor Número da cor conforme a tabela CWNCOR.CPY. largura-do-texto-em-pixels Dependendo da fonte selecionada, a largura dos caracteres pode ser variável por isso nem sempre é possível ajustar automaticamente a largura do texto, nestes casos, o ajuste pode ser feito manualmente com o preenchimento deste parâmetro. nome-da-fonte Nome de fonte instalada no Windows, exemplos: "Arial", "Currier New" e "Impact". BOLD Seleciona negrito, Exemplo. FIXED Seleciona formato fixo, `Exemplo`. ITALIC Seleciona Itálico, Exemplo. UNDERLINE Seleciona Sublinhado, Exemplo. STRIKE-OUT Seleciona riscado, ~~Exemplo~~. largura-da-fonte Largura do caractere em pixeis. altura-da-fonte Altura do caractere em pixeis.
EXEC COBOLware Object TEXT CAPTION "Bom dia amigo" LINE 23 COLUMN 03 END-EXEC
Efeito no modo gráfico	Efeito no modo texto

SCROLL

Declara barra de rolagem.

VERTICAL

Indica que a barra de rolagem deve ser do tipo vertical.

linhas

Tamanho da barra vertical em linhas.

HORIZONTAL

indica que a barra de rolagem deve ser do tipo horizontal.

colunas

Tamanho da barra horizontal em colunas.

percentual

Campo numérico de 5 dígitos no formato DISPLAY que indica a posição do cursor da barra de rolagem em percentuais inteiros.

linha

Linha de posicionamento da barra de rolagem.

coluna

Coluna de posicionamento da barra de rolagem.

código-de-retorno

Valor a ser retornado no ESCAPE KEY quando o percentual for alterado pelo acionamento da barra de rolagem.

código-da-cor

Número da cor da barra de rolagem conforme a tabela CWNCOR.CPY.

EXEC COBOLware Object SCROLL HORIZONTAL WIDTH 80
THUMB posicao
LINE 25 COLUMN 01
END-EXEC

Efeito no modo gráfico:

Efeito no modo texto: