RE: Calling a RPG module from a CLLE

You need to export the procedure to be able to call it from another ILE
module. 


-----
Scott A. Schollenberger
Director, R&D
Schools Division
   
2011 Renaissance Blvd., Suite 100
King of Prussia, PA 19406
Phone: 610-239-9988 x305
Fax: 610-239-9995
Email: sschollenberger@xxxxxxxxxxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Marvin Radding
Sent: Friday, March 23, 2007 2:37 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Calling a RPG module from a CLLE

I am having a problem with using an RPG module from a CLLE.

Here is the RPG module
 
*-----------------------------------------------------------------------
---
 d Validate_Company...

 d                 pi              n

 d      xCompany                  2p 0 value

 
*-----------------------------------------------------------------------
---
 d    Record_ID    s                   like(strcid) inz('CPY')

 d    ind          s               n

 
*-----------------------------------------------------------------------
---
  /free

       open ahpsstp;

       chain (Record_ID:xCompany) ahpsstp;

       ind = not %found(ahpsstp);

       close ahpsstp;

       return ind;

  /end-free

 
*-----------------------------------------------------------------------
---
 p Validate_Company...

 p                 e



And here is the call from the CL program.


                                                                       
            CALLPRC    PRC(VALIDATE_COMPANY) PARM((&COMP *BYVAL)) +    
                         RTNVAL(&VALID)                                

And when this line executes, the module errors out on the return with
MCH3601 invalid pointer. In debug mode the parameter passed is correct.
But attempting to return the result errors out.

Can anyone point out what I am 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.