RE: retrieve service program list of procedures

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.