Here is what I have used for many years, written in OPM RPG/400; sorry, I don't 
remember where I got this little "gem" from, many years ago ... off some BBS or 
other ...

     H        1                                                 
     IPIDS       SDS                            500             
     I                                     *PARMS   #PARMS      
     I                                     *PROGRAM PGMNAM      
     C           *ENTRY    PLIST                                
     C                     PARM           PARM01255             
     C                     PARM           PARM02255             
     C                     PARM           PARM03255             
     C                     PARM           PARM04255             
     C                     PARM           PARM05255             
     C                     PARM           PARM06255             
     C                     PARM           PARM07255             
     C                     PARM           PARM08255             
     C                     PARM           PARM09255             
     C                     PARM           PARM10255             
     C                     PARM           PARM11255             
     C                     PARM           PARM12255    
     C                     PARM           PARM13255    
     C                     PARM           PARM14255    
     C                     PARM           PARM15255    
     C                     PARM           PARM16255    
     C                     PARM           PARM17255    
     C                     PARM           PARM18255    
     C                     PARM           PARM19255    
     C                     PARM           PARM20255    
     C                     PARM           PARM21255    
     C                     PARM           PARM22255    
     C                     PARM           PARM23255    
     C                     PARM           PARM24255    
     C                     PARM           PARM25255    
     C                     PARM           PARM26255    
     C                     PARM           PARM27255    
     C                     PARM           PARM28255    
     C                     PARM           PARM29255        
     C                     PARM           PARM30255        
     C                     PARM           PARM31255        
     C                     PARM           PARM32255        
     C                     PARM           PARM33255        
     C                     PARM           PARM34255        
     C                     PARM           PARM35255        
     C                     PARM           PARM36255        
     C                     PARM           PARM37255        
     C                     PARM           PARM38255        
     C                     PARM           PARM39255        
     C                     PARM           PARM40255        
     C                     PARM           PARM41255        
     C                     PARM           PARM42255        
     C                     PARM           PARM43255        
     C                     PARM           PARM44255        
     C                     PARM           PARM45255        
     C                     PARM           PARM46255         
     C                     PARM           PARM47255         
     C                     PARM           PARM48255         
     C                     PARM           PARM49255         
     C                     PARM           PARM50255         
     C                     PARM           PARM51255         
     C                     PARM           PARM52255         
     C                     PARM           PARM53255         
     C                     PARM           PARM54255         
     C                     PARM           PARM55255         
     C                     PARM           PARM56255         
     C                     PARM           PARM57255         
     C                     PARM           PARM58255         
     C                     PARM           PARM59255         
     C                     PARM           PARM60255         
     C                     PARM           PARM61255         
     C                     PARM           PARM62255         
     C                     PARM           PARM63255          
     C                     PARM           PARM64255          
     C           PARM01    DUMP                              
     C                     SETON                     LR      
     C                     RETRN 

The idea is, you compile it, and rename it to the name of the program you are 
interested in finding out about the parameters for, and insert it into the 
*LIBL ahead of the "real" *PGM's library, and then run whatever applications 
would call this routine, and "Voila!" you get a nicely formatted "dump" from 
which you can pretty easily deduce the size and type of each parameter.  NOTE: 
this version only handles up to 64 parameters; you can modify to add more, if 
needed... ;-)

Hope that helps someone out there?


Mark S. Waterbury

----- Original Message ----- 
From: "Dan Bale" <dbale@xxxxxxxxxxxxx>
To: "MI Programming on the AS400 / iSeries" <mi400@xxxxxxxxxxxx>
Sent: Wednesday, September 08, 2004 11:04 AM
Subject: RE: [MI400] QCAPTRS

> > -----Original Message-----
> > From: mi400-bounces@xxxxxxxxxxxx / Dave McKenzie
> > Sent: Wednesday, September 08, 2004 12:51 PM
> >
> > There was a thread about this on in July 1999
> > with the subject "How can I found out the parameters for a program?"
> > Here's a link:
> >
> >
> >
> Aye-yi-yi!  No proggy to do this automagically, eh?  Or maybe this is what
> Ron was looking for?
> Thanks for the link, I think, Dave.  ;-)
> db
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit:
> or email: MI400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at

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-2022 by 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.