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