Re: CPF5035 Data mapping error

[Alan Campin <alan0307d@xxxxxxxxx>]

Not sure what your issue is. We have a bunch of programs reading and writing
VarChar's. We use SQL to do the processing. Are you using SQL or File I/O?

Should be no issues reading or writing to a varchar field.

On Fri, Jan 15, 2010 at 11:49 AM, Gundermann, Glenn / Kuehne + Nagel / Tor
ZI-A <Glenn.Gundermann@xxxxxxxxxxxxxxxx> wrote:

> Hi folks,
>
> I searched the archives and didn't find anything to help me with my error
> so now that I have figured it out, I thought I would send this in case it
> might help someone in the future.
>
> I have a DDL-described table, and among other columns, have one defined as
> follows:
> PONUMBERS  VARCHAR(760) CCSID 37 NOT NULL
>
> I found that I needed the following control-spec in my rpg module:
> h cvtopt(*novarchar)
>
> because without this, the rpg dump listing showed that PONUMBERS was CHAR
> and not VCHAR.
>
> So even if my getPOs procedure returns varying-length data:
> D getPOs          PI           760a   varying
> D   orderType                    4a   const
> D   orderNumber                 17a   const
>
> The following statement moves the returned data into a character field,
> which then causes an error when writing to the database file.
> poNumbers = getPOs(orderType: orderNumber);
>
> The control-spec fixed it.
>
> Happy computing.
>
> Glenn Gundermann
> Work: 905-501-6596
> Cell: 416-317-3144
>
> To learn more about Kuehne + Nagel Ltd, please visit our website at:
> www.kuehne-nagel.com For the Kuehne + Nagel email disclaimer, visit:
> http://www.kn-portal.com/material/Electronic_Email_Disclaimer_English_French.pdf
>
>
>
> Visitez le site internet de Kuehne + Nagel Lt?e: www.kuehne-nagel.comNotre d?charge de responsabilit? est disponible comme suit:
> http://www.kn-portal.com/material/Electronic_Email_Disclaimer_English_French.pdf
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.