RE: What's wrong with this picture?

["Bob Cozzi" <cozzi@xxxxxxxxx>]

To "fix it" I've had to remove INZ(*EXTDFT) and use only INZ.
Not sure why there'd be an error since there are no external default values
explicitly specified.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bob Cozzi
Sent: Tuesday, August 03, 2004 5:35 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: What's wrong with this picture?

No I didn't.
The compiler generated that value.
I only have:

 D  WHATEVER   E DS       EXTNAME(MYFILE) QUALIFIED INZ(*EXTDFT)

-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Joe Pluta
Sent: Tuesday, August 03, 2004 5:44 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: What's wrong with this picture?

> From: Bob Cozzi
> 
> So is this a compiler bug?

Nope.

> 000014=D DPFRT                          2S 2 INZ (0)
> *RNF3496 20 a     4000014  Initialization value exceeds maximum
literal
> length;

You specified a variable with no digits to the left of the decimal
point, and then specified an initialization value with one digit to left
of the (implied) decimal point.

Try INZ(.0), it will work like a charm.

Joe

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