RE: Data area - not working

["Bob Cozzi" <cozzi@xxxxxxxxx>]

I'd use a user space.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of James R. Newman, CDP
Sent: Thursday, July 29, 2004 2:29 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Data area - not working

So, rather than use a data area would you create a PF with 1 or 2 records in
it?


----- Original Message ----- 
From: "Bob Cozzi" <cozzi@xxxxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, July 29, 2004 12:56 PM
Subject: RE: Data area - not working


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


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