RE: Data area - not working

[mwalter@xxxxxxxxxxxxxxx]

You're defining a Data Structure, which by default is initialized to
blanks. Is this RPGIII?

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


                                                                                
                                                        
                      "Bob Cozzi"                                               
                                                        
                      <cozzi@xxxxxxxxx>         To:       "'RPG programming on 
the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>            
                      Sent by:                  cc:                             
                                                        
                      rpg400-l-bounces@m        Subject:  RE: Data area - not 
working                                                   
                      idrange.com                                               
                                                        
                                                                                
                                                        
                                                                                
                                                        
                      07/29/2004 01:56                                          
                                                        
                      PM                                                        
                                                        
                      Please respond to                                         
                                                        
                      RPG programming on                                        
                                                        
                      the AS400 /                                               
                                                        
                      iSeries                                                   
                                                        
                                                                                
                                                        
                                                                                
                                                        




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.



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