|
According to the RPG/400 User's Guide: "Data structures are character data and can be from 1 to 9999 characters in length." So, I *think* you can't read numeric data areas through data area data structures (UDS). Do this instead: C Z-ADD0 AVGCLL 52 C *NAMVAR DEFN LAVGCL AVGCLL C IN AVGCLL Good luck! -- Carl Mañoso "It is all very well to be able to write books, but can you waggle your ears?" [J.M. BARRIE to H.G. WELLS] > -----Original Message----- > From: James R. Newman, CDP > Sent: Friday, July 30, 2004 12:28 AM > To: RPG List > Subject: Data area - not working > > > I'm hoping someone can take a look at this and tell me what > I'm doing wrong before I pull what's left of the rest of my > hair out. I created a data area called LAVGCL defined as follows: > > Data area: LAVGCL > Library: JIMDATA > Type: *DEC > Length: 5 2 > Text: Limit - Average Close > Value: 15.00 > > > In my RPG program I declare it as follows: > > I LAVGCL UDS > I 1 5 2 AVGCLL > > > When I attempt to run the program I get this message: > > The INQRPG *INIT data area LAVGCL type or length does not > match program data area > > > I printed the dump and it shows the following: > > AVGCLL 000256 ZONED(5,2) '4040404040'X > LAVGCL 000251 CHAR(5) ' ' > > > The problem is the blanks in a numeric field; the question is > how did they get there and what do I do to solve the problem? TIA.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.