× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: Data Structures with Structures
  • From: Erick Garske <Erick@xxxxxxxxxxxxxxx>
  • Date: Fri, 22 Jun 2001 08:26:04 -0700

Jim, 

I know that there are a number of enhancements with RPG with each new OS
release. What I'm am waiting for is for the language to be free form and
rebanded as RPG Sharp!

Erick

-----Original Message-----
From: Jim Langston [mailto:jimlangston@conexfreight.com]
Sent: Thursday, June 21, 2001 4:51 PM
To: RPG400-L@midrange.com
Subject: Re: Data Structures with Structures


The error you are getting should be saying you can't define the same
variable in 2 separate data structures.  Each time a DS is hit, it
starts a new data structure.

I don't believe that RPG, as of yet, allows nested data structures. 
I think you have to do something like this (untested code):

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

d                 ds                 Based(faccmdptr)
d @faxcmdds               1     18
d  faxqual                1     10a
d  faxqualbc             11     14s 0
d  faxqualec             15     18s 0

d faccmdptr       S               *

...

C                   For       i = 1 to 10
C                   Eval      faccmdptr = %Addr(faxcmmds(i))
...

We are, in effect, doing the same thing, having a Data Structure inside
a Data Structure, but it works at run time.  We have to assign the address
of the data structure to the variable.

This might be changed in V5R1, not sure.

But think about this if your code were to work.  Your faxcmdds is an array.
How would you specify the variable faxqual in the 5th element?  "They" were
talking about doing something like faxcmdds(5)->faxqual or
faxcmdds(5).faxqual,
but I don't think that's possible yet, even under V5R1.

Regards,

Jim Langston

Me transmitte sursum, Caledoni!

> Erick Garske wrote:
> 
> 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
+---
+---
| 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
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.