explanation of code snippet... 1

[GoneHiking]

I'm just starting to learn Rexx, and do NOT come from a programming background, so go easy on me

I'd like someone to explain this snippet of code to me. I get that "2" is passed to the ARG statement. What I don't get is the RETURN Code part. The explanation the author gave was that "it returns the value of a variable called RESULT." Huh? How does the variable Code suddenly become Result????


CALL Funct1 2
SAY "Give the funct1 a" 2 "and you get back a" Result
SAY "Give the funct1 a" 4 "and you get back a" Funct1(4)
EXIT 0
Funct1:
ARG Input
Code = Input * 3
RETURN Code

 

[mikrom]

You call the function

   Funct1:
   ARG Input
   Code = Input * 3
   RETURN Code

in your main program which is this

   CALL Funct1 2
   SAY "Give the funct1 a" 2 "and you get back a" Result
   SAY "Give the funct1 a" 4 "and you get back a" Funct1(4)
   EXIT 0

First you call the function with argument 2 here

   CALL Funct1 2

When you use the call statement then the result is stored in the special variable RESULT, which holds the value set by a RETURN instruction from
any subroutine.
I'm rather using this way of calling functions

   my_reslt = CALL Funct1 2
   SAY "Give the funct1 a" 2 "and you get back a" Result

The second call could be clear: You call the function at this way

Funct1(4)

i.e. with the argument 4 which results in 4*3 = 12.
That's all.

 

[GoneHiking]

mikrom, thanks for the quick reply. This is exactly what I was looking for. It makes sense now. Thanks for breaking it down so clearly!

Andy

 

[mikrom]

Oops, In the 4.code windows I have a typo. It should be

   my_reslt = Funct1(2)
   SAY "Give the funct1 a" 2 "and you get back a" my_reslt