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

True, the error certainly seems to be more of assignment time problem.

However, a quick test...

d CalledProgram...
d pr extpgm('CALLEDPGM')
d parm1 4b 0

d p1 s 4b 0

/free
CalledProgram(p1);
if p1 < 0;
dsply 'Less than 0';
endif;
*inlr = *ON;
return;
/end-free


d CalledProgram...
d pr extpgm('CALLEDPGM')
d parm1 5i 0

d CalledProgram...
d pi
d parm1 5i 0

c eval parm1 = -20000
c return


Gives a RNQ0103 - The target for a numeric operation is too small to hold the result (C G D F). On the
comparison line, "if p1 < 0;".

I think the comparison requires some assignment behinds the sences to convert between binary and
packed formats as RPG doesn't operate on Binary data types.

HTH,

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 David Gibbs
Sent: Monday, July 28, 2008 11:18 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: MCH1201 (Rcvr too small) on an _if_ statement???

Wilt, Charles wrote:

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

Yeah, but wouldn't you expect the error to occur on the assignment and not
on a comparison?

david

--
IBM i on Power - For when you can't afford to be out of business
--
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.