Skip to main content
3 replies [Last post]
Hoe San
Offline
Joined: 2009-01-29

Hello, is there any utility or ways to print the content of TSQ?

Pls advise.

Thanks.

 

.Hoe San.

pcs305
pcs305's picture
Offline
Joined: 2006-03-06
By printing do you mean

By printing do you mean routing the content of a tdq to a printer?

If you just want to look at the data in the tdq you can use the CEBR transaction.

Hoe San
Offline
Joined: 2009-01-29
Hello, thanks for your reply.

Hello, thanks for your reply. Yes, I do mean printing to spool queue or dataset. Say, you are restricted by RACF to use CEBR. Thanks.

.Hoe San.

pcs305
pcs305's picture
Offline
Joined: 2006-03-06
  If you do not have access

 

If you do not have access to CEBR then the best option will be to roll-your-own TSQ browser to read the queue and write the data to the spool.

EXEC CICS SPOOLOPEN OUTPUT
              NODE ('*')
              USERID ('*')
              RESP(RESP) RESP2(RESP2)
              OUTDESCR(PARMSPTR)
              TOKEN(TOKEN)
              END-EXEC.
    EXEC CICS SPOOLWRITE
              FROM(OUTPRT)
              RESP(RESP) RESP2(RESP2)
              FLENGTH(OUTLEN)
              TOKEN(TOKEN)
              END-EXEC.
    EXEC CICS SPOOLCLOSE
              TOKEN(TOKEN)
              RESP(RESP) RESP2(RESP2)
              END-EXEC.  

Take a look at the Interfaces to JES chapter for more detail.