Embora especialistas previram há muito tempo a morte de COBOL, o Common Language Business- Oriented para programação de computadores , permanece amplamente utilizado desde o início de 2011. O poder de permanência da língua , que remonta a 1959, nada menos do que notável . Se você trabalha com COBOL, os relatórios de negócios criadas precisam de informações data atual para a impressão de títulos e recuperar dados. Um mecanismo construído em COBOL permite recuperar a data atual com uma única instrução ACEITAR. Depois de recuperar as informações de data cru, colocá-lo em um formato adequado para o seu relatório . Instruções
1
Criar um registro de dados de 01- nível na seção " Armazenamento de Trabalho " para receber a data do sistema . O registro deve reservar oito dígitos decimais dedicados para a data atual , com um ano de quatro dígitos seguido do mês e dia com dois dígitos cada. Você pode chamar esse registro " Todays - atual -Date ", por exemplo . Dê o ano, mês e dia subcampos nomes como " Current- Ano", " Current- Mês " e " Current- Day ".
2
Criar um registro de data no cabeçalho do seu relatório com o mês , dia e ano sub-campos dispostos em seu formato de data preferido . Os tipos de campo deve ser de caráter ou numérico. Entre os campos de mês e dia , inserir uma única personagem com um traço ou barra em uma cláusula "Valor". Faça o mesmo para os campos de dia e ano. Você pode chamar seus campos de relatório " Rumo - Dia ", "Título - Mês " e "Título anos . "
3
Adicione as seguintes linhas a uma rotina de limpeza em seu programa de "Procedimento " divisão: .
Aceitar Todays -Current - Date De
Mover atual anos para Heading anos
Mova atual meses para Heading meses < br. . >
Mova atual - dia para a rubrica -Day.
Isto coloca as informações de data em seu título relatório . O relatório irá imprimir a data correta com a formatação preferido.