Author: amitc23
Subject: Problem with GETMAIN command
Posted: Thu Sep 01, 2016 1:01 pm (GMT 5.5)
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:
This is being done around 160 times, however after around 145th occurrence, this stops working.
The display in log is as follows :
The displays before this are as follows:
Any suggestions ?
Thanks
Subject: Problem with GETMAIN command
Posted: Thu Sep 01, 2016 1:01 pm (GMT 5.5)
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