× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.