RE: RPG400 to RPG IV conversion - INFDS

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

As I mentioned, I haven't taken the time to fully analyze the programs, and
I wouldn't doubt if the field is referenced prior to any output.  And yes,
the DS is referenced in the F-spec, thank you, sorry I didn't include the
source defining this.  I'll see if I can find a moment to verify when the
CURLN field is being referenced.  I know it's in a level break subroutine.
I'll keep you informed...

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

                It almost looks as if the program is referring to CURLN
before outputting 
                any print lines.  Is that a possibility?  Alternately, make
sure that the 
                data structure is linked to the printer F spec with a INFDS
keyword.  I use 
                this sort of stuff a lot and have never noticed a problem,
from V3R1 on.

                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