COBOL - DATA DIVISION - DDE - PICTURE - Fixed insertion editing



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

COBOL - DATA DIVISION - data description entry - PICTURE - Fixed insertion editing
Enterprise COBOL for z/OS, V4.2, Language Reference

Este tipo de edição é válido apenas para itens editados numéricos.
Os seguintes símbolos de inserção são usados:

  • cs
  • + - CR DB (símbolos de controle do sinal de edição)

Na edição de inserção fixa, apenas um símbolo de moeda e um símbolo de controle de sinal de edição podem ser especificados em uma cadeia de caracteres PICTURE.

A menos que seja precedido por um símbolo + ou -, o símbolo da moeda deve ser o primeiro caractere na cadeia de caracteres.

Quando + ou - é usado como símbolo, ele deve ser o primeiro ou o último caractere na cadeia de caracteres.

Quando CR ou DB é usado como símbolo, ele deve ocupar as duas posições mais à direita na cadeia de caracteres.
Se essas duas posições de caracteres contiverem os símbolos CR ou DB, as letras maiúsculas serão os caracteres de inserção.

Os símbolos de controle de sinal de edição produzem resultados que dependem do valor do item de dados, conforme mostrado abaixo:

Símbolo de edição na cadeia de caracteres PICTURE Resultado: item de dados positivo ou zero Resultado: item de dados negativo
+ + -
- space -
CR 2 spaces CR
DB 2 spaces DB

For example:

PICTURE Valor dos dados Resultado editado
        999.99+      
      +6555.556      
        555.55+      
      +9999.99       
      -6555.555      
      -6555.55       
       9999.99       
      +1234.56       
       1234.56       
       $999.99       
       -123.45       
       $123.45       
      -$999.99       
       -123.456      
      -$123.45       
      -$999.99       
       +123.456      
       $123.45       
      $9999.99CR     
       +123.45       
      $0123.45       
      $9999.99CR     
       -123.45       
      $0123.45CR   


© Copyright IBM Corp.