how to pass more than 32kb data thru linkage section?

shrinivas_3 · New User Joined: 05 Sep 2006 Posts: 34

Hi All

I need help for the below situation.

I need to code one subprogram which gets required data from main program . the data to be send back is in form of 2-dimensional array.

The above array shown is part of linkage layout array (which has some other input variables also ) ..

Now due to change in business requirement we need to increase the occurs for the FIRST-WORK-TABLE from 50 TO 100 Times.

But RIGHT now for this layout the size is 30950 bytes ( I have some other variables also as part of this linkage layout)

But in linkage we can pass maximum of 32 kB of data..

If I increase the number of occur from 50 to 100 (FIRST-WORK-TABLE )? is exceeds the limit? of 32kb

Is there any hint/ solution to solve this problem?

agkshirsagar · Posted: Wed Mar 14, 2007 6:38 pm

This type of situation can be handled using pointers.
in procedure division
SET ADDRESS OF rec-st TO rec-POINTER.

to get the address in rec-pointer you may have to write small assembly program.

Experts, please come in!

William Thompson · Posted: Wed Mar 14, 2007 7:33 pm

dick scherrer · Posted: Wed Mar 14, 2007 7:57 pm

Hello,

Do keep in mind that no data is actually passed to the called program. The linkage section is only pointers back to the original data in the callling program.

agkshirsagar · Posted: Wed Mar 14, 2007 8:06 pm

Prajesh_v_p · Active User Joined: 24 May 2006 Posts: 133 Location: India

Why cant you try reading this information through SYSIN?.
You can provide the data in the sysin data set or code it instream.

dick scherrer · Posted: Wed Mar 14, 2007 8:35 pm

Hello,

SYSIN is for external data. The question asks about passing an array from the calling program to the called module.

A file could be created by the "caller" and read back in by the "called", but i'm not sure that is necessary.

William Thompson · Posted: Wed Mar 14, 2007 10:23 pm

dineshness · Posted: Wed Mar 14, 2007 11:29 pm

If you are talking about CICS program and The data is meant to be passed through COMMAREA, then yes...there is a limit of 32KB of data that can be passed through the COMMAREA.

To avoid this you can use the CHANNEL option which allows you to pass the unlimited amount of data.

Dinesh.

dick scherrer · Posted: Thu Mar 15, 2007 12:02 am

Hello,

The only limit i remember is if the Linkage Section data is coming from a PARM on the EXEC statement. That shouldn't be an issue here as the requirement is to "pass" an array to a called module"

agkshirsagar · Posted: Thu Mar 15, 2007 11:43 am

Bill,
I think I interpreted it incorrectly.
I read from link which I posted earlier that..it says..

Procedure division USING identifier . . . 32,767

As Dick already said these are the actually pointers. (identifier0,identifier1....upto identifier32767)
So it means we can actually pass maximum of 32767 pointers through linkage section. (pointer takes 4 bytes 128 kb already)

Any corrections

Bill and Dick, thanks for your replies.

shrinivas_3 · New User Joined: 05 Sep 2006 Posts: 34

Thanks to all for valuable suggestions/ solutions.
But as of now as they have kept it on Hold I could not give any update from my side.

Thanks
Shrinivas

William Thompson · Posted: Thu Mar 15, 2007 5:57 pm

dick scherrer · Posted: Thu Mar 15, 2007 7:04 pm

You're welcome. Thanks for the update.

Good luck