Page History

Partition multilingual languages are processed in the Work With Partition Multilingual Attributes menu item. The two values, IBM i EBCDIC CCSID and Windows ANSI code page are stored in F60CHR in DC@F60.

...

...

Any future references to F60CHR (or X60CHR) in this section is referring to the IBM i EBCDIC CCSID and Windows ANSI code page values specified for a language.

...

This table is formatted as follows:

On IBM i the fallback position is the same table as for Windows, using the IBM i CCSID. But prior to that an algorithm is used to obtain a best default CCSID if possible. The algorithm is currently as follows and may be changed at any time by LANSA.

...

     static void GetCCSID( char * pvchLanguage, UTC_CodePage * pCodePage )
     {
 

...

        Get the job CCSID
 
        /*

...

 Check if the Job CCSID overides the default */

...

        if ( JobCCSID == 500 || JobCCSID == 1148 )
        {
           if ( language is one of FRB, FRC, DEU, DUT, FIN, ITL, NOR, POR, SWE or SFRA)
           {
              Set codepage to the Job CCSID (500 or 1148)
           }
        }
 
        if ( language is ENG )
        {
           if ( JobCCSID == 285 || JobCCSID == 37 || JobCCSID == 1146 || 
                JobCCSID == 500 || JobCCSID == 1148 )
           {
              Set codepage to the Job CCSID
           }
           else
           {
              Set codepage to 1140
           }
        }
        else if ( language is FRA )
        {
           if ( JobCCSID == 297 || JobCCSID == 500 || JobCCSID == 1148 )
           {
              Set codepage to the Job CCSID
           }
           else
           {
              Set codepage to 1147
           }
        }
        else if ( language is ESP )
        {
           if ( JobCCSID == 284 || JobCCSID == 500 || JobCCSID == 1148 )
           {
              Set codepage to the Job CCSID
           }
           else
           {
              Set codepage to 1145
           }
        }
        else if ( language is JPN )
        {
           /* This is a workaround for QLGRTVDC which returns 5026 unless the 
              QTQ_DEFAULT_CCSID environment variable is explicitly set to 5035 */
           if ( JobCCSID == 5035 )
           {
              Set codepage to the Job CCSID
           }
        }
      
        if ( codepage has been set )
        {
           return;
        }
 
        /* Convert LANSA Lang Id -> IBM I  Lang Id */
        if (language code found in table)
        {
             Set codepage to the CCSID in the table.
             Set IBM i language code to the value in the table (i.e. map from LANSA to IBM)
           }
        }
        else
        {
           Set IBM i language code to the LANSA language code.
        }
         if ( IBM i language code is a valid IBM language code )
        {
           /* QLGRTVDC only works on systems >= V5R2 */
           P8601_GetOSReleaseNumber( &releaseNo, &chRetCode );
 
           if  ( release >= V5R2 use IBM language code to obtain the "Input CCSID")
           {         Set codepage to the Input CCSID
           }
           /* else the default will be used as set above when language code found in */
           /* Note that if the language code is NOT found in the table and the OS400 */
           /* release is BEFORE V5R2 then the codepage is not set. This implies that */
           /* in this case an override MUST be provided in F60CHR.                   */
        }
        else
        {
           /* Unrecognised language requested. Use default JobCCSID. No distinction
              is required at the moment between LLL (special language code) and
              other unrecognised language codes */
 
           if ( JobCCSID != 0 )
           {
              Set codepage to the Job CCSID
           }
           else
           {
              Set codepage to 1140
           }
 
           if ( language is not LLL )
           {         if ( message not yet issued for this language )
              {
                 Issue log message 
                          "Language code not recognised: %s. Using default Job CCSID %ld",
                          vchISeriesLang,
                          *pCodePage );
              }
           }
        }