SQL/MP Programming Manual for COBOL

Host Variables
HP NonStop SQL/MP Programming Manual for COBOL—529758-003
2-17
COBOL Record Descriptions
When you use the INVOKE directive to generate host variables, the HP COBOL
compiler writes a COBOL data description for each column in the specified table or
view. In some cases, however, the compiler must convert an SQL column name or
data type as described:
* Record Definition for table \NEWYORK.$DISK1.SQL..TYPECOB2
* Definition current at 15:55:38 - 10/10/94
01 TYPES-REC2.
02 TYPE-CHAR1 CHARACTER SET "ISO88591" PIC X(10).
02 TYPE-CHAR1-NULL-I PIC S9(4) COMP.
02 TYPE-CHAR1-NULL CHARACTER SET "ISO88591" PIC X(10).
02 TYPE-CHAR2 CHARACTER SET "KANJI" PIC X(10).
02 TYPE-CHAR2-NULL-I PIC S9(4) COMP.
02 TYPE-CHAR2-NULL CHARACTER SET "KANJI" PIC X(10).
02 TYPE-VARCHAR1.
03 LEN PIC S9(4) COMP.
03 VAL CHARACTER SET "ISO88591" PIC X(10).
02 TYPE-VARCHAR1-NULL-I PIC S9(4) COMP.
02 TYPE-VARCHAR1-NULL.
03 LEN PIC S9(4) COMP.
03 VAL CHARACTER SET "ISO88591" PIC X(10).
02 TYPE-VARCHAR2.
03 LEN PIC S9(4) COMP.
03 VAL CHARACTER SET "KANJI" PIC X(10).
02 TYPE-VARCHAR2-NULL-I PIC S9(4) COMP.
02 TYPE-VARCHAR2-NULL.
03 LEN PIC S9(4) COMP.
03 VAL CHARACTER SET "KANJI" PIC X(10).
02 TYPE-NCHAR-F CHARACTER SET "KANJI" PIC X(10).
02 TYPE-NCHAR-F-NULL-I PIC S9(4) COMP.
02 TYPE-NCHAR-F-NULL CHARACTER SET "KANJI" PIC X(10).
02 TYPE-NCHAR-V.
03 LEN PIC S9(4) COMP.
03 VAL CHARACTER SET "KANJI" PIC X(10).
02 TYPE-NCHAR-V-NULL-I PIC S9(4) COMP.
02 TYPE-NCHAR-V-NULL.
03 LEN PIC S9(4) COMP.
03 VAL CHARACTER SET "KANJI" PIC X(10).
02 TYPE-COB-PICX1 CHARACTER SET "ISO88591" PIC X(10).
02 TYPE-COB-PICX1-NULL-I PIC S9(4) COMP.
02 TYPE-COB-PICX1-NULL CHARACTER SET "ISO88591" PIC X(10).
02 TYPE-COB-PICX2 CHARACTER SET "KANJI" PIC X(10).
02 TYPE-COB-PICX2-NULL-I PIC S9(4) COMP.
02 TYPE-COB-PICX2-NULL CHARACTER SET "KANJI" PIC X(10).
Example 2-2. COBOL Record Descriptions Generated by the INVOKE
Directive (page2of2)