View previous topic :: View next topic
|
Author |
Message |
sridevi2005
New User
Joined: 15 Sep 2005 Posts: 42
|
|
|
|
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 |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
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 |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
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 |
|
|
Earl
Active User
Joined: 17 Jun 2007 Posts: 148 Location: oklahoma
|
|
|
|
change the [ ] characters to ( ) in working storage.
and move on.. |
|
Back to top |
|
|
|