(no subject)

[shc@xxxxxxxxxxxxxxxxx]

Date: Thu, 18 Sep 2003 23:28:07 +1000

Subject: Re: Procedure List

Content-Type: text/plain; charset=US-ASCII; format=flowed

Mime-Version: 1.0 (Apple Message framework v552)

From: Simon Coulter <shc@xxxxxxxxxxxxxxxxx>

To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>

Content-Transfer-Encoding: 7bit

In-Reply-To: <006001c37c7c$28b20490$1e05800a@Europa>

Message-Id: <F05BCC6C-E9DB-11D7-AA8B-000A95882CB8@xxxxxxxxxxxxxxxxx>

X-Mailer: Apple Mail (2.552)



On Wednesday, September 17, 2003, at 03:58  AM, Bob cozzi wrote:


> I'm writing a utility that allows you to see if a procedure name has 

> been

> previously used in a program or service program.

>

> I have no problem getting at and retrieving the list of procedure 

> names in a

> service program, but I can't get the list of procedure names used in a

> program object. The API (as well as the DSPPGM command) does not list 

> the

> procedures used in program objects.

>

> Is there an API or a CL command that I may have missed that does an

> "Enumerate Procedure Names" for program objects?

>


There is no published API to list program procedures because they are 

not visible outside the program object (i.e., you cannot export program 

procedures like service program procedures or module procedures). Since 

they are private to the program there is little point in listing them. 

This is also true of private service program procedures. The published 

APIs list only the public (exported) procedures.


The only way I know of to determine the procedures used in a program is 

to examine the module string directories in the program object. Note 

that these appear to contain all procedures **USED** in the program, 

not just those **DEFINED** in the program. I suspect they also contain 

exported and imported variable names but I have not verified that 

supposition.


I do not know of any way to determine the procedures defined in modules 

used by a program object except by interrogating the original module 

object via the published API. If you no longer have the *MODULE objects 

then this will not help.


Regards,

Simon Coulter.

--------------------------------------------------------------------

    FlyByNight Software         AS/400 Technical Specialists


    http://www.flybynight.com.au/

    Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\

    Fax:   +61 3 9419 0175   mailto: shc@xxxxxxxxxxxxxxxxx   \ /

                                                              X

                  ASCII Ribbon campaign against HTML E-Mail  / \

--------------------------------------------------------------------