TSQ & TDQ

TSQ:-         Temporary storage queue

• Which is similar to physical sequential file
• Records entered in entry – sequential order with relative record number
• Records can be sequentially or Random by using item number which must be defined in Working – Storage Section as separate field
• The Queue name must be user defined i.e.  1-8 Alph numeric characters must be unique in system
• TSQ can be storage in main memory or Auxiliary memory (QueueID or Queue Name must be defined in TST(Temp Storage Table) which is CICS supplied table
• TSQ can be used to pass the data within CICS
• TSQ can be used to reduce no. of DB2 calls & improve program efficiency
• TSQ can be used for page up, Page down logic
• TSQ can be used for reporting printing online
• Entire TSQ data can be deleted by using delete command (No specific row deletion)

TDQ:- Transient Data Queue

• Used to pass the data from one CICI to another CICS region
• Used to pass the data from CICS to Batch Program.                                                                                                                                                                                                                                                                                                                                                                                

• While using TSQ, we can read the records any no of times
• While using TDQ, multiple read against TSQ is not possible
• Read is destructive i.e. when we read the queue the data is lost
• Updation is not possible
• Delete can apply to intra partition but not to extra position.

TDQ can be stored in main or auziliary.

If we store in Auxiliary we need to define

Queue ID DCT Table (Destination Control Table)

                                                                                   

DFHDCT                   Type = QUEUF

                                  Type = Intra/ Extra

                                  Queid = “TD001”

                                  Trigerleve = 1000

                                 Program  = Cobol

 

01 Ws-Hd

                  02 Ws – Sub – He – 1  PIC X(100) value  “Customer Details”

                  02 Ws – Sub – He – 2  PIC X (100) value “Page No”

01 Ws-line  PIC X(100) value A;;”  ---“

PROCEDURE DIVISION

                  WRITE   Cust  -  Rep  from Ws-Sub-He-1

                  WRITE   Cust -  Rep from Ws-Line

                  WRITE  Cust – Rep from Ws-Sub – He – 2