Quarta, Dezembro 13, 2017

A instrução ACCEPT transfere dados ou informações relacionadas à data do sistema para a área de dados referenciada pelo identificador especificado. Não há edição ou verificação de erro dos dados de entrada.

 

Transferência de dados

Formato 1: transferência de dados: 

Read syntax diagramSkip visual syntax diagram>>-ACCEPT--identifier-1--+----------------------------+--------><
                         '-FROM--+-mnemonic-name-1--+-'  
                                 '-environment-name-'    

 

Formato 1 transfere dados de uma fonte de entrada para o item de dados referenciado pelo identificador-1 (área de recepção). Quando a frase FROM é omitida, o dispositivo de entrada do sistema é assumido.

O formato 1 é útil para situações excepcionais em um programa quando a intervenção do operador (para fornecer uma determinada mensagem, código ou código de exceção) é necessária. O operador deve, evidentemente, ser fornecido com as mensagens adequadas para responder.

O arquivo de entrada deve ser um arquivo de fluxo de bytes (por exemplo, um arquivo consistindo em dados de texto com registros delimitados por um terminador de registro). Você pode criar um arquivo de fluxo de bytes no seu programa COBOL usando arquivo de linha sequencial IO ou com a instrução DISPLAY. (A maioria dos editores de texto também pode ser usada para criar um arquivo de fluxo de bytes.)

O arquivo de entrada não pode ser um arquivo Btrieve ou STL (incluindo arquivos seqüenciais, relativos ou indexados).

Se a fonte da instrução ACCEPT for um arquivo e a área de recebimento for preenchida sem usar o registro completo delimitado pelo terminador de registro, o restante do registro de entrada será usado na próxima instrução ACCEPT para o arquivo. Os caracteres de delimitador de registro são removidos dos dados de entrada antes que os registros de entrada sejam movidos para a área de recebimento.

Se a origem da instrução ACCEPT for um teclado, os dados inseridos no teclado seguido da tecla Enter serão tratados como os dados de entrada. Se os dados de entrada forem mais curtos do que a área de recepção, a área é preenchida com espaços da representação apropriada para a área de recepção.

Identifier-1

A área de recepção. Pode ser:

  • Um item de grupo alfanumérico
  • Um item de grupo nacional
  • Um item de dados elementar de uso DISPLAY, DISPLAY-1 ou NATIONAL

Um item de grupo nacional é processado um item de dados elementares da categoria nacional.

Se o identificador-1 for de uso NACIONAL e a fonte dos dados de entrada for um teclado, a entrada será convertida da página de código nativa (a página de código indicada pelo local de tempo de execução) para a representação de caracteres nacional.

mnemonic-name-1: Especifica o dispositivo de entrada. mnemônica-name-1 deve ser associado no parágrafo ESPECIAL-nomes com um nome meio ambiente. Ver parágrafo-nomes especiais .

environment-name: Identifica a fonte de dados de entrada. Um ambiente de nome a partir dos nomes dados em significados dos nomes ambiente ( Tabela 5 ) pode ser especificado.

ACCEPT com um nome de ambiente usa a origem associada a essa designação de ambiente por atribuição de variável de ambiente no ambiente operacional. Se a variável de ambiente que corresponde ao nome do ambiente COBOL não estiver definida, ACCEPT de SYSIN ou SYSIPT é do dispositivo de entrada lógica do sistema; ACCEPT de CONSOLE é a partir do teclado do usuário. Para mais informações sobre variáveis de ambiente, consulte o COBOL para o guia de programação do Windows .

Se o dispositivo for o mesmo utilizado para instruções READ para um arquivo LINE SEQUENTIAL, os resultados serão imprevisíveis.

 

Transferência de informações relacionadas à data do sistema

Informações do sistema contidas nos itens de dados conceituais data especificada, AAAAMMDD data, dia, dia YYYYDDD, dia da semana, ou TIME, pode ser transferido para o item de dados referenciado pelo identificador-2 . A transferência deve seguir as regras para a instrução MOVE sem a frase CORRESPONDING. Ver declaração MOVIMENTO .

 

Formato 2: Transferência de informações do sistema

>>-ACCEPT--identifier-2--FROM--+-DATE--+----------+-+----------><
                               |       '-YYYYMMDD-' |  
                               +-DAY--+---------+---+  
                               |      '-YYYYDDD-'   |  
                               +-DAY-OF-WEEK--------+  
                               '-TIME---------------'  

Identifier-2

A área de recepção. Pode ser:

  • Um item de grupo alfanumérico
  • Um item de grupo nacional
  • Um item elementar de dados de uma das seguintes categorias:
    • Alfanumérico
    • Editado alfanumericamente
    • Numeric-edited (com o uso DISPLAY ou NATIONAL)
    • nacional
    • Editada nacionalmente
    • numérico
    • Ponto flutuante interno
    • Ponto flutuante externo (com uso DISPLAY ou NATIONAL)

Um item de grupo nacional é processado um item de dados elementares da categoria nacional.

O formato 2 acessa a data atual em dois formatos: o dia da semana ou a hora do dia, como o sistema (que pode ser útil para identificar quando uma execução específica de um programa de objeto foi executada). Você também pode usar o formato 2 para fornecer a data nos títulos e rodapés.

A data e hora atual também pode ser acessado com a função intrínseca CURRENT-DATE, que também suporta valores de ano com quatro dígitos e fornece informações adicionais (ver funções intrínsecas ).

A Historia do cobol

A Historia do cobol

COBOL significa Common Business Oriented Language, isto é, Linguagem Comum Orientada para o Comércio. O Cobol é um subconjunto de palavras da língua inglesa, ou seja, um número limitado de palavras inglesas sujeita a uma sintaxe própria. É uma linguagem que lida com problemas comerciais, envolvendo arquivos de dados de apreciáveis proporções (Seqüências/Vsam/Banco de dados DB2).   História: Criado por um comitê de investigadores de várias instituições civis e governamentais durante o segundo semestre de 1959. As especificações eram em grande parte inspiradas na linguagem de programação FLOW-MATIC inventada pela Grace Hopper - referida como "a mãe da língua COBOL." Em 8 de abril de...

Vagas

Em breve estaremos divulgando vagas de COBOL/CICS/DB2

Camisetas

IDENTIFICATION DIVISION

IDENTIFICATION DIVISION: Possui informações documentais, como nome do programa, quem o codificou e quando essa codificação foi realizada.    PROGRAM-ID nome do programa. (Obrigatório) AUTHOR nome do desenvolvedor. (Obrigatório) INSTALLATION nome da empresa ou local de geração do...

ENVIRONMENT DIVISION

ENVIRONMENT DIVISION: é a segunda divisão de um programa COBOL. Descreve o computador e os periféricos que serão utilizados pelo programa, fazendo ligação com o ambiente operacional onde o programa...

DATA DIVISION

DATA DIVISION: É a terceira divisão de um programa COBOL, descreve os arquivos de entrada e saída que serão usadas pelo programa. Também define as áreas de trabalho e constantes...

PROCEDURE DIVISION

PROCEDURE DIVISION: Contém o código que irá manipular os dados descritos na DATA DIVISION. É nesta divisão que o desenvolvedor descreverá a lógica do programa. Consiste em instruções executáveis ​​usando...

Comandos