From: "Mark S. Waterbury" <mark.s.waterbury@xxxxxxx> Reply-To: MI Programming on the AS400 / iSeries <mi400@xxxxxxxxxxxx> To: "MI Programming on the AS400 / iSeries" <mi400@xxxxxxxxxxxx> Subject: Re: [MI400] QCAPTRS Date: Wed, 8 Sep 2004 11:15:58 -0600
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 comp.sys.ibm.as400.misc in July 1999
> > with the subject "How can I found out the parameters for a program?"
> > Here's a link:
> > http://www.google.com/groups?hl=en&lr=&ie=UTF-8&selm=379786e8.1157
> > 00909%40news.gte.net&rnum=6
> 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. ;-)
> 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: http://lists.midrange.com/mailman/listinfo/mi400
> or email: MI400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.
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,
or email: MI400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.