RE: retrieve service program list of procedures

[<Rick.Chevalier@xxxxxxxxxxxxxxx>]

Manuel,

You should still be able to retrieve the header information.  That will
point you to the location of the entry list and tell you how many
entries were returned.  Once there, use the 'size of this entry' value
to move to the next entry.  

// Locate first list entry
ListEntryLocation = StartOfReturnedData + OffsetToEntryList;

// Walk through list of entries
For x = 1 to NumberOfEntriesReturned;
  ListEntryLocation += SizeOfThisEntry;
EndFor;

The above code is not tested, just put together for illustration.  I
have not used this API specifically but all the list API's I have used
return their data in the same way.  It can be retrieve using the logic
shown above.

HTH,

Rick

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Manuel Cerda
Sent: Monday, April 07, 2008 8:48 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: retrieve service program list of procedures

All,
I am having some difficulties with retrieving the list of exported
procedures with api QBNLMODI.
I want to use the format MODL0100
Here is what the documentation says :

The MODL0100 format lists the symbols defined in the module and that are
exported to other modules. The following table shows how this
information for each module is organized. For detailed descriptions of
the fields in the list,
**Note:* Do not use the generic header entry size for this format. Use
the Size of this entry field returned in this format for the size of
each entry.*

Offset 	Type 	Field
Dec 	Hex
0 	0 	BINARY(4) 	Size of this entry
4 	4 	CHAR(10) 	Module name
14 	E 	CHAR(10) 	Module library name
24 	18 	CHAR(1) 	Exported defined symbol type
25 	19 	CHAR(3) 	Reserved
28 	1C 	BINARY(4) 	Offset to exported defined symbol name
32 	20 	BINARY(4) 	Length of exported defined symbol name
36 	24 	CHAR(10) 	Uses argument optimization (ARGOPT)
46 	2E 	CHAR(*) 	Reserved
Module information through offsets
  	  	CHAR(*) 	Exported defined symbol name


This format is different than the one I use usually as I cannot retrieve
the header first.
I cannot use QUSRTVUS to retrieve the list.
Would anyone have an example of how to work with a format like this ?
Thanks in advance,

Regards,
Manuel

Ps: Thanks Mihael.

Privileged and Confidential.  This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information.  If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail.  You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.