Results 1 to 2 of 2
  1. #1
    Join Date
    Nov 2005
    Posts
    2

    Unanswered: UNICODE/COBOL problems

    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

  2. #2
    Join Date
    Nov 2005
    Posts
    2
    Problem solved

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

    hope this will help someone.
    Dima

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •