|
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Wilt, Charles
Sent: Monday, July 28, 2008 10:59 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: MCH1201 (Rcvr too small) on an _if_ statement???
-----Original Message-----bounces@xxxxxxxxxxxx]
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
On Behalf Of Walden H. Leverich
Sent: Monday, July 28, 2008 10:33 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: MCH1201 (Rcvr too small) on an _if_ statement???
what value did Pet_Name_Ind have in it on error
Unknown. No dump was taken. But given that it's a 2B0, is there any
value that would be "invalid"? We can't think of one.
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.
From the manual:"If the length of the field is from one to four digits, the compiler
assumes a binary field length of
2 bytes."
"the highest decimal value that can be assigned to a 2-byte binary field
is 9999"
Should have said this before, Pet_name_ind is the null indicator (select
into :hostvar:nullind) from a sql statement.
I wouldn't expect to see garbage in it.
While the manual does say to use 2b0, does 5i0 work?
It's been a while since I needed the null indicator, but I don't recall
needed the binary data type.
My understanding is that anyplace Binary is used, Integer will work.
Charles
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
