COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Table 150 Integer Types, Part 2
Decimal IntegerBit Integer of 1 to 31 Bits64-Bit Integer
----long longHP C and HP C++
Numeric DISPLAY--COBOL PIC S9(n) COMP or
PIC 9(n) COMP
without P or V,
10 <= n <= 18
NATIVE-8
1
----INTEGER*8FORTRAN
DECIMALINT64Pascal UNSIGNED(n),
1 <= n <= 16
INT(n), 1 <= n <= 16
--SQL/MP or SQL/MX DECIMAL (n,s)NUMERIC(10)…
NUMERIC(18)
PIC 9(n) DISPLAY
PIC 9(10) COMP…
PIC 9(18) COMP
LARGEINT
--FIXED(0), INT(64) UNSIGNED(n),TAL
pTAL
1 <= n <= 31
1 or 2, depends on declared
pointer size
1 or 2 in TAL, 1 in other
languages
4Return Value Size (Words)
1
HP COBOL only
Table 151 Floating, Fixed, and Complex Types
64-Bit Complex64-Bit Fixed Point64-Bit Floating32-Bit Floating
----doublefloatHP C and
HP C++
------COBOL PIC S9(n–s)v9(s) COMP or
PIC 9(n–s)v9(s) COMP,
10 <= n <= 18
COMPLEX--DOUBLE PRECISIONREALFORTRAN
----LONGREALREALPascal
------SQL/MP or
SQL/MX
NUMERIC (n,s)
PIC 9(n-s)v9(s) COMP
--FIXED(s), -19 <= s <= 19REAL(64)REALTAL
REAL(32)pTAL
4442Return Value Size
(Words)
Table 152 Character Types
Varying Length Character StringCharacter StringCharacter
struct {
int len;
pointer to charHP C and HP C++ signed char
unsigned char
char val [n]
};
COBOL 01 name.AlphabeticAlphabetic
03 len USAGE IS NATIVE-2
1
Numeric DISPLAYNumeric DISPLAY
Alphanumeric-EditedAlphanumeric-Edited
03 val PIC X(n).
AlphanumericAlphanumeric
1235