How to Pass Array to subroutines.

vasan_4u · New User Joined: 28 Jun 2005 Posts: 35 Location: chennai

I have a array called SYM.0 in the main program and I need to pass the array variable to another subroutine.

How can i do this.

enrico-sorichetti · Posted: Tue Feb 05, 2008 11:48 pm

the subroutine must be in the same source file,
snippet...

subroutine:procedure expose sym.

vasan_4u · New User Joined: 28 Jun 2005 Posts: 35 Location: chennai

Yes they are in the same source file.'

This is how I have passed.

enrico-sorichetti · Posted: Wed Feb 06, 2008 1:58 am

maybe Your request was not very clear to me
I inferred that in the main flow You had an array ...
improper term for a stemmed variable
and You wanted to use the same in a subroutine

vasan_4u · New User Joined: 28 Jun 2005 Posts: 35 Location: chennai

You are correct I have passed just the SYM as if I was passing the SYM.0 it was throwing me an error using the ISPEXEC.

So I was trying different option.

I tried your way of using the procedure.

First program TEST

ofer71 · Posted: Wed Feb 06, 2008 12:04 pm

Krishna -

As Enrico already said, "the subroutine must be in the same source file", that is - your main routine and your called subroutine should be in the same member in order to use the PROCEDURE instruction (as clearly noted in the fine manual).

If you want to pass arrays to external subroutine, you need to compose your own logic. For this, you can
- Use the QUEUE
- Write to dataset (probably temporary)
- Use VPUT/VGET with INTERPRET
- Concatenate the values into one string with delimiter in between
- Use the variable access routine IKJCT441
etc...

O.

vasan_4u · New User Joined: 28 Jun 2005 Posts: 35 Location: chennai

As I already mentioned both the TEST and TEST1 member are in the same PDS.

or the main routine and the subroutine are in the same source.

enrico-sorichetti · Posted: Thu Feb 07, 2008 6:20 pm

what we meant was that ...

main and subroutines ( for expose to work ) must be in the same source member

not... different members of the same source PDS

enrico-sorichetti · Posted: Thu Feb 07, 2008 10:35 pm

If You need to pass stems across rexx scripts, search the net with
"STEMPUSH" and/or "STEMPULL"

superk · Posted: Thu Feb 07, 2008 10:41 pm

You know, this is the second post by this O/P on this same topic. All of these answers were given the first time too.

I really don't get what the big deal is with just writing the data to a temp (VIO) dataset from one exec, and reading it from a different exec or clist. They can go back-and-forth all day long like this.

enrico-sorichetti · Posted: Thu Feb 07, 2008 10:58 pm

the other time He was asking about simple variables,
and the VPUT/VGET approach was viable

not the same thing for stem, if the subroutine is getting called
let' s say, for each record read, then the performance would be horrible..

ofer71 · Posted: Thu Feb 07, 2008 11:01 pm

vasan_4u · New User Joined: 28 Jun 2005 Posts: 35 Location: chennai

I dont think I have raised the this question in another post of mine. If I misunderdtood I am sorry.

The code that I have showed in here is just a example actually I need to know how to pass the stem variable which will be used in my code which is too big to post here.

thanks for the input I will search for STEMPUSH and PULL

dick scherrer · Posted: Fri Feb 08, 2008 7:58 am

Hello,

vasan_4u · New User Joined: 28 Jun 2005 Posts: 35 Location: chennai

Yes I will do that way, but I am not sure how to pass the stem variable across program.

dick scherrer · Posted: Fri Feb 08, 2008 8:11 pm

Hello,

If you build the 2 "test" sets of code (using the suggestions above) and have questins/problems, you could post the small test code and someone would probably have suggestions.

Until you post what you have and what error(s) are presented - or what does not work as you want, it will be difficult for someone to offer specifics.