Array passing

naresh15 · New User Joined: 20 May 2010 Posts: 2 Location: hyderabad

How to pass an array to a subprogram?
Plz give response to this.

naresh15 · New User Joined: 20 May 2010 Posts: 2 Location: hyderabad

How to pass a file to subprogram?

CICS Guy · Posted: Tue Jun 15, 2010 8:52 am

CICS Guy · Posted: Tue Jun 15, 2010 8:53 am

hikaps14 · Active User Joined: 02 Sep 2005 Posts: 189 Location: Noida

dbzTHEdinosauer · Posted: Thu Jul 08, 2010 6:38 pm

It would only be an Indexed cobol internal table
if the data definition included the INDEXED BY clause.

dbzTHEdinosauer · Posted: Thu Jul 08, 2010 7:20 pm

and,

the definition of the CALLing program has no influence.

only the definition in Linkage of the CALLed program.

Bill O'Boyle · Posted: Thu Jul 08, 2010 7:46 pm

Note: When the sub-program receives control and obtains array-addressability, using the passed-array address, the associated indices of the array are NOT set to the values set by the caller (if applicable).

Bill

hikaps14 · Active User Joined: 02 Sep 2005 Posts: 189 Location: Noida

Yes bill,

I got it. The array(indexed or non indexed) could be passed the same way in both cases. In case of indexed the the index value needs to be sent via some other numeric variable, in order to retain the index information of calling program.

Thanks.

Bill O'Boyle · Posted: Fri Jul 09, 2010 12:07 am

Yes, that's correct. A preferable variable will be defined as S9(08) COMP (or COMP-5, if your compiler supports this).

You can pass intelligence to the sub-program by moving -1 (X'FFFFFFFF') to this COMP/COMP-5 parameter.

When the sub-program gains control and finds this negative 1 value, then this would indicate that the associated index needs to be set to 1.

Or instead of a -1, a ZERO could also be used to inform the sub-program to set the associated index to 1.

Any value greater than ZERO, the associated index is set to the COMP/COMP-5 parameter.

Bill