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-31
Selecting From a UCS2 Character Set Into a
VARCHAR Host Variable
Selecting From a UCS2 Character Set Into a VARCHAR Host
Variable
This example selects from a UCS2 character set into a VARCHAR host variable with
the same length:
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
...
01 hv-empnum PIC X(3) CHARACTER SET IS UCS2.
01 hv-empname.
03 len PIC S9(4) COMP.
03 val PIC X(20) CHARACTER SET UCS2.
01 hv-city.
03 len PIC S9(4) COMP.
03 val PIC X(15) CHARACTER SET UCS2.
...
EXEC SQL END DECLARE SECTION END-EXEC.
...
* select VARCHAR ucs2 column to VARCHAR UCS2 host variables with
the same length
EXEC SQL
select empnum,empname,city into :hv-empnum,
:hv-empname,:hv-city
from staff_uc
where empnum < _ucs2'E8' and grade = 10
END-EXEC.
* use the value in hv_empnum, hv_empname, and hv_city
...
Fetching From a UCS2 Character Set into a VARCHAR Host
Variable
This example shows a FETCH operation from a UCS2 character set into a VARCHAR
host variable:
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
...
01 hv-empnum PIC X(3) CHARACTER SET IS UCS2.
01 hv-empname.
03 len PIC S9(4) COMP.
03 val PIC X(20) CHARACTER SET UCS2.
01 hv-grade PIC S9(4) DISPLAY SIGN LEADING SEPARATE.
01 hv-city.
03 len PIC S9(4) COMP.
03 val PIC X(15) CHARACTER SET UCS2.
01 hv-cnt PIC S9(4) COMP.
...
EXEC SQL END DECLARE SECTION END-EXEC.