RE: VarChar problem

That was the problem. We have CVTOPT(*VARCHAR) as the default for
compiling. I guess I didn't understand what that did. I thought that you
needed that whenever you had a varying field in the program.

Thanks Charles.

Matt Hopkins
Sr. Programmer/Analyst
Web: www.pdpgroupinc.com
Email: MWHopkins@xxxxxxxxxxxxxxx
Office: 410-584-0330
Fax: 410-584-0336





"Wilt, Charles" <WiltC@xxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/21/2007 12:17 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: VarChar problem






Matt,

Why are you using CVTOPT(*VARCHAR)?

I've never needed it that I can recall.

CVTOPT(*VARCHAR), converts variable length fields to fixed length. Seeing
as RPG IV supports varying,
why would you bother?

Try taking it out.

HTH,
Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
MWHopkins@xxxxxxxxxxxxxxx
Sent: Monday, May 21, 2007 11:41 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: VarChar problem

I am having a problem with a program that is using externally
described varchar fields. It appears that the program is not
recognizing that the fields are varchar, even though the
program is compiled with CVTOPT(*VARCHAR).

The compile listing shows that it is a variable length
character field (70 is the max):

1035=O FTCCM3 562A CHAR
72 FTC
COMMENT 3

External data type is Variable Length Character.


But when I try to write to this file I get a data mapping
error for reason
14: "14 -- The length of a variable length field is not valid"

I am not moving anything to these fields in the program. I clear the
record format, then fill other data elements but do nothing
with these
variable fields.

In testing, I moved a single character 'z' to these fields
and it put the
'z' in the first position of the field (where the index should go).

C Eval FTCCM3 = 'z'
C Eval FTCCM4 = 'z'
C Eval FTCCM5 = 'z'

FTCCM3 CHAR(72) 'z '
VALUE IN HEX
'A940404040404040404040404040404040404040404040404040404040404
0404040404040404040'X

41
'4040404040404040404040404040404040404040404040404040404040404040'X
FTCCM4 CHAR(72) 'z '
VALUE IN HEX
'A940404040404040404040404040404040404040404040404040404040404
0404040404040404040'X

41
'4040404040404040404040404040404040404040404040404040404040404040'X
FTCCM5 CHAR(72) 'z '
VALUE IN HEX
'A940404040404040404040404040404040404040404040404040404040404
0404040404040404040'X

41
'4040404040404040404040404040404040404040404040404040404040404040'X

This program was working fine until we re-compiled it. It was
previously
compiled in release v5r2m0 and now we are at v5r4m0.


Matt Hopkins
Sr. Programmer/Analyst
Web: www.pdpgroupinc.com
Email: MWHopkins@xxxxxxxxxxxxxxx
Office: 410-584-0330
Fax: 410-584-0336

--
This is the RPG programming on the AS400 / iSeries (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.

This e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not a
named addressee you are hereby notified that you are not authorized to
read, print, retain, copy or disseminate this communication without the
consent of the sender and that doing so is prohibited and may be unlawful.
Please reply to the message immediately by informing the sender that the
message was misdirected. After replying, please delete and otherwise
erase it and any attachments from your computer system. Your assistance
in correcting this error is appreciated.