Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Problem with GETMAIN command

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
amitc23

New User


Joined: 05 Nov 2014
Posts: 78
Location: India

PostPosted: Thu Sep 01, 2016 1:01 pm    Post subject: Problem with GETMAIN command
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: 2422
Location: Netherlands, Amstelveen

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

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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Thu Sep 01, 2016 1:33 pm    Post subject: Reply to: Problem with GETMAIN command
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: 78
Location: India

PostPosted: Thu Sep 01, 2016 1:34 pm    Post subject:
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

Senior Member


Joined: 21 Sep 2010
Posts: 1610
Location: NY,USA

PostPosted: Thu Sep 01, 2016 9:50 pm    Post subject:
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: 78
Location: India

PostPosted: Thu Sep 01, 2016 10:04 pm    Post subject: Reply to: Problem with GETMAIN command
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: 7913
Location: Bellevue, IA

PostPosted: Thu Sep 01, 2016 10:32 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts SDSF Command Avtrix CLIST & REXX 4 Fri Sep 30, 2016 11:13 am
No new posts How to find a CICS resource used in C... Arunkumar Chandrasekaran CICS 8 Thu Sep 29, 2016 1:45 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us