Quinta, Setembro 24, 2020

O registro especial LENGTH OF contém o número de bytes usados ​​por um item de dados.

LENGTH OF cria um registro especial implícito que contém o comprimento de byte atual do item de dados referenciado pelo identificador.

Para itens de dados descritos com o uso DISPLAY-1 (itens de dados DBCS) e itens de dados descritos com uso NATIONAL, cada caractere ocupa 2 bytes de armazenamento.

LENGTH OF pode ser usado na divisão de procedimento em qualquer lugar um item de dados numéricos que tenha a mesma definição que a definição implícita do LENGTH of registro especial pode ser usado. O LENGTH OF registro especial tem a definição implícita:

USAGE IS BINARY PICTURE 9(9).

Se o item de dados referenciado pelo identificador contém a cláusula GLOBAL, o LENGTH OF registro especial é um item de dados global.

O registro especial LENGTH OF pode aparecer dentro da posição de caracter inicial ou as expressões de comprimento de uma especificação de modificação de referência. No entanto, o registro especial LENGTH OF não pode ser aplicado a qualquer operando modificado por referência.

O operando LENGTH OF não pode ser uma função, mas o LENGTH OF registro especial é permitido em uma função onde um argumento inteiro é permitido.

Se o LENGTH OF registro especial é usado como o argumento para a função LENGTH, o resultado é sempre 4, independente do argumento especificado para LENGTH OF.

Se o registo especial ADDRESS OF é utilizado como o argumento para o registo especial LENGTH, o resultado é sempre 4, independentemente do argumento especificado para ADDRESS OF.

LENGTH OF não pode ser um dos seguintes:

  • Um item de dados de recebimento
  • Um subíndice

Quando o registro especial LENGTH OF é usado como um parâmetro em uma instrução CALL, ele deve ser passado BY CONTENT ou BY VALUE.

Quando um elemento de tabela é especificado, o registro especial LENGTH OF contém o comprimento em bytes de uma ocorrência. Quando se refere a um elemento de tabela, o nome do elemento não precisa ser subscrito.

Um valor é retornado para qualquer identificador cujo comprimento pode ser determinado, mesmo se a área referenciada pelo identificador não estiver atualmente disponível para o programa.

Existe um registro especial LENGTH OF especial para cada identificador referenciado com a frase LENGTH OF. Por exemplo:

MOVE LENGTH OF A TO B
DISPLAY LENGTH OF A, A
ADD LENGTH OF A TO B
CALL "PROGX" USING BY REFERENCE A BY CONTENT LENGTH OF A

A função intrínseca LENGTH também pode ser usada para obter o comprimento de um item de dados. Para itens de dados de uso NACIONAL , o comprimento retornado pela função comprimento é o número de posições de caracteres nacionais, em vez de bytes; assim, o comprimento do registro especial e a função intrínseca COMPRIMENTO tem resultados diferentes para itens de uso de dados nacional . Para todos os outros itens de dados, o resultado é o mesmo.