COBOL - Funções de edição - remetente - destinatário - www.cadcobol.com.br


Volta a página anterior

Volta ao Menu Principal


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

Exemplos de Supressão de zeros e Inserção de asteriscos
Remetente Destinatário
PICTURE Conteúdo PICTURE Resultados editados
9(003)V99 123^45 $***,99 $123,45
9(003)V99 012^34 $***,99 $*12,34
9(005)V99 00234^56 $**.***,99 $***234,56

Exemplos de inserção de sinal negativo
Remetente Destinatário
PICTURE Conteúdo PICTURE Resultados editados
S999 123- -999 -123
S999 123- 999- 123-
999 123 -999 123
S999 123+ -999 123
S99V99 02^34- ZZ,99- 2,34-

Exemplos de inserção de sinal negativo e de sinal positivo
Remetente Destinatário
PICTURE Conteúdo PICTURE Resultados editados
S999 123+ +999 +123
S999 123+ 999+ 123+
S999 123- +999 -123
S9999V99 0387^25- +Z.ZZZ,99 -387,25

Exemplos de inserção de CR e DB
Remetente Destinatário
PICTURE Conteúdo PICTURE Resultados editados
S999 123- 999CR 123CR
S999 123- 999DB 123DB
S999 123+ 999CR 123
S999 123- 999DB 123

Exemplos de espaços em Branco, Zeros e Barras como Separadores
Remetente Destinatário
Identificador PICTURE Conteúdo PICTURE Resultados editados
NUMERO 9(009) 012345678 999BB99BB9999 012 34 5678
NOME X(010) PASMITH XBXBX(008) P A SMITH
QUANTIDADE 9(003) 153 99900 15300
DATA 9(008) 06031951 99/99/9999 06/03/1951

Edição usando Strings flutuantes e a opção BLANK WHEN ZERO
Remetente Destinatário
PICTURE ou PIC Conteúdo PICTURE ou PIC Resultados editados
S999V99 ou S9(003)V9(002) 012^34- $$$$,99- $12,34-
S999 ou S9(003) 123+ ---- 123
S999 ou S9(003) 005- ---- -5
99 ou 9(002) 37 +++ +37
S99 ou S9(002) 05- +++ -5
S99 ou S9(002) 05+ +++ +5
999 ou 9(003) 000 ++++ +
999V99 ou 9(003)V9(002) 000^00 $$$$,99 $,00
999V99 ou 9(003)V9(002) 000^00 $$$$,99 BLANK WHEN ZERO .

Exemplos de inserção de ponto decimal e truncamento de dígitos decimais
Remetente Destinatário
PICTURE ou PIC Conteúdo PICTURE ou PIC Resultados editados
S999V99 ou S9(003)V9(002) 008^27 Z(003) 8
9(003) 027 Z(003),99 27,00
9(003) 018 Z(003),ZZ 18,00
9(003) 000 Z(003),ZZ BRANCOS

Revisão das operações de edição
Remetente Destinatário
PICTURE ou PIC Conteúdo PICTURE ou PIC Resultados editados
9(006) 123456 $ZZZ.ZZZ,99 $123.456,00
9999V99 ou 9(004)V9(002) 0012^34 $Z.ZZZ,99 $bbb12,34 (b = brancos)
9(005)V99 00001^23 $**.***,99 $*****1,23
S9(006) 012345- +Z(006) -b12345 (b = brancos)
S9(006) 123456+ -Z(006) 123456
S9999V99 ou S9(004)V9(002) 1234^56+ +Z(004)V99 +1234,56
S999 ou S9(003) 123- ZZZ- 123-
9(006) 123456 99BBBB9999 12bbbb3456 (b = brancos)
S99 ou S9(002) 05- $ZZ,99DB $ 5,00DB
999 ou 9(003) 123 999000 123000
S99V99 ou S9(002)V9(002) 12^34+ $ZZ,99CR $12,34CR