COBOL data type definitions

Table 1 includes data type definitions and their descriptions for COBOL.

Table 1. Data type definitions for COBOL
Data type	Description	COBOL
INT2	A 2-byte signed integer	PIC S9(4) USAGE IS BINARY
INT4	A 4-byte signed integer	PIC S9(9) USAGE IS BINARY
FLOAT4	A 4-byte single-precision floating-point number	COMP-1
FLOAT8	An 8-byte double-precision floating-point number	COMP-2
FLOAT16	A 16-byte extended-precision floating-point number	Not available
COMPLEX8	Short floating-point complex hex number: an 8-byte complex number, whose real and imaginary parts are each 4-byte single-precision floating-point numbers	Not available
COMPLEX16	Long floating-point complex hex number: a 16-byte complex number, whose real and imaginary parts are each 8-byte double-precision floating-point numbers	Not available
COMPLEX32	Extended floating-point hex number: a 32-byte complex number, whose real and imaginary parts are each 16-byte extended-precision floating-point numbers	Not available
POINTER	A platform-dependent address pointer	USAGE IS POINTER
CHARn	A string (character array) of length n	PIC X(n)
VSTRING	A halfword length-prefixed character string (for input); fixed-length 80-character string (for output)	`01 STRING-IN. 02 LEN PIC S9(4) USAGE IS BINARY. 02 TXT PIC X(N). 01 STRING-OUT PIC X(80).`
FEED_BACK	A mapping of the condition token (fc)	`Case 1: 01 FC 02 SEV PIC S9(4) USAGE IS BINARY. 02 MSGNO PIC S9(4) USAGE IS BINARY. 02 FLGS PIC X(1). 02 FACID PIC X(3). 02 ISI PIC X(4).` `Case 2: 01 FC 02 CLASS-CODE PIC 9(4) USAGE IS BINARY. 02 CAUSE-CODE PIC 9(4) USAGE IS BINARY. 02 FLGS PIC X(1). 02 FACID PIC X(3). 02 ISI PIC X(4).`
CEE_ENTRY	An HLL-dependent entry constant	USAGE IS PROCEDURE-POINTER