COBOL - Coding your program - Examples: numeric data and internal representation

Volta a página anterior

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

COBOL - Codificando seu programa - Exemplos: dados numéricos e representação interna

Enterprise COBOL for z/OS, Version 4.2

A tabela a seguir mostra a representação interna dos itens numéricos.

Tabela 1. Representação interna de itens numéricos

Tipo numérico	PICTURE e USAGE e cláusula SIGN opcional	Valor	Representação interna
External decimal	PIC S9999 DISPLAY	+ 1234	F1 F2 F3 C4
		- 1234	F1 F2 F3 D4
		1234	F1 F2 F3 C4
	PIC 9999 DISPLAY	1234	F1 F2 F3 F4
	PIC 9999 NATIONAL	1234	00 31 00 32 00 33 00 34
	PIC S9999 DISPLAY SIGN LEADING	+ 1234	C1 F2 F3 F4
	PIC S9999 DISPLAY SIGN LEADING	- 1234	D1 F2 F3 F4
	PIC S9999 DISPLAY SIGN LEADING SEPARATE	+ 1234	4E F1 F2 F3 F4
	PIC S9999 DISPLAY SIGN LEADING SEPARATE	- 1234	60 F1 F2 F3 F4
	PIC S9999 DISPLAY SIGN TRAILING SEPARATE	+ 1234	F1 F2 F3 F4 4E
	PIC S9999 DISPLAY SIGN TRAILING SEPARATE	- 1234	F1 F2 F3 F4 60
	PIC S9999 NATIONAL SIGN LEADING SEPARATE	+ 1234	00 2B 00 31 00 32 00 33 00 34
	PIC S9999 NATIONAL SIGN LEADING SEPARATE	- 1234	00 2D 00 31 00 32 00 33 00 34
	PIC S9999 NATIONAL SIGN TRAILING SEPARATE	+ 1234	00 31 00 32 00 33 00 34 00 2B
	PIC S9999 NATIONAL SIGN TRAILING SEPARATE	- 1234	00 31 00 32 00 33 00 34 00 2D
Binary	PIC S9999 BINARY PIC S9999 COMP PIC S9999 COMP-4	+ 1234	04 D2
	PIC S9999 BINARY PIC S9999 COMP PIC S9999 COMP-4	- 1234	FB 2E
	PIC S9999 COMP-5	+ 12345¹	30 39
	PIC S9999 COMP-5	- 12345¹	CF C7
	PIC 9999 BINARY PIC 9999 COMP PIC 9999 COMP-4	1234	04 D2
	PIC 9999 COMP-5	60000¹	EA 60
Internal decimal	PIC S9999 PACKED-DECIMAL PIC S9999 COMP-3	+ 1234	01 23 4C
	PIC S9999 PACKED-DECIMAL PIC S9999 COMP-3	- 1234	01 23 4D
	PIC 9999 PACKED-DECIMAL PIC 9999 COMP-3	1234	01 23 4F
Internal floating point	COMP-1	+ 1234	43 4D 20 00
	COMP-1	- 1234	C3 4D 20 00
	COMP-2	+ 1234	43 4D 20 00 00 00 00 00
	COMP-2	- 1234	C3 4D 20 00 00 00 00 00
External floating point	PIC +9(2).9(2)E+99 DISPLAY	+ 12.34E+02	4E F1 F2 4B F3 F4 C5 4E F0 F2
	PIC +9(2).9(2)E+99 DISPLAY	- 12.34E+02	60 F1 F2 4B F3 F4 C5 4E F0 F2
	PIC +9(2).9(2)E+99 NATIONAL	+ 12.34E+02	00 2B 00 31 00 32 00 2E 00 33 00 34 00 45 00 2B 00 30 00 32
	PIC +9(2).9(2)E+99 NATIONAL	- 12.34E+02	00 2D 00 31 00 32 00 2E 00 33 00 34 00 45 00 2B 00 30 00 32
O exemplo demonstra que os itens de dados COMP-5 podem conter valores de magnitude até a capacidade da representação binária nativa (2, 4 ou 8 bytes), em vez de serem limitados ao valor implícito pelo número de 9s na cláusula PICTURE.