RE: RPG400 to RPG IV conversion - INFDS

["Erickson, Jon" <JonErickson@xxxxxxxxxxxxxxxxxxxx>]

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
:       :
0345.00 C                   IF        Curln >= 56   
0346.00  /SPACE                                     
0347.00 C                   IF        Prt = 'YS'    
0348.00 C                   EVAL      *INOA = *ON   
0349.00 C                   ENDIF                   
0350.00  /SPACE                                     
0351.00 C                   ELSE                    
0352.00  /SPACE                                     
0353.00 C                   IF        Prt = 'YS'    
0354.00 C                   EXCEPT    Cuss          
0355.00 C                   ENDIF                   
0356.00  /SPACE                                     
0357.00 C                   EVAL      *INOA = *OFF  
0358.00 C                   ENDIF

+++++++++++++++++++++
PRNT                  DS                                             
  CURLN               BIN(4,0)             6448.            '4040'X

+++++++++++++++++++++

I'm not sure of all the options used for the CRTBNDRPG or even if it would
change anything.  Also I haven't done an in depth analysis of the code
sequence, (of when Curln is  referenced in relation to an output OPCODE).
Any insight is greatly appreciated.

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


                -----Original Message-----
                From:   Buck Calabro/commsoft [mailto:mcalabro@commsoft.net]
                Sent:   Thursday, January 21, 1999 11:38 AM
                To:     RPG400-L@midrange.com
                Subject:        RPG400 tp RPG IV was: Using a display file
in a batch environment


                Jon Erikson wrote:
                >I've encountered another small conversion problem. 
                >In the open feedback information for a print file, 
                >fields with the internal data type of Binary
                >do not get converted to Integer.

                Jon,
                  I use binary numbers all the time in RPG400 and RPG IV,
and never have a 
                problem with the conversion.  Here's the RPG400:
                IPRTDS       DS 
                I                                    B 367 3680CURLIN 
                I                                    B 369 3720CURPAG 

                and here's the RPG IV:
                D PRTDS           DS 
                D  CURLIN               367    368B 0 
                D  CURPAG               369    372B 0 

                The values are exactly the same in both versions for me (I
just tested it 
                in debug to be sure!)
                What problems are you seeing?

                Buck Calabro
                CommSoft, Albany, NY
                mailto:mcalabro@commsoft.net

                * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * *
                * 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