Re: Procedure Interface Question

[MWalter@xxxxxxxxxxxxxxx]

I think this is one of those screwy times when you have to give your
parameter a name in the Prototype. You can use anything. I think that's
because you're using the LikeDS keyword.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


                                                                                
                                                                    
                    THarteau@felkerbrot                                         
                                                                    
                    hers.com                   To:     RPG programming on the 
AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>                               
                    Sent by:                   cc:                              
                                                                    
                    rpg400-l-bounces@mi        Subject:     Procedure Interface 
Question                                                            
                    drange.com                                                  
                                                                    
                                                                                
                                                                    
                                                                                
                                                                    
                    09/25/2003 11:38 AM                                         
                                                                    
                    Please respond to                                           
                                                                    
                    RPG programming on                                          
                                                                    
                    the AS400 / iSeries                                         
                                                                    
                                                                                
                                                                    
                                                                                
                                                                    





Hi,
      I am just starting to write external procedures and service programs.
I am trying to use a data structure as a parameter, but keep getting
errors. I am using an example from Club Tech as a guide. Can someone tell
me what I am doing wrong?

In a /COPY member I have
0009.00   // ---------------------------------------------Prototype:
DescClass
0010.00 D DescClass       PR              N
0011.00 D                                             LikeDS(ItemInfo)
0012.00
0013.00 D ItemInfo        DS                  Based(ItemInfoPtr)
0014.00 D  ItemIn                        15
0015.00 D  DscOut                     30
0016.00 D  ClsOut                         2

Then in my module, I have
PDescClass        B                   EXPORT
D DescClass       PI              N
D  ItemInfoDS                            LikeDS(ItemInfo)
D*
 *RNF3766 30     70 001100  Too many parameters specified in the procedure
interface;
                            extra parameters ignored.
& also this error
 *RNF3761 20     69 001000  Type (N(1)) of return-value not same as
prototype (DS(47)DIM)
Where line 69 is the PI line

<===================================================>

Terri Harteau
****************
"There's no point in being grown up if you can't be childish sometimes."
- Dr. Who
****************






_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.