RE: [C400-L] RE: Passing parameter back to calling CL

["David C. Shea" <dshea@xxxxxxxxxxxx>]

Do you have or do you know where I can find an example of this approach?  I'm 
not familiar with CLLE,so if I could see a sample, I could clone it...
 
 
 
++++++++++++++++++++++++++++++++++++++++++++
Go... FASTER!  Without an upgrade!  With ARCTOOLS/400(tm)
http://www.arctools.com
info@xxxxxxxxxxxx 
DCSoftware, Inc.
Ph: (508) 435-8243
Fax: (508) 435-4498
++++++++++++++++++++++++++++++++++++++++++++

________________________________

From: c400-l-bounces@xxxxxxxxxxxx on behalf of Chris Wolcott
Sent: Thu 9/30/2004 6:25 PM
To: c400-l@xxxxxxxxxxxx
Subject: [C400-L] RE: Passing parameter back to calling CL




Pass it back as an INT return value.  (Assuming your CL is CLLE).

DCL VAR(&wrkINT    ) TYPE(*CHAR) LEN(     4)
DCL VAR(&RRN       ) TYPE(*DEC ) LEN(  15 0)

CALLPRC PRC(program) PARM(parm1 parm2 . . . parmX)
   RTNVAL(%BIN(&wrkINT))
CHGVAR  VAR(&RRN) VALUE(%BIN(&wrkINT))

&RRN now has a numeric value of the returned integer.

-----Original Message-----
message: 5
date: Thu, 30 Sep 2004 18:16:46 -0400
from: "David C. Shea" <dshea@xxxxxxxxxxxx>
subject: [C400-L] Passing parameter back to calling CL

Alexei:

Thanks for your help earlier.  I was able to get the proper RRN.

Now I have only one more question.  I need to pass the resulting RRN
back to the calling CL program.  I am passing parameters into the C
program (to get the file name, lib, etc) but now I need to know how to
get the resulting number back to the CL.

Thanks.


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