RE: Data area - not working

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Also, you need to use the IN/OUT opcodes to read the data are into the
program.  Gosh I hate data areas!

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of James R. Newman, CDP
Sent: Thursday, July 29, 2004 11: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.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.