RE: MCH1201 (Rcvr too small) on an _if_ statement???

Barbara,

While I wouldn't normally argue with you, the manual specifically says:

"A binary field can be from one to nine digits in length and can be defined with decimal positions. If
the length of the field is from one to four
digits, the compiler assumes a binary field length of 2 bytes."

Perhaps I phrased it wrong, however what I was getting at was that 2b0 took two bytes instead of the
one byte you'd think it would.

Since 2b0 and 4b0 both take two bytes, you'd have to replace either with 5i0 instead of 3i0 for 2b0
that you'd (or at least I) expected.

Interesting that while RPG supports a 1-byte integer, neither DDS and SQL do.

Sorry for the confusion.

Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Barbara Morris
Sent: Monday, July 28, 2008 2:31 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: MCH1201 (Rcvr too small) on an _if_ statement???

Wilt, Charles wrote:

Actually there are lots of invalid values for a 2B0 varible.

2b0 is treated as 4b0 (two bytes), and 4b0 is _NOT_ the same as 5i0 (two

bytes).

5i0 has a range, -32768 to 32767
4b0 has a range, -9999 to 9999.

Actually, 2b is treated as 2b, and the range is -99 to 99.

Walden, I'm pretty sure that SQL supports the SQL null-indicator
variables being defined as 5I. Using 5I would avoid the RPG numeric
overflow problem.

Just guessing now ... is the Pet_Name_Ind variable in a data structure,
and it was used before it was set? If so, it might have the default DS
initialization value of blanks, x'4040' which is the integer value
16448. More guessing, that the SQL SELECT didn't find a record, and
further guessing that embedded SQL doesn't update the host variables
when it doesn't find a record.



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