Re: Data area - not working

[RPower@xxxxxxxxxx]

That explains the question I had then.  Forgot about the 'U' and *LDA.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




RPower@xxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
29/07/2004 02:46 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Data area - not working






How come the dump shows the data area as Char?  Perhaps that's the issue?

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"James R. Newman, CDP" <newman400@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
29/07/2004 01:58 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG List" <RPG400-L@xxxxxxxxxxxx>
cc

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.




This OutBound email has been scanned for Viruses
--
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.




This OutBound email has been scanned for Viruses