COBOL - Funções intrínsecas - YEAR-TO-YYYY


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 - YEAR-TO-YYYY
Intrinsic functions - Enterprise COBOL for z/OS 6.3.0

A função YEAR-TO-YYYY converte o argument-1 , um ano de dois dígitos, em um ano de quatro dígitos.
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 YYYY implícito.

argument-1
Deve ser um número inteiro não negativo menor que 100.

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 argument-2 devem ser menores que 10.000 e maiores que 1.699.

Exemplos de valores de retorno da função YEAR-TO-YYYY são mostrados na tabela a seguir.

Ano atual Valor argument-1 Valor argument-2 Valor retornado
1995 4  23 2004
1995 4 -15 1904
2008 98 23 1998
2008 98 -15 1898


© Copyright IBM Corp.