COBOL - DATA DIVISION - data description entry - JUSTIFIED clause



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

COBOL - DATA DIVISION - data description entry - JUSTIFIED clause
Enterprise COBOL for z/OS, V4.2, Language Reference

A cláusula JUSTIFIED substitui as regras de posicionamento padrão para receber itens da categoria alfabética, alfanumérica, DBCS ou national.

Você pode especificar a cláusula JUSTIFIED apenas no nível elementar.
JUST é uma abreviação de JUSTIFIED e tem o mesmo significado.

Você não pode especificar a cláusula JUSTIFIED:

  • Para itens de dados da categoria edição numérica, edição numérica, edição alfanumérica ou edição national
  • Para itens DBCS editados
  • Para itens de dados de índice
  • Para itens descritos como USAGE FUNCTION-POINTER, USAGE POINTER, USAGE PROCEDURE-POINTER, ou USAGE OBJECT REFERENCE
  • Para itens de ponto flutuante externo ou de ponto flutuante interno
  • Para campos de data
  • Com entradas de nível 66 (RENAMES) e nível 88 (condition-name)

Quando a cláusula JUSTIFIED é especificada para um item de recebimento, os dados são alinhados na posição de caractere mais à direita no item de recebimento.
Além disso:

  • Se o item de envio for maior que o item de recebimento, as posições dos caracteres mais à esquerda serão truncadas.

  • Se o item de envio for menor que o item de recebimento, as posições de caracteres não utilizadas à esquerda serão preenchidas com espaços.
    Para um item DBCS, cada posição não utilizada é preenchida com um espaço DBCS (X'4040 '); para um item descrito com o uso NATIONAL, cada posição não utilizada é preenchida com o espaço Unicode padrão (NX'0020 '); caso contrário, cada posição não utilizada será preenchida com um espaço alfanumérico.

Se você omitir a cláusula JUSTIFIED, as regras para o alinhamento padrão serão seguidas (consulte Alignment rules - Regras de alinhamento ).

A cláusula JUSTIFIED não afeta as configurações iniciais, conforme determinado pela cláusula VALUE.



© Copyright IBM Corp.