RE: VarChar problem

Just some additional info...

Found a message from Barbara Morris that says:
"You probably don't want to specify any CVTOPT. CVTOPT is really there
for converted RPG/400 programs that had to use CVTOPT to get those
fields into the program. CVTOPT makes the fields come into the program
as ordinary character (as opposed to varying or date, or whatever the
original type was)."

So for future reference, with an original RPG IV program, you're not going to
want to use CVTOPT at
all.

HTH,
Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Monday, May 21, 2007 12:18 PM
To: RPG programming on the AS400 / iSeries
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.

--
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.