Re: Integers with embedded SQL problem

I tested this out with the following:
CREATE TABLE ROB/thefile (THENBR DEC ( 10, 0) NOT NULL WITH DEFAULT)
Then I add a record with a value of nine 9's and run the following:
     D MyVar           s             10i 0

     C                   eval      MyVar=999999999
     C     MyVar         dsply
     C                   eval      MyVar=1000000000
     C     MyVar         dsply
     C/exec sql
     C+ select TheNbr into :MyVar from TheFile
     C/end-exec
     C     MyVar         dsply
     C                   eval      *inlr=*on

and it works.  Then I change the value in the file from nine 9's to
1,000,000,000 and it fails with a MCH1210 "Receiver value too small to hold
result."

>From the ILE RPG reference, chapter 10, page 181:
Because of these length restrictions, the highest decimal value that can be
assigned to a 2-byte binary field is 9999 and the highest decimal value
that can be
assigned to a 4-byte binary field is 999 999 999.

>From the ILE RPG reference, chapter 10, page 184:
Field length       Range of Allowed Values
10-digit integer   -2147483648 to 2147483647

Therefore I agree with you, the precompiler seems to only be converting
integer to binary.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "Andrew Lutz"
                    <alutz@pmigroup.c       To:     "<"
                    om>                     cc:
                    Sent by:                Fax to:
                    rpg400-l-admin@mi       Subject:     Integers with embedded 
SQL problem
                    drange.com


                    03/11/2002 04:11
                    PM
                    Please respond to
                    rpg400-l







All,

I have this situation where the pre-compiler insists that small integer is
4B0 and interger is 9B0

Has anyone found out how to insert the value that a small integer is
capable of (32676) via embedded SQL?




_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.