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
 

 

Error with WRITEQ - TSQ

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

New User


Joined: 09 Apr 2008
Posts: 41
Location: chennai

PostPosted: Wed Oct 23, 2013 2:20 am    Post subject: Error with WRITEQ - TSQ
Reply with quote

Hi,

During the TSQ write, The ITEM number gets increased abnormally.

First step in the program - Delete TSQ
Second - Write TSQ (Header)
Third - Write TSQ (Detail) - Here my ITEM number is 2, executing at the first time. But After Write process the ITEM number shows some 52 or 26 something. While seeing the output in the screen, First page is being shown at the last.

I am not sure, where i am doing wrong.. I have did programs with similar logic and didn't faced such issue.

Could anyone help me on this.
Back to top
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Wed Oct 23, 2013 3:21 am    Post subject: Reply to: Error with WRITEQ - TSQ
Reply with quote

Is your ITEM-NUMBER defined as a binary-halfword - S9(04) COMP?

How did you determine the ITEM-NUMBER, via an INQUIRE TSQUEUE API?
Back to top
View user's profile Send private message
balukanna

New User


Joined: 09 Apr 2008
Posts: 41
Location: chennai

PostPosted: Wed Oct 23, 2013 5:06 am    Post subject: Reply to: Error with WRITEQ - TSQ
Reply with quote

Yes it's defined as half word binary
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Wed Oct 23, 2013 6:28 am    Post subject: Reply to: Error with WRITEQ - TSQ
Reply with quote

Is the TSQ Name unique and does any other program have access to it together with your program? If your answer is NO, then you've got a real dilemma as I've never heard of an error such as this.

When you issue a WRITEQ TS, the Item-Number is automatically incremented by 1 in the CICS Internals or you have the option of specifying the ITEM and NUMITEMS (binary-halfword) in the READQ TS. If you specify NEXT (omit ITEM) in the TSQ READ, the internals will get you the NEXT Item in the TSQ. If you raise the ITEMERR, this means you've reached the end of the TSQ and there aren't any more "Records" (Items) in the TSQ. If you issue a TSQ READ, specifying a value in ITEM (omit NEXT), then you'll either get that "Record" (Item) or you'll raise the ITEMERR. In either example, specifying NUMITEMS for either type of TSQ READ might be beneficial in obtaining the actual number of Items in the TSQ.

You can also issue an INQUIRE TSQUEUE API, to obtain TSQ characteristics. The syntax for this can be found in the System Programmer Reference or you can experiment using CECI (if you're authorized and hopefully not in Production).

That's about all I can offer....
Back to top
View user's profile Send private message
balukanna

New User


Joined: 09 Apr 2008
Posts: 41
Location: chennai

PostPosted: Fri Oct 25, 2013 12:19 am    Post subject:
Reply with quote

I found "MY" mistake..

I have 3 TSQ's in the same program..
Initially while doing delete i haven't gave the TSQ name correctly for First TSQ, so it was not deleted.
Hence During WriteQ the Item numbers were increased automatically.
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 Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts IDC2902I Error tzeche ABENDS & Debugging 2 Tue Mar 28, 2017 11:39 am
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm
No new posts INVOKE WEBSERVICE error danik56 CICS 11 Thu Mar 09, 2017 11:52 am


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