Hi all

Db2 v7
Cobol 3.2
z/OS 1.4

I have a table defined as UNICODE containing graphic field.
Good news - after appliying some PTFs I'm able to select from the table using SPUFI,DSNTEP2 & DSNTIAUL. The data is shown in unreadable chars. + I get warnings 0 and 8 in sqlca.
Bad news - I'm unable to select the graphic data from the table using cobol program. Each time I try, I get "-332 char cnvrsn btween CCSID 01200 to 65534 requested by DSNXROUA is not supported". This happens in batch and in online programs. The programs are compiled using DB2/COBOL preprocessor.

The package of the program is bound with EBCDIC (424) codepage

the following DSNHDECM macro is the one applied in our DB2:
DSNHDECM CHARSET=ALPHANUM,
ASCCSID=1255,
AMCCSID=65534,
AGCCSID=65534,
SCCSID=424,
MCCSID=65534,
GCCSID=65534,
USCCSID=367,
UMCCSID=1208,
UGCCSID=1200,
ENSCHEME=EBCDIC,
APPENSCH=EBCDIC,
DATE=ISO,
DATELEN=0,
DECARTH=DEC31,
DECIMAL=PERIOD,
DEFLANG=IBMCOB,
DELIM=DEFAULT,
MIXED=NO,
SQLDELI=DEFAULT,
DSQLDELI=APOST,
SSID=DBD0,
STDSQL=NO,
TIME=ISO,
TIMELEN=0,
DYNRULS=YES,
LC_CTYPE=,
COMPAT=OFF
END

Also Unicode Translation Services are activated in OS:
/D UNI,ALL
RESPONSE=MVSE
CUN3000I 11.43.39 UNI DISPLAY 135
ENVIRONMENT: CREATED 01/28/2006 AT 11.00.57
MODIFIED 02/09/2006 AT 14.58.31
IMAGE CREATED 02/09/2006 AT 14.55.00
SERVICE: CHARACTER NORMALIZATION CASE
STORAGE: ACTIVE 84 PAGES
INACTIVE 83 PAGES SINCE 02/09/2006 AT 14.58.31
LIMIT 2560 PAGES
CASECONV: NONE
NORMSERV: DISABLED
CONVERSION: 00424-00367- 00424-01200(13488)-
00424-01208- 00424-01255-
00367-00424- 00367-01200(13488)-
00367-01208- 00367-01255-
01200(13488)-00424- 01200(13488)-00367-
01200-01208- 01200(13488)-01255-
01208-00424- 01208-00367-
01208-01200- 01208-01255-
01255-00424- 01255-00367-
01255-01200(13488)- 01255-01208-
00424-00367-ER 00424-01200(13488)-ER
00424-01208-ER 00424-01255-ER
00367-00424-ER 00367-01200(13488)-ER
00367-01208-ER 00367-01255-ER
01200(13488)-00424-ER 01200(13488)-00367-ER
01200-01208-ER 01200(13488)-01255-ER
01208-00424-ER 01208-00367-ER
01208-01200-ER 01208-01255-ER
01255-00424-ER 01255-00367-ER
01255-01200(13488)-ER 01255-01208-ER

Thanks for the help.
Dima

Problem solved

exec-sql
declare :host_graphic variable CCSID 1200;
end-exec.
was missing...

hope this will help someone.
Dima