Re: Data Structures with Structures

Formation StationeryHi Erick,

I'm afraid you can't do it exactly the way you're trying to do it -- RPG
doesn't support it.  What you can do is:

 d @@faxcmds       ds
 d  acmds                  1      2
 d  bcmds                  1      2b 0
 d  faxcmd                       18a   dim(40)

 d faxcmdds        ds
 d  faxqual                1     10a
 d  faxqualbc             11     14s 0
 d  faxqualec             15     18s 0

then in your calculations, use it this way:

 c        for     ix = 1 to %elem(faxcmd)
 c        eval    faxcmdds = faxcmd(ix)
 c        ...process faxqual, faxqualbc, and faxqualec
 c        endfor

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



---
From: Erick Garske

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.

 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



_________________________________________________________
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
+---