View previous topic :: View next topic
|
Author |
Message |
sridevi2005
New User
Joined: 15 Sep 2005 Posts: 42
|
|
|
|
Hi All,
I want to delete TSQ's from CICS region not from the program .
I have the used the following command to delete the TSQ
CECI DELETEQ TS TSqname
My TSQname is T0497471....
01 WS-TS-QUEUE.
05 WS-PRINTER-NAME PIC X(08).
05 WS-TASK-ID PIC 9(07) COMP-3.
Task id is COMP-3 value.
Can anyone update me how to delete from the CICS region.
Thanks,
Sridevi |
|
Back to top |
|
|
nuthan
Active User
Joined: 26 Sep 2005 Posts: 146 Location: Bangalore
|
|
|
|
CECI is the IBM supplied transaction. So u can use this in CICS region and delete.
Let me know where u have used the syntax 'CECI DELETEQ TS TSqname
' |
|
Back to top |
|
|
sridevi2005
New User
Joined: 15 Sep 2005 Posts: 42
|
|
|
|
Hi,
I have used this command in one of my region.
I think I'm getting error because of comp-3 value.
When I used CEMT I TSQ(*) I got the following queue name
T0497471........ |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
Do your CEMT command:
Place your cursor on the line where is the TS you want and press ENTER
You receive detailed info about the TS, but also the possibility to use PF2 for hex display.
Copy the hex value.
In CECI, use PF2 as well to display the hex value and paste your TS name.
Am I clear ? |
|
Back to top |
|
|
sridevi2005
New User
Joined: 15 Sep 2005 Posts: 42
|
|
|
|
HI,
I got the hex value X'E3F0F4F9F7F4F7F0F0F0F0F000000000' for the TSQ name 'T04974700000....' .
But now I was unable to delete the queue name.I used the following code
CECI DELTEQ T04974700000....
Can u update me how to put hex value in CECI
Thank u very mcuh |
|
Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
OK, you now have the hex value, that was the difficult part !
Enter:
Code: |
CECI DELETEQ TS QNAME(X) |
You will receive:
Code: |
DELETEQ TS QNAME(X)
STATUS: ABOUT TO EXECUTE COMMAND
EXEC CICS DELETEQ TS
( QUeue() | QName( 'X ' ) )
< Sysid() > |
Hit PF2 and you will see:
Code: |
DELETEQ TS QNAME(X)
STATUS: ABOUT TO EXECUTE COMMAND
EXEC CICS DELETEQ TS
( QUeue() | QName( X'E7404040404040404040404040404040' ) )
< Sysid() > |
Now paste the hex queue name instead of the E74040.. so you now have:
Code: |
DELETEQ TS QNAME(X)
STATUS: ABOUT TO EXECUTE COMMAND
EXEC CICS DELETEQ TS
( QUeue() | QName( X'E3F0F4F9F7F4F7F0F0F0F0F000000000' ) )
< Sysid() > |
Hit ENTER once to get the change and once more to execute the command.
That should do the trick! |
|
Back to top |
|
|
sridevi2005
New User
Joined: 15 Sep 2005 Posts: 42
|
|
|
|
Hi Marso,
Its working fine.
Thank u vey much for your support.
It was very great help. |
|
Back to top |
|
|
|