Previous Topic: SQL Reserved WordsNext Topic: Third-Party Acknowledgment


CA ADS, COBOL, PL/I Data Types

CA ADS PICTURE and USAGE clause

CA IDMS data type

PIC X(n) USAGE DISPLAY

CHAR(n)

01 name

49 name-LEN PIC S9(4) COMP

49 name-TEXT PIC X(n)

VARCHAR(n)

PIC S9(p-s)V9(s) USAGE COMP-3

DECIMAL(p,s)

PIC 9(p-s)V9(s) USAGE COMP-3

UNSIGNED DECIMAL(p,s)1

USAGE COMP-2

DOUBLE PRECISION

USAGE COMP-1

REAL

USAGE COMP-1

FLOAT

PIC S9(n) USAGE COMP

(where n<5)

SMALLINT

PIC S9(n) USAGE COMP

(where n>4 and n<10)

INTEGER

PIC S9(n) USAGE COMP

(where n>9)

LONGINT or BIGINT

PIC S9(p-s)V9(s) USAGE DISPLAY

NUMERIC(p,s)

PIC 9(p-s)V9(s) USAGE DISPLAY

UNSIGNED NUMERIC(p,s)1

PIC X(n) USAGE DISPLAY

BINARY(n)

PIC G(n) USAGE DISPLAY-1

GRAPHIC(n)1

01 name

49 name-LEN PIC S9(4) COMP

49 name-TEXT PIC G(n) DISPLAY-1

VARGRAPHIC(n)1

PIC X(10) USAGE DISPLAY

DATE

PIC X(8) USAGE DISPLAY

TIME

PIC X(26) USAGE DISPLAY

TIMESTAMP

PIC X(8) USAGE DISPLAY

TID1

Note: This data type is a CA IDMS extension of the SQL standard.

COBOL PICTURE and USAGE clause

CA IDMS data type

PIC X(n) USAGE DISPLAY

CHAR(n)

01 name

49 name-LEN PIC S9(4) COMP

49 name-TEXT PIC X(n)

VARCHAR(n)

PIC S9(p-s)V9(s) USAGE COMP-3

DECIMAL(p,s)

PIC 9(p-s)V9(s) USAGE COMP-3

UNSIGNED DECIMAL(p,s)1

USAGE COMP-2

DOUBLE PRECISION

USAGE COMP-1

REAL

USAGE COMP-1

FLOAT

PIC S9(n) USAGE COMP

(where n<5)

SMALLINT

PIC S9(n) USAGE COMP

(where n>4 and n<10)

INTEGER

PIC S9(n) USAGE COMP

(where n>9)

LONGINT or BIGINT

PIC S9(p-s)V9(s) USAGE DISPLAY

NUMERIC(p,s)

PIC 9(p-s)V9(s) USAGE DISPLAY

UNSIGNED NUMERIC(p,s)1

PIC X(n) USAGE SQLBIN

BINARY(n)

PIC G(n) USAGE DISPLAY-1

GRAPHIC(n)1

01 name

49 name-LEN PIC S9(4) COMP

49 name-TEXT PIC G(n) DISPLAY-1

VARGRAPHIC(n)1

PIC X(10) USAGE DISPLAY

DATE

PIC X(8) USAGE DISPLAY

TIME

PIC X(26) USAGE DISPLAY

TIMESTAMP

PIC X(8) USAGE SQLBIN

TID1

Note: This data type is a CA IDMS extension of the SQL standard.

Equivalent PL/I data type

CA IDMS data type

CHAR (n)

CHAR(n)

CHAR (n) VAR

VARCHAR(n)

FIXED DECIMAL (p,s)

DECIMAL(p,s)

FLOAT BINARY (n)

where n <= 24

where n > 24

 

REAL

DOUBLE PRECISION

FLOAT DECIMAL (n)

where n <= 6

where n > 6

 

REAL

DOUBLE PRECISION

FIXED BINARY (15)

SMALLINT

FIXED BINARY (31)

INTEGER

CHAR (n)

BINARY(n)

GRAPHIC (n)

GRAPHIC(n)1

GRAPHIC (n) VAR

VARGRAPHIC(n)1

CHAR (10)

DATE

CHAR (8)

TIME

CHAR (26)

TIMESTAMP

SQLBIN (n)

BINARY(n)

CHAR(8)

TID1

Note: This data type is a CA IDMS extension of the SQL standard.