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

Table 152 Character Types (continued)
Varying Length Character StringCharacter StringCharacter
Numeric-EditedNumeric-Edited
--CHARACTERFORTRAN CHARACTER array
CHARACTER*n
STRING(n)Pascal PACKED ARRAY OF CHARCHAR or BYTE value parameter
FSTRING(n)Enumeration, unpacked,
<= 256 members
Subrange, unpacked n…m,
0 <= n and m <= 255
VARCHAR(n)SQL/MP or
SQL/MX
CHAR(n)PIC X
CHAR
PIC X(n)
--STRING arraySTRINGTAL
pTAL
1 or 2, depends on declared
pointer size
1 or 2, depends on declared
pointer size
1Return Value Size
(Words)
1
HP COBOL only
Table 153 Structured, Logical, Set, and File Types
FileSetBooleanLogical (true or
false)
Word-Addressed
Structure
Byte-Addressed
Structure
--------struct--HP C and
HP C++
--------01-level
RECORD
--COBOL
------LOGICAL
1
--RECORDFORTRAN
FileSetBOOLEAN--RECORD,
word-aligned
RECORD,
byte-aligned
Pascal
------------SQL/MP or
SQL/MX
--------Word-addressed
standard
Byte-addressed
standard
TAL
pTAL
STRUCT
pointer
STRUCT
pointer
1111 or 2, depends
on compiler
directive
1 or 2,
depends on
declared
pointer size
1 or 2,
depends on
declared
pointer size
Return Value
Size (Words)
1
LOGICAL is normally defined as 2 bytes. The LOGICAL*2 and LOGICAL*4 compiler directives redefine LOGICAL.
Table 154 Pointer Types
Extended PointerWord PointerByte PointerProcedure Pointer
extended pointerword pointerbyte pointerfunction pointerHP C and HP C++
--------COBOL
--------FORTRAN
Pointer,
extended-addressed
EXTADDR
Pointer,
byte-addressed
WORDADDR
Pointer,
byte-addressed
BYTEADDR
Procedure pointerPascal
1236 Data Type Correspondence