Re: Rename fields in "I" specs? -- RPG400-L


On 17/01/2007, at 3:14 AM, David Gibbs wrote:

I've got a program that is trying to write double byte data.


Make sure you create the data from a job with a compatible DBCS CCSID.

The file has a CCSID of 937, and has one field that is defined as "O"in
the DDS.  The O field has a CCSID of 937.  There are a bunch of regular
"A" fields that have a CCSID of 37.

Then the job processing the data should also be running in CCSID 937(or at least another compatible DBCS CCSID).

When we process English data the program works fine ... but when we try
to write double byte data, we get a CPF5035 with a reason code of 22.
The data in the field appears to be completely normal (DBCS wise).  It

has a shift in, a bunch of double byte data, a shift out, then a fewblanks.

Read your last sentence again. The data should have: Shift-Out,DBCS-data, Shift-In

Conceptually backwards but you shift OUT of SBCS mode into DBCS andthen shift back IN to SBCS. In other words: X'0e' then DBCS data thenX'0f'.

This reason code also indicates a substitution character (X'3f') mayhave be found in the data. If so then it can't be convertedsuccessfully because it's real value has already been lost by aprevious conversion.


The only thing that is odd about the record that we're trying to write
is that some of the fields are renamed via I specs (although not the

field with the double byte data in it). To answer Tommy's question,the

program is pretty old and there hasn't been a reason to change it (till
now, maybe).

Doubt it has anything to do with the renaming. Is the "reason for thechange" the requirement to process DBCS data? If so then I suspect theCCSID of the job is wrong or the data itself is wrong.


Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         OS/400, i5/OS Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------