Test method without XPED for CICS pgm triggered from PLT pgm

adi.nishant · New User Joined: 15 Jun 2011 Posts: 2 Location: India

hi,

I have a CICS pgm to test which can't be tested directly from the terminal as it have a hardcoded logic that if Assign command start code = 'TD' , return.
It's getting called from another pgm which is a program list table program.
Please provide me with an approach to test the transaction without using XPED.

Marso · Posted: Sun Aug 12, 2012 7:43 pm

You can always place a breakpoint right after the EXEC CICS ASSIGN, and change the received value (in WORKING-STORAGE) from TD to S or SD.

Peter cobolskolan · Posted: Sun Aug 12, 2012 8:04 pm

Use CEDX to monitor and debug non-terminal transactions.
Read more here:

Peter cobolskolan · Posted: Sun Aug 12, 2012 9:04 pm

Furthermore, the easiest way to trigger your transaction is to just execute a command using CECI.

Bill O'Boyle · Posted: Sun Aug 12, 2012 9:59 pm

Invoke the PLT program as a Transid, by checking the CICSSTATUS via the INQUIRE SYSTEM API at the program's beginning. If the status is STARTUP (DFHVALUE(STARTUP)), then issue a deferred START (non-zero interval --- 30 seconds should be OK) of the TRANSID assigned to this program. By doing it this way, the region will always launch and if the program had a problem, it will occur after CICS is up and active.

Upon the next invocation of the program (CICSSTATUS will be DFHVALUE(ACTIVE)), the program does what it's supposed to do.

As Peter has said, issue a CEDX tttt against the Transid and then issue a START with an interval of (for example) 20 seconds, then clear out of CECI and wait for the CEDX/Transid session to invoke.

Once the Transid is invoked, the program doesn't know how it had been invoked and the CICSSTATUS will be ACTIVE (F'181') and you can then walk it through.

You can build a failsafe of someone trying to START the transaction at a terminal by checking for an ACTIVE status and EIBTRMID NOT = LOW-VALUES or a STARTCODE of 'TD'.

HTH....