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: 1232
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 Problem commiting to DB2 from IMS MPP Ole Soerensen IMS DB/DC 2 Wed Jul 26, 2017 5:19 pm
No new posts How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm
No new posts Display upon console bipinpeter COBOL Programming 1 Thu Jun 22, 2017 12:35 am
No new posts CICS Transaction attach count of supp... lind sh CICS 1 Wed Jun 21, 2017 1:33 pm
No new posts CICS Transaction Timeout Hooman24 CICS 2 Sun Apr 16, 2017 2:16 pm


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