Intrinsic functions - Enterprise COBOL for z/OS 6.3.0
Você pode usar a função LENGTH em muitos contextos (incluindo tabelas e dados numéricos) para determinar o comprimento de um item.
Por exemplo, você pode usar a função LENGTH para determinar o comprimento de um literal alfanumérico ou nacional ou de um item de dados de qualquer tipo,
exceto DBCS.
Você também pode usar a função BYTE-LENGTH para determinar o comprimento de um item em bytes.
LENGTH intrinsic function
A função LENGTH retorna o comprimento de um item nacional (um literal ou qualquer item que tenha USAGE NATIONAL, incluindo itens de grupos nacionais) como um
número inteiro igual ao tamanho do argumento nas posições de caracteres nacionais.
Retorna o tamanho de qualquer outro item de dados como um número inteiro igual ao tamanho do argumento nas posições de caracteres alfanuméricos.
A seguinte instrução COBOL demonstra a movimentação de um item de dados para o campo em um registro que contém nomes de clientes:
MOVE CUSTOMER-NAME TO CUSTOMER-RECORD(1:FUNCTION LENGTH(CUSTOMER-NAME))
BYTE-LENGTH intrinsic function
A função BYTE-LENGTH retorna o comprimento de um item nacional, um item UTF-8, um item alfanumérico ou um literal DBCS como um número inteiro que é igual ao
tamanho do argumento em bytes.
LENGTH OF special register
Você também pode usar o registro especial LENGTH OF, que retorna o comprimento em bytes, mesmo para dados nacionais.
A codificação do FUNCTION LENGTH(CUSTOMER-NAME) ou LENGTH OF CUSTOMER-NAME retorna o mesmo resultado para itens alfanuméricos:
o comprimento do CUSTOMER-NAME em bytes.
A função BYTE-LENGTH retorna o mesmo resultado que o registro especial LENGTH OF para todos os tipos de argumentos.
Você pode usar as funções LENGTH e BYTE-LENGTH apenas onde expressões aritméticas são permitidas.
No entanto, você pode usar o registro especial LENGTH OF em uma maior variedade de contextos.
Por exemplo, você pode usar o registro especial LENGTH OF como um argumento para uma função intrínseca que aceita argumentos inteiros.
(Você não pode usar uma função intrínseca como um operando para o registro especial LENGTH OF.)
Você também pode usar o registro especial LENGTH OF como um parâmetro em uma instrução CALL.
© Copyright IBM Corp.