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




Cool!

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com


|-----------------------------+-------------------------------------------|
|   "Jon Paris"               |                                           |
|   <Jon.Paris@xxxxxxxxxxxxxx>|                                           |
|                             |                                         To|
|   Sent by:                  |                                        <rp|
|   rpg400-l-bounces@midrange.|                                        g40|
|   com                       |                                        0-l|
|                             |                                        @mi|
|   07/21/2004 05:13 PM       |                                        dra|
|                             |                                        nge|
|         Please respond to   |                                        .co|
|      RPG programming on the |                                        m> |
|          AS400 / iSeries    |                                         cc|
|      <rpg400-l@xxxxxxxxxxxx>|                                           |
|                             |                                    Subject|
|                             |                                        RE:|
|                             |                                        Arr|
|                             |                                        ay |
|                             |                                        ove|
|                             |                                        rla|
|                             |                                        y  |
|                             |                                           |
|                             |                                           |
|                             |                                           |
|                             |                                           |
|                             |                                           |
|                             |                                           |
|-----------------------------+-------------------------------------------|






Mel's answer works, but I would suggest that an easier and less error prone
approach is to use a group field - i.e. do not define a length for MaxPtyA
-
it is not needed. Like so:

D  MaxPtyA
D  MaxPty1                      10i 0 Overlay(MaxPtyA)
D  MaxPty2                      10i 0 Overlay(MaxPtyA:*next)
D  MaxPty3                      10i 0 Overlay(MaxPtyA:*next)
etc. etc.

The compiler will work out the size of MaxPtyA - you don't need to.

Jon Paris
Partner400
www.Partner400.com


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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.