|
Using the sample below, how would you do that for a 15.4P array of 389 elements? Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin "Chevalier, Rick" <Rick.Chevalier@xxxxxxxxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 04/28/2003 01:22 PM Please respond to RPG programming on the AS400 / iSeries To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx> cc: Fax to: Subject: RE: Adding another subfield to an externally defined data structu re. Rob, I know it's not as elegant or flexible but have you tried specifying the buffer positions in the col definition? Rick -----Original Message----- From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx] Sent: Monday, April 28, 2003 1:12 PM To: RPG programming on the AS400 / iSeries Subject: Adding another subfield to an externally defined data structure. I want to do the following: D FLWORKREC DS likerec(flworkr) D col 15p 4 overlay(flworkrec:39) dim(389) However, when I try I get: 36 D FLWORKREC DS likerec(flworkr) 37 D col 15p 4 overlay(flworkrec:39) dim(389) ======> aa bbbbbbb *RNF3703 20 a 003301 The subfield or parameter definition is not specified within a group. *RNF3601 20 b 003301 Keyword is not allowed for a field definition; keyword ignored. Is this what I need to do: D FLWORKREC DS likerec(flworkr) D pDuh s * inz(%addr(flworkrec)) D duh ds based(pDuh) D col 15p 4 overlay(duh:39) dim(389) Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin _______________________________________________ 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.cgi/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. _______________________________________________ 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.cgi/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.