Re: replication in array initialization

Gene,

not in front of a machine I can do mi in right now

but won't that ol' <20|b> work or is that too stupid?
additionally *(1)"b looks pretty grand looking at what you wrote, you answered your own question didnt you?

It is friday, Gene..............settle down.............LOL


Ron 




----------------------------------------
> To: MI400-Zwy7GipZuJhWk0Htik3J/[email protected]
> From: Gene_Gaunt-GDFlLPZ4eRKEK/[email protected]
> Date: Fri, 13 Oct 2006 13:07:04 -0400
> Subject: [MI400] replication in array initialization
> 
> I noticed MI seems to interpret replication differently between array and
> non-array initializations, for example:
> 
> DCL DD A    CHAR(6) INIT(*(1)(2)"a", *(3)(4)"b");
> DCL DD B(6) CHAR(6) INIT(*(1)(2)"a", *(3)(4)"b");
> 
> this results in A:
> 
> "aabbbb"
> 
> and results in B:
> 
> "a     "
> "a     "
> "b     "
> "b     "
> "b     "
> "b     "
> 
> I'm looking for a way to initialize first element in array B to "aaaaaa" by
> specifying the "a" once, with replication factor 6.
> 
> Is this possible?
> 
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400-Zwy7GipZuJhWk0Htik3J/[email protected]
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/mi400
> or email: MI400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.
> 

_________________________________________________________________
Try the new Live Search today! 
http://imagine-windowslive.com/minisites/searchlaunch/?locale=en-us&FORM=WLMTAG 
_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.