RE: Passing a data structure as a parm

FWIW pointers/memory addresses are fairly easy once you get use to using
them....maybe you should do it that way to get your feet a little
wetter... 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams
Sent: Wednesday, October 04, 2006 9:01 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Passing a data structure as a parm

Booth and Matt,


Thanks.  I hadn't thought of doing it that way in the Callee.


Tommy,

Thanks for the confirmation.  I'm not yet comfortable with addresses; 
probably because I don't use them.  I'll probably stick with the 
original method just to get a little more experience (and to confuse the

heck out the guy that takes my place!).


        * Jerry C. Adams
*IBM System i5/iSeries Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.995.7024
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Booth Martin wrote:

Why not just create a DDS for a file to match your parm list, then 
externally describe the Data Structure to be like the file?

Matt.Haas@xxxxxxxxxxx wrote:
 

Jerry,

You don't need prototypes to do this. You can define the input

parameter

in the called program as a string the length of your data structure

and

then move that parameter into a copy of your data structure in the
called program.

Matt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Adams
Sent: Wednesday, October 04, 2006 8:50 AM
To: RPG Midrange
Subject: Passing a data structure as a parm

I have a whole mess of data elements that I need to pass to another 
program so I thought that using a data structure would be more concise

than something like:  PGM(parm1:parm2:...parm13); . 

I think Bob's book (4th ed.) explained how to do this with prototypes,

but, since it'll be awhile before I can actually get around to testing

this, I thought perhaps someone might have suggestions or criticisms 
(both willingly accepted) of how I implemented it.  Code samples are 
below. 

D SIPROTO         DS                                  
D  #End                          1A                   
D  blitm#                                             
D  blsqty                                             
D  bltxcd                                             
D  bllc01                                             
D  bllc02                                             
D  bllc03                                             
D  blcust                                             
D  blref#                                             
D  dlspst                                             
D  dlsp01                                             
D  dlsp02                                             
D  dlsp03                                             
                                                     
D SIU002          PR                  ExtPgm('SIU002')
D  SIUAddr                            Like(SiProto)   

Later the actual "call":


SIU002(SiProto);

SIU002 (the humble callee) has this as the prototype:

D SIU002          PR                                
D  Parms                              Like(SiProto) 
                                                   
D SIU002          PI                                
D  InParms                            Like(SiProto) 
                                                   
D SiProto         DS                  Based(pSiProto)
D  #End                          1A                 
D  #Item                         5S 0               
D  #Qty                          5P 0               
D  #TaxCode                      5A                 
D  #Local1                       5A                 
D  #Local2                       5A                 
D  #Local3                       5A                 
D  #Cust                         5S 0               
D  #Ref                          6S 0               
D  #StStamps                     5P 0               
D  #Lc1Stamps                    5P 0               
D  #Lc2Stamps                    5P 0               
D  #Lc3Stamps                    5P 0               


Then, as the first step in the program:

pSiProto  = %Addr(inParms);


Am I doing this right? 

Thanks.