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
 
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: 1243
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 ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm

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