Can sending 5 MB data between cobol programs cause issue

Kevin Vaz · New User Joined: 18 Oct 2016 Posts: 11 Location: India

Hi,

We are having a web service in which we are sharing 4.6 MB of data between two programs we make use of Pointers in cobol to use the addresses of the variables to use between the called and calling program. Since the amount of data being shared is 4.6 MB and the call to this service is made every minute or so, can this cause the corruption of other modules or any S0C1 or protection exceptions?

Thanks,
Kev

enrico-sorichetti · Posted: Tue Oct 18, 2016 5:41 pm

if the sizes/lengths of the objects respects the COBOL rules
and if the program is properly written

I do not see any reason for storage corruption or abends

anyway I would define once a minute a very low frequency

steve-myers · Posted: Tue Oct 18, 2016 6:02 pm

Since this is CICS I have to wonder if this is a transfer in storage between 2 cooperating programs in a single CICS instance?

If the two programs are properly written I don't see an issue. But why "move" any data? Program A leaves a pointer for program B to use.

Kevin Vaz · New User Joined: 18 Oct 2016 Posts: 11 Location: India

We are using the same pointers for the same copybooks in both the calling and called program. So that the called program can use the variables from calling program and vice versa using the address location.

Bill Woodger · Posted: Tue Oct 18, 2016 6:59 pm

The pointer will be eight bytes in length. As you "pass" it around, its address (also eight bytes) is the only thing which would actually be involved in any data movement.

Kevin Vaz · New User Joined: 18 Oct 2016 Posts: 11 Location: India

in calling program we
set pointer-1 to address of out-record

out-record is a variable under which we have copy copybook

then we are using cics link program(called-program) commarea(pointer-1)

In called program we

set address of out-record to pointer-1

Robert Sample · Posted: Tue Oct 18, 2016 7:22 pm

The 4.6 MB is irrelevant -- the only data being passed is an address. ABENDs should clean up the storage.

Rohit Umarjikar · Posted: Wed Oct 19, 2016 3:22 am

If you are not confident implementing it then there are better other options to share data between the programs which you can think of.

Bill Woodger · Posted: Wed Oct 19, 2016 3:31 am

Where does "out-record" get its storage from? The fact that there happens to be a copybook is entirely irrelevant.

Kevin Vaz · New User Joined: 18 Oct 2016 Posts: 11 Location: India

Hi Thanks all for your replies.

Our web service that we have developed is working perfectly fine. The only issue is that we have stated getting many S0C1 issues recently in the past 3-4 months so we are trying to understand if this module or some other module is causing the issue. And we have to reload certain load modules for them to work after the S0C1 occurs.

Bill Woodger · Posted: Wed Oct 19, 2016 12:46 pm

You asked a general question previously, and now you are saying specifically that it causes S0C1s?

if you are getting S0C1s in application programs, someting is overwriting code to make bad instructions (assuming you check your linkedit/binder output).

Kevin Vaz · New User Joined: 18 Oct 2016 Posts: 11 Location: India

ok Bill thanks.. Will check and get back if I get something in abend aid.

Bill O'Boyle · Posted: Sat Oct 29, 2016 7:19 pm

I'd take a look at Channels/Containers, which can easily handle 5MB of data. Although you can pass a pointer-address, IBM does not advocate this method.