MainframeSupports
tip uge 3/2007:

I forbindelse med tip 44/2006 nævnte jeg meget kort CEMT kommandoen CEMT I TSQ, som viser samtlige lokale TS køer på den CICS, hvor kommandoen udstedes. Det kan selvfølgelig være en rigtig lang liste, så derfor kan listen begrænses med eksempelvis en CEMT I TSQ(X*), som kun viser de TS køer, der starter med X.

TS køer har den helt specielle egenskab, at de overlever efter task afslutning uanset hvordan task'et blev afsluttet. De eneste måder, at en TS kø forsvinder på, er ved at vende CICS'en eller langt mere elegant ved at udstede en EXEC CICS DELETEQ kommando. Det kan man eksempelvis gøre med CECI. Men det er faktisk også muligt at slette en TS kø ved hjælp af CEMT I TSQ kommandoen:

INQ TSQ(X*)
STATUS: RESULTS - OVERTYPE TO MODIFY
 Tsq(XXXXXXXXYYYYYYYY) Num(00003) Len(0000000192) Mai
    Tra(XXXX) Max(00064) Min(00064) Las( 00001267 )
 Tsq(XXXXXXXXZZZZZZZZ) Num(00001) Len(0000000064) Aux
    Tra(YYYY) Rec Max(00064) Min(00064) Las( 00000097 )

Efter Mai eller Aux er der et felt, hvor du kan indtaste et D for DeleteQ. Herefter trykker du Enter og så er TS køen slettet. Du kan også indtaste et B foran Tsq og trykke Enter. Det aktiverer CEBR transaktionen og du ser indholdet af TS køen. Se det er da rigtig elegant.

Hvis du sidder og trykker Enter på ovenstående liste uden ellers at indtaste nogen kommandoer, så vil du opdage, at tallene i parameteren Las ændrer sig. Las angiver hvor mange sekunder, der er gået siden sidste gang, der var nogen, som benyttede den pågældende TS kø. En høj Las værdi er altså en klar indikation af, at der nok ikke er stor sandsynlighed for at den pågældende TS kø fjernes af nogen CICS applikation.

Hvis man bruger TS køer i sine CICS applikationer, så skal man huske at fjerne dem igen som en del af applikationen. TS køer af typen Aux optager disk plads i et dataset allokeret til CICS, hvis de da ikke befinder sig i storage. TS køer af typen Mai optager plads i storage. Rigtig mange TS køer, der ikke fjernes, kan bringe et CICS system i knæ, og så kan en vej ud af problemerne være at fjerne TS køer med CEMT I TSQ.

Forrige danske tip        Last tip in english        Tip oversigten