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

["Chris Wolcott" <CWolcott@xxxxxxxxxxxxxxxxxxxxxx>]

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.