Re: Adding field to data structure

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

You cannot add to the end of a LikeRec structure Jim - if you could it wouldn’t be “like” the record.

Not exactly sure what you are trying to do - but if you ultimately want a DS array then maybe something like this?

D* store data from file and formatted part for each part
D vcdataArr       ds              Dim(99) 
D      vcdata                         likerec(inmvcross1)
D vfmtpart                            like(inmvpart)
D vfmtcpart                           like(inmvcpart)


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Oct 31, 2014, at 4:22 PM, Horn, Jim <jim.horn@xxxxxxxxxxxxxx> wrote:

> Friday afternoon.  Trying to add fields to the end of a data structure to
> later use in a data structure array. Can't remember how.  Thought it was
> like this.
>
>
> D* store data from file and formatted part for each part
> D vcdata          ds                  likerec(inmvcross1)
> D vfmtpart                            like(inmvpart)
> D vfmtcpart                           like(inmvcpart)
>
> D* data structure array to store a part/vmrs group for processing
> D vc              ds                  likeds(vcdata) dim(200)
>
> Get this error
> *RNF3703 20      2 The subfield or parameter definition is not specified
> within a group.
> on vfmtpart and vfmtcpart
>
> Thanks
>
> Jim
>
> -- 
>
>
> ***********************************************************************
> The information transmitted is intended solely for the individual or
> entity to which it is addressed and may contain confidential and/or
> privileged material. Any review, retransmission, dissemination or
> other use of or taking action in reliance upon this information by
> persons or entities other than the intended recipient is prohibited.
> If you have received this email in error please contact the sender and
> delete the material from any computer. As a recipient of this email,
> you are responsible for screening its contents and the contents of any
> attachments for the presence of viruses. No liability is accepted for
> any damages caused by any virus transmitted by this email.
>
> -- 
> This is the RPG programming on the IBM i (AS/400 and 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.