SQL/MP Programming Manual for COBOL

Host Variables
HP NonStop SQL/MP Programming Manual for COBOL529758-003
2-15
COBOL Record Descriptions
COBOL Record Descriptions
The next examples show the correspondence between columns of various SQL data
types and the COBOL record description generated by the INVOKE directive.
Example 2-1 shows the CREATE TABLE statements that generate the SQL tables.
Example 2-1. CREATE TABLE Statements (page 1 of 2)
CREATE TABLE \NEWYORK.$DISK1.SQL.TYPECOB2 (
TYPE_CHAR1 CHARACTER (10) CHARACTER SET ISO88591 NOT NULL,
TYPE_CHAR1_NULL CHARACTER (10) CHARACTER SET ISO88591 ,
TYPE_CHAR2 CHARACTER (10) CHARACTER SET KANJI NOT NULL,
TYPE_CHAR2_NULL CHARACTER (10) CHARACTER SET KANJI ,
TYPE_VARCHAR1 VARCHAR (10) CHARACTER SET ISO88591 NOT NULL,
TYPE_VARCHAR1_NULL VARCHAR (10) CHARACTER SET ISO88591 ,
TYPE_VARCHAR2 VARCHAR (10) CHARACTER SET KANJI NOT NULL,
TYPE_VARCHAR2_NULL VARCHAR (10) CHARACTER SET KANJI ,
TYPE_NCHAR_F NATIONAL CHARACTER (10) NOT NULL,
TYPE_NCHAR_F_NULL NATIONAL CHARACTER (10) ,
TYPE_NCHAR_V NATIONAL CHARACTER VARYING (10) NOT NULL,
TYPE_NCHAR_V_NULL NATIONAL CHARACTER VARYING (10) ,
TYPE_COB_PICX1 PIC X(10) CHARACTER SET ISO88591 NOT NULL,
TYPE_COB_PICX1_NULL PIC X(10) CHARACTER SET ISO88591 ,
TYPE_COB_PICX2 PIC X(10) CHARACTER SET KANJI NOT NULL,
TYPE_COB_PICX2_NULL PIC X(10) CHARACTER SET KANJI
) CATALOG $SQL.SQLCAT ;
CREATE TABLE \NEWYORK.$DISK1.SQL.TYPECOB2 (
TYPE_CHAR1 CHARACTER (10) CHARACTER SET ISO88591 NOT NULL,
TYPE_CHAR1_NULL CHARACTER (10) CHARACTER SET ISO88591 ,
TYPE_CHAR2 CHARACTER (10) CHARACTER SET KANJI NOT NULL,
TYPE_CHAR2_NULL CHARACTER (10) CHARACTER SET KANJI ,
TYPE_VARCHAR1 VARCHAR (10) CHARACTER SET ISO88591 NOT NULL,
TYPE_VARCHAR1_NULL VARCHAR (10) CHARACTER SET ISO88591 ,
TYPE_VARCHAR2 VARCHAR (10) CHARACTER SET KANJI NOT NULL,
TYPE_VARCHAR2_NULL VARCHAR (10) CHARACTER SET KANJI ,
TYPE_NCHAR_F NATIONAL CHARACTER (10) NOT NULL,
TYPE_NCHAR_F_NULL NATIONAL CHARACTER (10) ,
TYPE_NCHAR_V NATIONAL CHARACTER VARYING (10) NOT NULL,
TYPE_NCHAR_V_NULL NATIONAL CHARACTER VARYING (10) ,
TYPE_COB_PICX1 PIC X(10) CHARACTER SET ISO88591 NOT NULL,