SQL/MX Programming Manual for C and COBOL (G06.24+, H06.03+)

Host Variables in COBOL Programs
HP NonStop SQL/MX Programming Manual for C and COBOL—523627-004
4-25
COBOL Record Descriptions Generated by INVOKE
Example 4-3 shows the record generated by this INVOKE directive:
EXEC SQL INVOKE sqlcob_data AS SQLCOB-TYPES-REC END-EXEC.
Example 4-3. COBOL Record Description Generated by INVOKE (page 1 of 2)
* Record Definition for table SQLCOB_DATA
01 SQLCOB-TYPES-REC.
02 SYSKEY-I PIC S9(4) COMP.
02 SYSKEY PIC S9(18) COMP.
02 TYPE-CHAR PIC X(10).
02 TYPE-CHAR-NULL-I PIC S9(4) COMP.
02 TYPE-CHAR-NULL PIC X(10).
02 TYPE-UCS2-CHAR PIC X(20).
02 TYPE-UCS2-VARCHAR.
03 LEN PIC S9(4) COMP.
03 VAL PIC X(20).
02 TYPE-PICX 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-PICCOMP4-S PIC S9(2)V9(2) COMP.
02 TYPE-PICCOMP4-U PIC 9(2)V9(2) COMP.
02 TYPE-PICCOMP9-S PIC S9(7)V9(2) COMP.
02 TYPE-PICCOMP9-U PIC 9(7)V9(2) COMP.
02 TYPE-PICCOMP18-S PIC S9(16)V9(2) COMP.
02 TYPE-DEC4-S PIC S9(4) DISPLAY SIGN LEADING
SEPARATE.
02 TYPE-DEC4-U PIC 9(4) DISPLAY.
02 TYPE-DEC9-S PIC S9(7)V9(2) DISPLAY SIGN LEADING
SEPARATE.