Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 2504
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: 2504
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 IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts FTP Skip or ignore error and process ... AJAYREDDY All Other Mainframe Topics 3 Wed Sep 27, 2017 8:12 pm
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Reply MQ open error Vignesh Sid COBOL Programming 6 Thu Sep 07, 2017 6:02 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us