RE: Coding subprocedures in CL

Rob,
I don't have an example to answer your question, but I guess the
prototype would be like one for an RPGLE subprocedure ?

I have only one current CLLE showing what I think you already know:

FSP975DNC *MODULE CLLE CLLE *Module to Test stored proc FSP957DN

The source:

PGM

DCL &OutLoc TYPE(*CHAR) LEN(04)
DCL &CtoNum TYPE(*DEC) LEN(13 0)
DCL &BatDat TYPE(*DEC) LEN(7 0)
DCL &DocNum TYPE(*CHAR) LEN(11)

CHGVAR VAR(&OutLoc) VALUE('82 ')
CHGVAR VAR(&CtoNum) VALUE(8268773)
CHGVAR VAR(&BatDat) VALUE(1140627)
CHGVAR VAR(&DocNum) VALUE(' ')

CALLPRC PRC('SWIRETEST/FSP975DN') +
PARM((&OUTLOC) (&CTONUM) (&BATDAT)) +
RTNVAL(&DOCNUM)

End_Lbl:
ENDPGM

I've been thinking I will eventually us a CLLE *MODULE to return
a value(s) to an RPGLE *MODULE because I have a lot of code calling
QCMDEXC that's limited to a simple If %Error "interface".

My current project uses legacy parm passing between RPGLE - CLLE,
so if I can make the switch today I'll be glad to share that.




-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Friday, October 31, 2014 5:12 AM
To: Midrange Systems Technical Discussion
Subject: RE: Coding procedures in CL

How do you specify the return variable on a CL subprocedure (not
subroutine) then Gary?


Rob Berendt