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
 

 

CICS TSQ Display problem

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

New User


Joined: 15 Sep 2005
Posts: 42

PostPosted: Mon Nov 05, 2007 11:37 am    Post subject: CICS TSQ Display problem
Reply with quote

Hi,

I'm facing one problem with CICS TSQ.

I'm trying to display '[' in the TSQ.But it is showing '.'.

In Working storage I have defined as follows.

01 WS-RPT.
03 FILLER PIC X(01) VALUE '['.
03 WS-ACTION-IND PIC X(01) VALUE SPACES.
03 FILLER PIC X(71) VALUE
'] You have overdrawn your account repeatedly in the last six '.

In the procedure division

MOVE WS-RPT TO WS-WRITE-TSQ
EXEC CICS WRITEQ TS
QNAME(TS-QUEUE)
FROM(WS-WRITE-TSQ)
LENGTH(WS-LENGTH)
ITEM(WS-QUEUE-ITEM)
NOHANDLE
END-EXEC

When xped the program it is showing correct value means '['.
But when i saw this in TSQ it is showing as follows.

TSQ DATA:

.X. You have overdrawn your account repeatedly in the last six

Please let me out on this.

Thanks in advance.
Sridevi Chirukuri
Back to top
View user's profile Send private message

Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1224
Location: Israel

PostPosted: Mon Nov 05, 2007 7:55 pm    Post subject:
Reply with quote

CICS does not care about the contents of the TS: you can have COMP and COMP-3 values and nothing will happen to them.
The only thing that come to my mind is that the application "filters" the data to display in order to prevent XPROG error in the emulation.
Like in a dump: you see a lot of ..... but in fact there are other values.
Can you have a peek at the hex value ?
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Mon Nov 05, 2007 8:11 pm    Post subject:
Reply with quote

That is a good one, with hex off, it shows as a '[' or ']'...
Code:
WRITEQ TS QNAME(WSHT) FROM('{[?]}')   
STATUS:  ABOUT TO EXECUTE COMMAND     
 EXEC CICS  WRITEQ TS                 
  ( QUeue() | QName( X'E6E2C8E34040404
  < Sysid() >                         
  From( X'C0BA6FBBD0' )               
  < Length( X'0005' ) >               
  < NUmitems() | Item() < Rewrite > >
  < Main | Auxiliary >               
  < NOsuspend >           

But upon read it back, even though the values are the same, it displays them as '.' and '.'.....
Code:
READQ TS QNAME(WSHT)               
STATUS:  COMMAND EXECUTION COMPLETE
 EXEC CICS  READQ TS               
  ( QUeue() | QName( X'E6E2C8E340404
  < SYsid() >                       
  ( SEt() | INto( X'C0BA6FBBD0' ) )
  < Length( X'0005' ) >             
  < ITem() | NExt >                 
  < NUmitems( X'0002' ) >           

Makes me wonder just WHO in CICS is doing the translating......
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Mon Nov 05, 2007 8:23 pm    Post subject:
Reply with quote

change the [ ] characters to ( ) in working storage.

and move on..
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 CICS transaction slow response time vasanthz All Other Mainframe Topics 1 Thu Jan 19, 2017 1:31 am
No new posts SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Display ZEDLMSG without Pressing F1 &... anandgbe CLIST & REXX 8 Thu Dec 15, 2016 4:20 pm
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am


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