SQL/MP Programming Manual for COBOL85

Host Variables
HP NonStop SQL/MP Programming Manual for COBOL85—429326-004
2-15
COBOL Record Descriptions
These INVOKE directives are coded in a COBOL source file:
EXEC SQL BEGIN DECLARE SECTION;
EXEC SQL
INVOKE \NEWYORK.$DISK1.SQL.TYPECOB1 AS TYPES-REC1 END-EXEC.
EXEC SQL
INVOKE \NEWYORK.$DISK1.SQL.TYPECOB2 AS TYPES-REC2 END-EXEC.
EXEC SQL END DECLARE SECTION;
Example 2-2 shows the record descriptions generated by the INVOKE directives.
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 ;
Example 2-2. COBOL Record Descriptions Generated by the INVOKE
Directive (page1of2)
* Record Definition for table \NEWYORK.$DISK1.SQL.TYPECOB1
* Definition current at 15:55:34 - 10/10/94
01 TYPES-REC1.
02 TYPE-CHAR PIC X(10).
02 TYPE-VARCHAR.
03 LEN PIC S9(4) COMP.
03 VAL PIC X(10).
02 TYPE-NUM4-S PIC S9(4) COMP.
02 TYPE-NUM4-U PIC 9(4) COMP.
02 TYPE-NUM9-S PIC S9(7)V9(2) COMP.
02 TYPE-NUM9-U PIC 9(7)V9(2) COMP.
02 TYPE-NUM18-S PIC S9(16)V9(2) COMP.
02 TYPE-SMALLINT-S PIC S9(4) COMP.
02 TYPE-SMALLINT-U PIC 9(4) COMP.
02 TYPE-INT-S PIC S9(9) COMP.
02 TYPE-INT-U PIC 9(9) COMP.
02 TYPE-LARGEINT-S PIC S9(18) COMP.
* TYPE-FLOAT: DOUBLE PRECISION IS NOT SUPPORTED
* TYPE-REAL: REAL IS NOT SUPPORTED
* TYPE-DOUBLE-PREC: DOUBLE PRECISION IS NOT SUPPORTED
02 TYPE-DEC-S PIC S9(16)V9(2) DISPLAY SIGN IS LEADING.
02 TYPE-DEC-U PIC 9(7)V9(2) DISPLAY.
02 TYPE-COB-PIC9 PIC 9(9) COMP.
02 TYPE-COB-PICX PIC X(10).
02 TYPE-DATETIME PIC X(26).
02 TYPE-DATE PIC X(10).
02 TYPE-TIME PIC X(8).
02 TYPE-INTERVAL PIC X(6).
02 TYPE-ZCHAR-NULL-OK-I PIC S9(4) COMP.
02 TYPE-ZCHAR-NULL-OK PIC X(10).
02 TYPE-ZNUM-NULL-OK-I PIC S9(4) COMP.
02 TYPE-ZNUM-NULL-OK PIC S9(4) COMP.
Example 2-1. CREATE TABLE Statements (page 2 of 2)