In connection to tip 48/2009 I briefly mentioned the CEMT command CEMT I TSQ which shows you all local TS queues on the CICS system where the command is executed. The list may be a very long list so you are of course able to limit it using for example a CEMT I TSQ(X*) which reduces the list to TS queues starting with X.
The special property for TS queues is that they remain intact after task execution has finished no matter how the task ended. The only ways to get rid of a TS queue are by shutting down the CICS system or far more suitable by executing a EXEC CICS DELETEQ command. You are able to do so using CECI or of course an application program. But you are also able to delete a TS queue by using the CEMT I TSQ command:
After Mai or Aux there is a field where you can type in a D for DeleteQ. Then you press Enter and the TS queue is deleted. You may also type in a B in fromt of Tsq and press Enter. This will activate the CEBR transaction and it will display the contents of the TS queue. Very neat, I think.
If you are bored and just press Enter while the above list is displayed you will notice that the figures in the parameter Las changes. Las shows the number of seconds since someone used the TS queue. A high Las value is a clear indication of a lacking cleanup by a CICS application.
If you use TS queues in your CICS applications, please remeber to clean them up again as part of the application. TS queues of type Aux occupies disk space in a dataset allocated to CICS if they are swapped out of main storage. TS queues of type Mai occupies space in storage. If a lot of TS queues remains non-deleted the whole CICS system will suffer and a solution may be to remove queues using CEMT I TSQ.