Menu principal                 [Fechar]


Linguagem de programação COBOL - ACCEPT


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.

ACCEPT
Esta declaração torna disponíveis os dados fornecidos pelo sistema operacional ou fornecido diretamente via teclado pelo Usuário. É provável que o Identifier seja uma variável definida na WORKING-STORAGE SECTION.

A declaração ACCEPT transfere dados para um identificador especificado. Não há nenhuma verificação de edição ou erro dos dados de entrada.

A declaração ACCEPT tem dois formatos:



Formatos 1 e 2

Sintaxe do comando ACCEPT

Sintaxe do comando ACCEPT



ACCEPT
Identifier - representa o campo receptor.
A opção DATE obtém a data do sistema. A data está no formato AAMMDD (AnoMêsDia), representando um valor com 6 bytes de comprimento, numérico sem sinal.
A opção DAY obtém o ano do século e o dia do ano. A seu formato é AADDD (AnoDia), representando um valor com 5 bytes de comprimento, numérico sem sinal. Por exemplo, 01 de janeiro de 2006 retorna 06001.
A opção TIME obtém a hora sistema. A seu formato é HHMMSSCC (horas, minutos, segundos e centéssimos de segundo), representando um valor com 8 bytes de comprimento, numérico sem sinal.
A opção DAY-OF-WEEK (ans85-cobol II) obtém o dia da semana. A seu formato é numérico, representando um valor com 1 byte de comprimento, numérico sem sinal. O valor retornado varia de 1 a 7.

  • O valor 1 representa a segunda-feira
  • O valor 2 representa a terça-feira
  • O valor 3 representa a quarta-feira
  • O valor 4 representa a quinta-feira
  • O valor 5 representa a sexta-feira
  • O valor 6 represetna o sábado e
  • O valor 7 representa o domingo.


Exemplo:

WORKING-STORAGE SECTION. *------------------------------------------------------------------ 01 WSS-CAMPOS-AUXILIARES. 05 WSS-DATA-DIA PIC 9(006). *------------------------------------------------------------------ PROCEDURE DIVISION. *------------------------------------------------------------------ ACCEPT WSS-DATA-DIA FROM DATE.