Re: Data Structures with Structures

Hi Joel,

Ooops, egg on my face! As soon as I saw your post I remembered someone (you?
Hans? Jon?) pointing that out earlier on this list. I haven't used it yet,
so it hasn't sunk in. Has that been available as long as OVERLAY has?  In
other words, in which release did it become available?

Thanks for the reminder!

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


----- Original Message -----
From: "Joel Fritz" <JFritz@sharperimage.com>
To: <RPG400-L@midrange.com>
Sent: Thursday, June 21, 2001 4:39 PM
Subject: RE: Data Structures with Structures


> Define the faxcmddds as an overlay on the array in the @@faxcmds data
> structure:
>  d @@faxcmds       ds
>  d  acmds                  1      2
>  d  bcmds                  1      2b 0
>  d  faxcmdds                     18a   dim(40)
>  d  faxqual                      10a   overlay(faxcmdds)
>  d  faxqualbc                     4s 0 overlay(faxcmdds : 11)
>  d  faxqualec                     4s 0 overlay(faxcmdds : 15)
>
> This will give you an array of 40 elements each containing the three
fields.
> You can access them by index just like a parallel array.
>
>
> -----Original Message-----
> From: Erick Garske [mailto:Erick@FORMationmg.com]
> Sent: Thursday, June 21, 2001 4:04 PM
> To: 'rpg400-l@midrange.com'
> Subject: Data Structures with Structures
>
>
> Am trying to define a data structure within a data structure. The first
> structure @@faxcmds is input from a command list defining the number of
> elements with the list, and the command structure itself. Up to 40 command
> can be entered in the list.
>
> The next structure defines the subfields within the command: One 10
> character field and two 4 digit fields.
>
> I get an syntax error on this definition and am wondering just how this
> should be formatted.
>
> Thanks in advance for your help.
>
> Regards,
> Erick
>
>  d @@faxcmds       ds
>  d  acmds                  1      2
>  d  bcmds                  1      2b 0
>  d  faxcmdds                     18a   dim(40)
>
>  d faxcmdds          ds
>  d  faxqual                1     10a
>  d  faxqualbc             11     14s 0
>  d  faxqualec             15     18s 0
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---