RE: API Question

D/COPY QSYSINC/QRPGLESRC,QUSEC    

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Marvin Radding
Sent: Thursday, 23 November 2006 9:03 a.m.
To: rpg400-l@xxxxxxxxxxxx
Subject: API Question

When working with APIs that have an API Error Data structure as part of
the return, how do I define it.  I am attempting to work with APIs but
keep getting a error:
                         Additional Message Information

 

 Message ID . . . . . . :   CPF9549       Severity . . . . . . . :   40

 Message type . . . . . :   Escape

 Date sent  . . . . . . :   11/22/06      Time sent  . . . . . . :
11:56:26   
 

 Message . . . . :   Error addressing API Parameter.

 Cause . . . . . :   An error occurred addressing parameter 8 of the

   QteRetrieveModuleViews API. The reason code was 2.  The following are
the    
   reasons why this message is issued.

     1 -- A pointer was used that is not available for use while running
in the 
   current program state.

     2 -- A pointer was used which did not point to storage that could
be       
   addressed for the parameter.  The pointer may be null or may point to

   storage that does not exist.

 Recovery  . . . :   Refer to the System Programmer's Interface
Reference       
   (SC41-8223) for a discussion of using the source debug programming

   interfaces.

 
More... 
 Press Enter to continue.

 

 F3=Exit   F6=Print   F9=Display message details   F12=Cancel

 F21=Select assistance level

 


So from the depth of desperation hell, I ask you for help: How do I
define the parameter in the prototype so that I won't get this error.  I
have tried a few things and nothing seems to work.


For example:

   D xAPIErr                      likeds(APIERR)

and
   D xAPIErr                    *

But nothing seems to work. 

What am I doing wrong?

Marvin


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.



#####################################################################################
This correspondence is for the named person's use only. It may contain 
confidential or legally privileged information, or both. No confidentiality or 
privilege is waived or lost by any mistransmission. If you receive this 
correspondence in error, please immediately delete it from your system and 
notify the sender. You must not disclose, copy or rely on any part of this 
correspondence if you are not the intended recipient. Any views expressed in 
this message are those of the individual sender, except where the sender 
expressly, and with authority, states them to be the views of Baycorp 
Advantage. If you need assistance, please contact Baycorp Advantage on either 
:- Australia 133124 or New Zealand +64 9 367 6200