Menu principal                 [Fechar]
Introdução
Divisões
Identification Division
Environment Division
Data Division
Procedure Division
Comandos CICS
VSAM - File Status
Quadros importantes
SQL - Structured Query Language
Outros programas
Rotinas prontas
Palavras reservadas
Introdução ao Oracle
Sites de busca
Sites interessantes
Meu e-mail

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.