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-32
Fetching From a UCS2 Character Set into a
VARCHAR Host Variable
....
* select UCS2 columns into host variable
EXEC SQL
declare cursor_fetch_ucs2_varchar cursor for
select * from staff_uc order by empnum
END-EXEC.
EXEC SQL open cursor_fetch_ucs2_varchar END-EXEC.
EXEC SQL fetch cursor_fetch_ucs2_varchar into
:hv-empnum,:hv-empname, :hv-grade,:hv-city
END-EXEC.
PERFORM UNTIL SQLSTATE NOT = SQLSTATE-OK
* process the output values :hv-empnum, :hv-empname,:hv-grade,
* and :hv-city
EXEC SQL FETCH cursor_fetch_ucs2_varchar INTO
:hv-empnum,:hv-empname,:hv-grade,:hv-city
END-EXEC.
END-PERFORM.
...