COBOL - DATA DIVISION - data description entry - SIGN clause



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

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

A cláusula SIGN especifica a posição e o modo de representação do sinal operacional para o item numérico assinado ao qual se aplica.

A cláusula SIGN é necessária apenas quando é necessária uma descrição explícita das propriedades ou posição do sinal operacional.

A cláusula SIGN pode ser especificada apenas para os seguintes itens:

  • Um item de dados numérico elementar de uso DISPLAY ou NATIONAL que é descrito com um S em sua cadeia de caracteres de imagem ou
  • Um item de grupo que contém pelo menos uma entrada elementar como um item subordinado

Quando a cláusula SIGN é especificada no nível do grupo, essa cláusula SIGN se aplica apenas a itens de dados elementares numéricos assinados subordinados de uso DISPLAY ou NATIONAL.
Esse grupo também pode conter itens que não são afetados pela cláusula SIGN.
Se a cláusula SIGN for especificada para um grupo ou entrada elementar subordinada a um item de grupo que possui uma cláusula SIGN, a cláusula SIGN da entrada subordinada terá precedência para essa entrada subordinada.

A cláusula SIGN é tratada como documentação para itens de ponto flutuante externos.

Quando a cláusula SIGN é especificada sem a frase SEPARATE, USAGE DISPLAY deve ser especificado explícita ou implicitamente.
Quando SIGN IS SEPARATE, é especificado, USAGE DISPLAY ou USAGE NATIONAL pode ser especificado.

Se você especificar a cláusula CODE-SET em uma entrada FD, quaisquer entradas de descrição de dados numéricos assinadas associadas a essa entrada de descrição de arquivo deverão ser descritas com a cláusula SIGN IS SEPARATE.

Se a frase SEPARATE CHARACTER não for especificada, então:

  • Presume-se que o sinal operacional esteja associado à posição do dígito LEADING ou TRAILING, o que for especificado, do item de dados numéricos elementares.
    (Nesse caso, a especificação de SIGN IS TRAILING é equivalente à ação padrão do compilador.)
  • O caractere S na cadeia de caracteres PICTURE não é contado na determinação do tamanho do item (em termos de caracteres de formato de dados padrão).

Se a frase SEPARATE CHARACTER for especificada, então:

  • Presume-se que o sinal operacional seja a posição do caractere LEADING ou TRAILING, o que for especificado, do item de dados numéricos elementares.
    Esta posição de caractere não é uma posição de dígito.
  • O caractere S na cadeia de caracteres PICTURE é contado na determinação do tamanho do item de dados (em termos de caracteres de formato de dados padrão).
  • + é o caractere usado para o sinal operacional positivo.
  • - é o caractere usado para o sinal operacional negativo.

A frase SEPARATE CHARACTER não pode ser especificada para um campo de data.



© Copyright IBM Corp.