CICS quick Reference for D2D activities

CICS quick Reference for D2D activities

1. How to terminate a Task in CICS?

This need comes when ant transaction got struck or went into Infinite loop. So to overcome this, that task needs to be purged or terminated as narrated below
– Enter into Native CICS region
– Enter ‘CEMT INW TASK()’

It displays all the tasks running in that CICS region
INQ TASK()
STATUS: RESULTS – OVERTYPE TO MODIFY
Tas(0000045) Tra(PCAD) Sus Tas Pri( 255 )
Sta(SD) Use(START9 ) Uow(D54A3AEBC33F4241)
Tas(0000046) Tra(PCAF) Sus Tas Pri( 001 )
Sta(SD) Use(START2 ) Uow(D54A3AEBC65EC241) Hty(MQSeries)
Tas(0004437) Tra(XPFS) Sus Tas Pri( 001 )
Sta(S ) Use(GUDMA ) Uow(D54DC35861076941) Hty(EKCWAIT )
Tas(0025055) Tra(CEMT) Fac(CP66) Run Ter Pri( 255 )
Sta(TO) Use(GUDMA ) Uow(D56964986132BC41)

Identify your task
Purge it by entering FP and press ENTER

INQ TASK()
STATUS: RESULTS – OVERTYPE TO MODIFY
Tas(0000045) Tra(PCAD) Sus Tas Pri( 255 )
Sta(SD) Use(START9 ) Uow(D54A3AEBC33F4241)
Tas(0000046) Tra(PCAF) Sus Tas Pri( 001 )
Sta(SD) Use(START2 ) Uow(D54A3AEBC65EC241) Hty(MQSeries)
Tas(0004437) Tra(XPFS) Sus Tas Pri( 001 ) FP
Sta(S ) Use(GUDMA ) Uow(D54DC35861076941) Hty(EKCWAIT )
Tas(0025055) Tra(CEMT) Fac(CP66) Run Ter Pri( 255 )
Sta(TO) Use(GUDMA ) Uow(D56964986132BC41)

We can also see the task related to CEMT in the last.

2. How to release all the Programs that are put in Xpeditor

Most of the times after xpediting programs we forgot to release that while coming back. This some times causes the CICS to respond slowly. So programs needs to be released from Xpeditor as below

• Enter XPSP.
• Enter into Option 9 (SYSTEM FACILITIES).
• Enter into Option P (RESOURCE SUMMARY) which shows all the program that are in Xpeditor as below.                   XPEDITER/CICS – RESOURCE SUMMARY (9.P)                           CICS
  COMMAND ===> SCROLL ===> CSR
  MODULE: CSECT:
  ENTRY 000001
  LINE COMMANDS: R (RELEASE) S (SELECT)CMD TERM MODULE CSECT KEEPS BREAKS SKIPS COUNTS

  _ MG06 CADD901 CADD901 00010 00001 00000 00000
  _ MG06 CADD902 CADD902 00005 00001 00000 00000
  **END**

Enter R againt the module name/s and press enter which releases those modules and we will get a message PROGRAM RELEASED

CMD TERM MODULE CSECT KEEPS BREAKS SKIPS COUNTS

R MG06 CADD901 CADD901 00010 00001 00000 00000
R MG06 CADD902 CADD902 00005 00001 00000 00000

3. How to check a transaction Definition

CEMT INQ TRANSACTION gives the basic details about that transaction but to get more details about that CEDB is used.
CEDB VIEW TRA(CAD2)

VIEW TRA(CAD2)
OBJECT CHARACTERISTICS
CEDB View TRANSaction( CAD2 )
TRANSaction ==> CAD2
Group ==>

As the group is not given it does not show the details. To find out the group just give ‘*’ in group and press enter then it displays the below information

ENTER COMMANDS
NAME TYPE GROUP
CAD2 TRANSACTION CAGROUP

Go back to the CEDB View transaction and give group and press enter which shows the transaction definition

CEDB VIEW TRA(CAD2) GROUP(CAGROUP)

VIEW TRA(CAD2) GROUP(CAGROUP)
OBJECT CHARACTERISTICS CICS RELEASE =
CEDB View TRANSaction( CAD2 )
TRANSaction : CAD2
Group : CAGROUP
DEScription :
PROGram : CADD901
TWasize : 00000 0-32767
PROFile : CADCICST
PArtitionset :
STAtus : Enabled Enabled | Disabled
PRIMedsize : 00000 0-65520
TASKDATALoc : Below Below | Any
TASKDATAKey : User User | Cics
STOrageclear : No No | Yes
RUnaway : System System | 0 | 500-2700000
SHutdown : Disabled Disabled | Enabled
ISolate : Yes Yes | No
Brexit :
REMOTE ATTRIBUTES
E ‘TRA’ is ambiguous, TRANSACTION has been assumed.

4. How to refresh a program in a CICS region or how to do a new copy after changes made

CEMT SET PROG(PROG123) NEWCOPY

5. How to FInd the Physical data set(DSN) associated with a CICS file used in COBOL programs.

CEMT INQ FILe is useful for this purpose.

Example: CEMT INQ FILE(CADCST01)
It gives the below result:

I FILE(CADCST01)
STATUS: RESULTS – OVERTYPE TO MODIFY
Fil(MAVMSC01) Vsa Ope Ena Rea Upd Add Bro Del Sha
Dsn( CAD.P2.CADCST01.CL )

CEMT INQ DSName is useful if we know the full data set name.