RE: Array/ Data Deciamal

["Hopkins, Bill" <BHopkins@xxxxxxxxxxxxx>]

Hey All,

That what you get when you don't breath for hours. Sorry everyone.
Thanks for help. What I thought was happening wasn't.
It was the "I" on DS. Z-add never happening, I thought
it was, because it wasn't, blanks still there because of no "I". That's when
the
 ASS-U-ME ing began. And I thought z-add wasn't working. Stop/breath/listen
to reason.

Thanks for not letting me get to far in my re-inventing of how things work
in RPGII.

Thanks Again,
Bill H.


-----Original Message-----
From: Barbara Morris [mailto:bmorris@ca.ibm.com]
Sent: Tuesday, November 05, 2002 1:39 PM
To: rpg400-l@midrange.com
Subject: Re: Array/ Data Deciamal


"Hopkins, Bill" wrote:
> ...
> I            DS
> I                                        1 130 AR
> I                                        1  130AAACT1
> I                                       14  260AAACT2
> ...
> Thanks for "I in the 'type of data structure' column" but DS  1 130 AR is
> 130 alpha. Sub fields
> numeric. Would "I" move in blanks or zeros.
> and AR Array is numeric 10 130. ?? Could I move AR 1 130 below Sub fields?
> ...

Bill, the initialization is done in the order that the subfields are
coded.  If AR was really alpha, and you moved AR below the subfields,
the AR character initialization of blanks would "win" and you would have
the problem you're having now.  With AR first, the numeric subfields win
and they get initialized to numeric.

But AR is numeric because of the E spec, even though it looks like it's
alpha in the DS.  So, since all the subfields are numeric, it doesn't
matter whether AR is first or last.

(I would code the 0 decimal positions on the AR array to make it clearer
that AR is numeric.)


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.