RE: RPG400 to RPG IV conversion - INFDS

Thank you Mel!

The first time this happened, I looked at the program in debug and saw the
16448 just prior to the failure and determined that the Binary defined field
was insufficient, therefore, I changed it to Integer and "assumed" the
conversion didn't handle it.

Regards,
~~~~~~~~~~~~~~~~~~~~~
Jon A. Erickson
Viking Industries, Inc.
 <http://www.vikingindustries.com> http://www.vikingindustries.com
~~~~~~~~~~~~~~~~~~~~~
 <<Jon Erickson.vcf>> 


                -----Original Message-----
                From:   mrothman@us.ibm.com [mailto:mrothman@us.ibm.com]
                Sent:   Friday, January 22, 1999 1:58 PM
                To:     RPG400-L@midrange.com
                Subject:        RE: RPG400 to RPG IV conversion - INFDS

                It appears that the problem is that binary 4,0 is a two-byte
field, which
                by definition limits the maximum decimal value to 9999.

                The field's uninitialized state of X'4040' (blanks because
it is a data
                structure subfield) is 16448 decimal.  The high-order 1 is
being dropped,
                resulting in decimal 6448.

                Here is the relevant text from the ILE-RPG reference manual
(works the same
                in "classic" RPG/400).

                Every ... binary format is assigned a field length (number
of digits) by
                the compiler.  A length of 4 is assigned to a 2-byte binary
field;...the
                highest decimal value that can be assigned to a 2-byte
binary field is
                9999... This discussion assumes zero decimal positions....
Because a
                2-byte field in binary format is converted by the compiler
to a decimal
                field with 1 to 4 digits, the input value may be too large.
If it is, the
                leftmost digit of the number is dropped. For example, if a
four digit
                binary input field has a binary value of hexadecimal 6000,
the compiler
                converts this to 24 576 in decimal. The 2 is dropped and the
result is
                4576....   you can avoid this conversion problem by defining
integer fields
                instead of binary fields.



                Mel Rothman
                IBM AS/400 Custom Technology Center
                3605 Highway 52 North
                Rochester, MN 55901

                -----Original Message-----
                From:     Buck Calabro/commsoft
[mailto:mcalabro@commsoft.net]
                Sent:     Friday, January 22, 1999 9:25 AM
                To:  RPG400-L@midrange.com
                Subject:  RE: RPG400 to RPG IV conversion - INFDS


                          Jon Erikson wrote:
                          >They compiled just fine, but when you actually
                          >reference them, the program fails with an
MCH1210,
                          >(Receiver value too small to hold result) and
                          >RNQ0103, (The target for a numeric operation is
                          >too small to hold the result (C G D F)).
                          >
                          >Here is the DS source & Dumped values:
                          >
                          >0025.00 D Prnt            DS
                          >0026.00 D Curln                 367    368b 0
                          >+++++++++++++++++++++
                          >PRNT                  DS
                          >  CURLN               BIN(4,0)             6448.
'4040'X
                          ...snip, snip


                * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * *
                * This is the RPG/400 Discussion Mailing List!  To submit a
new         *
                * message, send your mail to "RPG400-L@midrange.com".  To
unsubscribe   *
                * from this list send email to MAJORDOMO@midrange.com and
specify       *
                * 'unsubscribe RPG400-L' in the body of your message.
Questions should *
                * be directed to the list owner / operator:
david@midrange.com          *
                * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * *

Jon Erickson.vcf