RE: Numeric Fields.

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Yes, in RPGIII you avoid using the data-type on the Data Structure subfield
specifications, but you included a decimal size.
IMYDS       DS
I                                 1    3P0MYPKD
I                                 4    8 0MYZOND

The first subfield is packed, the second subfield is Zoned.
(My subtle point is, don't use "ad hoc" field definitions.)
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Venkateshwar V
Sent: Wednesday, May 26, 2004 7:57 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Numeric Fields.


But is there a way I can define a variable as zoned ? Because if I am
defining it using Z-Add *Zeros 4,0 it takes it as packed by default.
Why so ?

Regards,
Venky.
----- Original Message -----
From: "Bob Cozzi" <cozzi@xxxxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, May 26, 2004 6:08 PM
Subject: RE: Numeric Fields.


> Because you (most likely) didn't include the "P" data type in the
Data
> Structure subfield definition.
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Venkateshwar V
> Sent: Wednesday, May 26, 2004 7:11 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Numeric Fields.
>
> Hi,
>
> It is just out of curiosity that I am asking this question. If I
define a
> numeric variable in RPG400 using *LIKE DEFINE (the source field is
zones) or
> Z-ADD *Zeros #X with attributes 4,0 it gets defined as packed. But
If I were
> to define a field as datastructure subfield with same attributes
using a
> datastructure it gets defined as zoned.
>
> Can anyone please explain how and why this happens ?
>
> Reagrds,
> Venky
> _______________________________________________
> 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.
>


Confidentiality Notice 

The information contained in this electronic message and any attachments to
this message are intended
for the exclusive use of the addressee(s) and may contain confidential or
privileged information. If
you are not the intended recipient, please notify the sender at Wipro or
Mailadmin@xxxxxxxxx immediately
and destroy all copies of this message and any attachments.
_______________________________________________
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.