IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Problem with GETMAIN command


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
amitc23

New User


Joined: 05 Nov 2014
Posts: 95
Location: India

PostPosted: Thu Sep 01, 2016 1:01 pm
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2475
Location: Netherlands, Amstelveen

PostPosted: Thu Sep 01, 2016 1:27 pm
Reply with quote

FREEMAIN?
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Moderator


Joined: 14 Mar 2007
Posts: 10713
Location: italy

PostPosted: Thu Sep 01, 2016 1:33 pm
Reply with quote

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
View user's profile Send private message
amitc23

New User


Joined: 05 Nov 2014
Posts: 95
Location: India

PostPosted: Thu Sep 01, 2016 1:34 pm
Reply with quote

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
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 2567
Location: NYC,USA

PostPosted: Thu Sep 01, 2016 9:50 pm
Reply with quote

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
View user's profile Send private message
amitc23

New User


Joined: 05 Nov 2014
Posts: 95
Location: India

PostPosted: Thu Sep 01, 2016 10:04 pm
Reply with quote

Thanks Rohit. Will talk to cics support tomorrow.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8569
Location: Dubuque, Iowa, USA

PostPosted: Thu Sep 01, 2016 10:32 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Command line placement in DB2I panels TSO/ISPF 2
No new posts Sysncsort - Justification problem SYNCSORT 6
No new posts A command to change LRECL of an exist... JCL & VSAM 7
No new posts How to pass arguments in a ISPSTART c... CLIST & REXX 6
No new posts VSAM Alter Command - Cylinder Extent ... JCL & VSAM 3
Search our Forums:

Back to Top