COBOL - Funções intrínsecas - DAY-TO-YYYYDDD


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

COBOL - Funções intrínsecas - DAY-TO-YYYYDDD
Intrinsic functions - Enterprise COBOL for z/OS 6.3.0

A função DAY-TO-YYYYDDD converte o argument-1 de uma data com um ano de dois dígitos (YYnnn) em uma data com um ano de quatro dígitos (YYYYnnn).
o argument-2 , quando adicionado ao ano no momento da execução, define o ano final de um intervalo de 100 anos, ou janela deslizante do século, na qual o ano do argument-1 cai.

O tipo de função é inteiro.

Se a opção do compilador DATEPROC estiver em vigor, o valor retornado será um campo de data expandida com DATE FORMAT YYYYXXX implícito.

argument-1
Deve ser zero ou um número inteiro positivo menor que 99367.

O tempo de execução de COBOL não verifica se o valor é uma data válida.

argument-2
Deve ser um número inteiro.
Se o argument-2 for omitido, a função será avaliada assumindo que o valor 50 foi especificado.

A soma do ano no momento da execução e o valor do argumento-2 devem ser menores que 10.000 e maiores que 1.699.,/P.

Alguns exemplos de valores retornados da função DAY-TO-YYYYDDD:

Ano atual Valor do argument-1 Valor do argument-2 Valor retornado
2002 10004 -20 1910004
2002 10004 -120 1810004
2002 10004  20 2010004
2013 95005 -10 1995005


© Copyright IBM Corp.