RE: Data area - not working

["Mañoso, Carl" <ManosoCS@xxxxxxxxxxxxxxxxx>]

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.