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

["Wilt, Charles" <WiltC@xxxxxxxxxx>]

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.