COBOL - Coding your program - Sign representation of zoned and packed-decimal data



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

COBOL - Codificando seu programa - Representação de sinal de dados decimais zoneados e compactados
Enterprise COBOL for z/OS, Version 4.2

A representação do sinal afeta o processamento e a interação dos dados decimais zoneados e decimais internos.

Dado X'sd ', onde s é a representação do sinal ed representa o dígito, as representações do sinal válidas para dados decimais zoneados (USAGE DISPLAY) sem a cláusula SIGN IS SEPARATE são:

Positivo:
C, A, E, e F

Negativo:
D e B

A opção do compilador COBOL NUMPROC afeta o processamento de sinais para dados decimais zoneados e decimais internos.
NUMPROC não tem efeito sobre dados binários, dados decimais nacionais ou dados de ponto flutuante.

NUMPROC(PFD)
Dado X'sd ', onde s é a representação do sinal ed representa o dígito, quando você usa NUMPROC (PFD), o compilador assume que o sinal em seus dados é um dos três sinais preferidos:
Sinal positivo ou 0 (zero)::
X'C'

Sinal negativo:
X'D'

Sem sinal ou alfanumérico::
X'F'

Com base nessa suposição, o compilador usa qualquer sinal fornecido para processar os dados. Usar a opção NUMPROC (PFD) pode economizar tempo de processamento, mas você deve usar sinais preferenciais com seus dados para o processamento correto.

NUMPROC(NOPFD)
Quando a opção de compilador NUMPROC (NOPFD) está em vigor, o compilador aceita qualquer configuração de sinal válida.
O sinal preferido é sempre gerado no receptor.
NUMPROC (NOPFD) é menos eficiente do que NUMPROC (PFD), mas você deve usá-lo sempre que houver dados que não usam sinais preferenciais.

Se um remetente decimal zoneado sem sinal for movido para um receptor alfanumérico, o sinal não será alterado (mesmo com NUMPROC (NOPFD) em vigor).

NUMPROC(MIG)
Quando NUMPROC (MIG) está em vigor, o compilador gera código semelhante ao produzido pelo OS / VS COBOL.
Esta opção pode ser especialmente útil se você migrar programas OS / VS COBOL para IBM Enterprise COBOL para z/OS.

Referências Relacionadas