Using INCLUDE TABLE

Output of INCLUDE TABLE

The CA IDMS precompiler uses these data type equivalents when directed by an INCLUDE TABLE statement to create a host variable declaration.

CA IDMS data type	COBOL data type on INCLUDE TABLE
BINARY(n)	PIC X(n)
CHARACTER(n)	PIC X(n)
VARCHAR(n)	-LEN PIC S9(4) COMP -TEXT PIC X(n)
GRAPHIC(n)	PIC G(n) DISPLAY-1
VARGRAPHIC(n)	-LEN PIC S9(4) COMP -TEXT PIC G(n) DISPLAY-1
DECIMAL(p,s)	PIC S9(p-s)V9(s) COMP-3
UNSIGNED DECIMAL(p,s)	PIC 9(p-s)V9(s) COMP-3
NUMERIC(p,s)	PIC S9(p-s)V9(s) DISPLAY
UNSIGNED NUMERIC(p,s)	PIC 9(p-s)V9(s) DISPLAY
DOUBLE PRECISION	COMP-2
FLOAT(n) where n <= 24 n > 24	COMP-1 COMP-2
REAL	COMP-1
DATE	PIC X(10)
TIME	PIC X(8)
TIMESTAMP	PIC X(26)
SMALLINT	PIC S9(4) COMP
INTEGER	PIC S9(8) COMP
LONGINT	PIC S9(18) COMP
SQLIND	COMP PIC S9(8)
TID	PIC X(8) USAGE SQLBIN

Default Structure

The default structure created by the INCLUDE statement has these features:

An 01-level element for the table
A subordinate element named for each table column, defined with the equivalent program language data type
An additional element, with the suffix '-I', for each column that allows null values, to be available as an indicator variable
All element names generated with hyphens to replace underscores that appear in column names, to conform to COBOL naming standards
If you specify a table without a schema name qualifier, you must supply a schema name with a precompiler option.

Note: For more information about precompiler options, see Preparing and Executing the Program.