View previous topic :: View next topic
|
Author |
Message |
amitc23
New User
Joined: 05 Nov 2014 Posts: 95 Location: India
|
|
|
|
Hi
I am getting an issue with the GETMAIN command. I am calling the LAN interface multiple times to send some data out. For this module issues GETMAIN command to acquire buffer area as follows:
Code: |
Compute NewEibcalen2 = Eibcalen + Length Newcommarea2First.
DISPLAY 'NewEibcalen2 : ' NewEibcalen2.
DISPLAY 'Eibcalen : ' Eibcalen.
DISPLAY 'Newcommarea2First : ' Newcommarea2First.
DISPLAY 'DISPLAY 1 **************************'
EXEC CICS GETMAIN
SET(ADDRESS OF NewCommarea2)
FLENGTH(NewEibcalen2)
INITIMG(NullByte)
NOHANDLE
END-EXEC.
DISPLAY 'EIBRESP:'EIBRESP.
If Debug2
if EibResp > Zero
DISPLAY EibTaskN '*' 'GETMAIN(1) EIBRESP=' EibResp
|
This is being done around 160 times, however after around 145th occurrence, this stops working.
The display in log is as follows :
Code: |
NewEibcalen2 : 0000032509
Eibcalen : 32500
Newcommarea2First :
DISPLAY 1 **************************
0013005*Blocking Reads
0013005*I waited 00000 Cycles
|
The displays before this are as follows:
Code: |
NewEibcalen2 : 0000032509
Eibcalen : 32500
Newcommarea2First :
DISPLAY 1 **************************
EIBRESP:0000000000
DISPLAY 2 **************************
|
Any suggestions ?
Thanks |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
FREEMAIN? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Quote: |
... however after around 145th occurrence, this stops working. |
until the TS tells HOW it stops working we are just wasting time guessing |
|
Back to top |
|
|
amitc23
New User
Joined: 05 Nov 2014 Posts: 95 Location: India
|
|
|
|
It is there after connectio to sockets, writes and then closes.
Code: |
1999EndTransaction.
***************************************************************
FREE MAIN STORAGE USED *
***************************************************************
EXEC CICS FREEMAIN
DATA(NewCommarea2)
NOHANDLE
END-EXEC.
|
|
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3053 Location: NYC,USA
|
|
|
|
Quote: |
This is being done around 160 times, however after around 145th occurrence, this stops working. |
Because of what? Talk to CICS Admin and get their help to locate the problem. Are you seeing NOSTG condition occurs? |
|
Back to top |
|
|
amitc23
New User
Joined: 05 Nov 2014 Posts: 95 Location: India
|
|
|
|
Thanks Rohit. Will talk to cics support tomorrow. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
I echo the others in saying you do not provide nearly enough information -- when you tell us something isn't working, you need to tell us what message(s) you get or the CICS response code value (at least).
If the source code is COBOL, are you compiling DATA(24) or DATA(31)? If you are compiling with DATA(24), then your GETMAIN requests come out of DSA and since you've asked for 4.7 million bytes when the GETMAIN requests stop working, I wouldn't be surprised to find SHORT-ON-STORAGE conditions occurring. DATA(31) would indicate the GETMAIN requests are coming from EDSA, but then the question is what size is your EDSA -- a question only your site support group can answer for you.
As otherwise stated, you REALLY need to talk to your site support group -- they are the only ones that will be able to help you. We can guess, but since we don't work at your site we cannot provide you with much help with this problem. |
|
Back to top |
|
|
|