COBOL - Edição de Inserção Fixa
Este tipo de edição é válido apenas para itens editados por números. Os seguintes símbolos de inserção são usados:
- cs
- + - CR DB (símbolos de controle de 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 de moeda deve ser o primeiro caractere na cadeia de caracteres.
Quando + ou - é usado como símbolo, 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 de caractere 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.
A edição de símbolos de controle de sinal produz resultados que dependem do valor do item de dados, conforme mostrado abaixo:
| Editing symbol in PICTURE character-string | Result: data item positive or zero | Result: data item negative |
|---|
| + | + | - |
| - | space | - |
| CR | 2 spaces | CR |
| DB | 2 spaces | DB |
Por exemplo:
| PICTURE | Value of data | Edited result |
|---|
| 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 |