Re: Coding procedures in CL

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Alan

This is not CALLPRC - this is CALLSUBR.

Vern

On 10/30/2014 12:48 PM, Alan Campin wrote:
> Yes you can pass parameters to a procedure in an rpg or c module. You can
> pass by value or by reference.
> On Oct 30, 2014 11:41 AM, "Monnier, Gary" <Gary.Monnier@xxxxxxxxx> wrote:
>
> > Rob,
> >
> > At V5R4 in CL you use the CALLSUBR command.  You can have a value returned
> > from the subroutine/subprocedure but you cannot pass parameters to it.
> > Variables are all defined globally.  You cannot define variables within the
> > subroutine/subprocedure.
> >
> > You can have 256 subroutines.  I tend to place them at the end of the
> > program.
> >
> > DCL my stuff
> > Run the commands
> > o Any errors go to error handling.
> > o No errors then return
> > Error handling
> > o Handle error
> > o Return
> > Subroutines.
> >
> > Each subroutine starts with  SUBR SUBR(yourname) and ends with ENDSUBR.
> > You can exit the subroutine with RTNSUBR RTNVAL(yourvalue).
> >
> > HTH.
> >
> > Gary
> >
> >
> > -----Original Message-----
> > From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
> > rob@xxxxxxxxx
> > Sent: Thursday, October 30, 2014 10:26 AM
> > To: midrange-l@xxxxxxxxxxxx
> > Subject: Coding procedures in CL
> >
> > I know that I can call a procedure or subprocedure from CL with CALLSUBR.
> > Can I write a subprocedure in CL?  One that accepts multiple input
> > parameters and returns one output parameter?  If so, how?
> >
> >
> > Rob Berendt
> > --
> > IBM Certified System Administrator - IBM i 6.1
> > Group Dekko
> > Dept 1600
> > Mail to:  2505 Dekko Drive
> >            Garrett, IN 46738
> > Ship to:  Dock 108
> >            6928N 400E
> >            Kendallville, IN 46755
> > http://www.dekko.com
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.