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.