CICS_Trianing Class_08.ppsx
-
Upload
ravikiran8p -
Category
Documents
-
view
223 -
download
0
Transcript of CICS_Trianing Class_08.ppsx
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 1/15
QUEUES
CICS Training Class-08
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 2/15
Introduction to QUEUE’S
Queue’s are temporary storages for holding up records that need
to be processed. They are not physically stored.
The processing is much faster for the queues as they are available
readily in main memory
There are two types of queues :
● Temporary Storage Queue (TSQ)● Transient Data Queue (TDQ)
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 3/15
Temporary Storage Queue
TSQ’S provides application programmer the ability to store
and retrieve data.
Application can use TSQ like a scratch pad
TSQ are: reated and deleted dynamically
!o "S table entry required #if recovery !$T required%
"dentified by queue id # & to ' bytes%
(ach record in TSQ identified by relative position called the
Item Number
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 4/15
More about TSQ
$perations:
)rite a record *ead data sequential and random +pdate ,elete the queue
Access:
Transactions Terminal
Storage :
-ain !on recoverable Auiliary recoverable #must have TST entry%
Typical +se :
,ata passing among Transactions Terminal paging *eport /rinting
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 5/15
WITEQ TS
● EXEC CICS WRITEQ TS
QUEUE(Q NAME)
R!M(DATA"AREA)
#EN$T%(DATA"&A#UE)
ITEM(DATA"AREA) ' REWRITE
MAIN ' AUXI#AR
● END"EXEC
onditions : "T(-(**0 1(!2(**0 Q",(**0 !$S/A(0 !$TA+T3
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 6/15
eadQ TS
– EXEC CICS READQ TS
– QUEUE(Q NAME)
– INT!(DATA"AREA)
– #EN$T%(DATA"&A#UE)
–
ITEM(DATA"AREA) ' NEXT – END"EXEC
onditions : "T(-(**0 1(!2(**0 Q",(**0 !$S/A(0
!$TA+T3
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 7/15
!elete" ts
,elete all entries in the queue
● EXEC CICS DE#ETEQ TS
QUEUE(Q NAME)
● END"EXEC
onditions : "T(-(**0 1(!2(**0 Q",(**0 !$S/A(0
!$TA+T3
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 8/15
Transient data "ueue
T,Q provides the programmer with queuing facilities
,ata can be stored fro internal4eternal processing
Stored data can be routed to symbolic destination
T,Qs require ,T entry
"dentified by destination ", & to 5 bytes
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 9/15
Intra and e#tra partitioned T!Qs
"!T*A partitioned: associated with the same "S subsystem.
Typical uses:● ATI (Automati* tas+ initiation ) asso*iate, -it. trigger /e0e/
● Message s-it*.ing
(tra /artitioned: associated with internal4eternal cics0 to any sequential
dives like ,AS, TA/(
T6/"A1 +S(S :● #ogging ,ata1 transa*tion error messages storing
$perations: )rite a record *ead data sequential and random ,elete the queue
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 10/15
$utomatic tas% initiation
AT" is the facility through which a cics transaction can be initiated
automatically.
,73,T T6/(8"!T*A0
,(ST",8-S2S0
T*A!S",#-S2&%0
T*"21(98;;
)hen the number of record reaches ;;0 the transaction msg& will be
initiated automatically.
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 11/15
WITEQ T!
● EXEC CICS WRITEQ TD
QUEUE(Q NAME)
R!M(DATA"AREA)
#EN$T%(DATA"&A#UE)
ITEM(DATA"AREA) ' REWRITEMAIN ' AUXI#AR
● END"EXEC
onditions : "T(-(**0 1(!2(**0 Q",(**0 !$S/A(0 !$TA+T3
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 12/15
E$!Q T!
– Rea,s t.e 2ueue ,istra*ti0e/y1 re*or, is not a0ai/ab/e in t.e
2ueue a3ter t.e rea,
– EXEC CICS READQ TD
– QUEUE(Q NAME)
– INT!(DATA"AREA)
– #EN$T%(DATA"&A#UE)
– ITEM(DATA"AREA) ' NEXT
– END"EXEC
onditions : "T(-(**0 1(!2(**0 Q",(**0 !$S/A(0
!$TA+T3
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 13/15
!E&ETEQ T!
,elete all entries in the queue
● EXEC CICS DE#ETEQ TD
QUEUE(Q NAME)
● END"EXEC
onditions : "T(-(**0 1(!2(**0 Q",(**0 !$S/A(0
!$TA+T3
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 14/15
Di33eren*es bet-een TSQ4s an, TDQ4s
"n TSQ0 data can be written and read either sequentially or randomly0 while
in T,Q0 the data is written or read only sequentially.
"n TSQ0 the data can be read any number of times because it remains in the
queue until the entire queue is deleted. "n a T,Q data item0 it is read only
once.
,ata can be updated in place for TSQ0 but not in T,Q.
The TSQ name is defined dynamically0 while a T,Q name is defined in the
,T. TSQ can be written to auiliary or main storage0 while T,Q is
written to disk.
TSQ does not use a trigger level while T,Q data has a trigger level
#automatic task initiation%.
7/27/2019 CICS_Trianing Class_08.ppsx
http://slidepdf.com/reader/full/cicstrianing-class08ppsx 15/15
T'an% (ou