Re: Prototyping *ENTRY when the PLIST parm is a data structure

[Scott Klement <klemscot@xxxxxxxxxxxx>]

There are probably other ways to do this, but the only way that I know
of is to use a basing pointer to put your DS in the same area of memory
as the parameter.

Example:

 dcsr0033          pi
 d  myparm                      100

 D p_parmo         s               *   inz(%addr(myparm))
 d parmo           ds                  BASED(p_parmo)
 d   $rtcd                        7    
 d   $fast                        1

(this code is untested, but its the concept that counts...)



On Tue, 7 Nov 2000 tomh@simas.com wrote:

> How do I prototype the *ENTRY  when one of the parms is a data structure 
> with multiple subfields?  Is there a way to do it without listing each 
> subfield in the prototype definition?  An example of what I want to 
> convert:
> 
> dparmo            ds
> d   $rtcd                     7
> d   $fast                     1
> 
> c      *entry       plist
> c                         parm      parmo
> 
> 
> I've tried the following, but it didn't work:
> 
> dcsr0033          pr     extpgm('CSR0033')
> d  parmo                      100
> 
> dcsr0033          pi
> d  parmo                      100
> 
> dparmo            ds
> d   $rtcd                     7
> d   $fast                     1
> 

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