COBOL - Funções intrínsecas - NATIONAL-OF


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 - NATIONAL-OF
Intrinsic functions - Enterprise COBOL for z/OS 6.3.0

A função NATIONAL-OF retorna uma cadeia de caracteres nacional que consiste na representação de caracteres nacionais dos caracteres no argument-1.

O tipo da função é nacional (national).

argument-1
Deve ser da classe alfabética, alfanumérica ou DBCS.
argument-1 especifica a cadeia de origem da conversão./dd>
argument-2
Deve ser um número inteiro.
O argumento 2 identifica a página de código fonte da conversão.

o argument-2 deve ser um número CCSID válido e deve identificar uma página de código EBCDIC, ASCII, UTF-8 ou EUC. Uma página de código EBCDIC ou ASCII pode conter caracteres de um ou dois bytes.

Se o argument-2 for omitido, a página de código-fonte está em vigor na opção do compilador CODEPAGE quando o código-fonte foi compilado.

O valor retornado é uma cadeia de caracteres nacional que consiste nos caracteres do argument-1 convertidos em representação de caracteres nacionais.
Quando um caractere de origem não pode ser convertido em um caractere nacional, o caractere de origem é convertido em um caractere de substituição.
O caractere de substituição é:

  • X'001A' se estiver convertendo um caractere de byte único
  • X'FFFD' se estiver convertendo um caractere de vários bytes

Nenhuma condição de exceção é gerada.

O comprimento do valor retornado depende do conteúdo do argument-1 e das características da página de código fonte.

Nota de uso: O CCSID para UTF-8 é 1208.

Exceção: Se a conversão falhar, ocorrerá um erro grave de tempo de execução. Verifique se os serviços de conversão Unicode do z/OS estão instalados e configurados para incluir a tabela para conversão da página de códigos de origem no CCSID 1200.
Consulte o Guia de Customização para obter os requisitos de instalação para suportar a conversão.



© Copyright IBM Corp.