We have tasks in multiple applications. When one of the applications runs, Task1 runs first. When application completes, task2 runs to release the resource. There are times when the application gets force competed half way through the application. When this happens the task2 which releases the resource is force completed. A defined resource does not free up and prevents other applications from running. Is there a way when the applications get force completed it can trigger in another application with a TASK to reset resource.
Release : 12.0
Component : CA ESP WORKLOAD AUTOMATION
Provided customer an example of how to use a separate application to reset the resource utilizing an external.
created an application called TESTRUNA and TESTRUNB.
In the first application TESTRUNA a selfcompleting task AVAIL0.RESDEF runs and sets resource RICK1 to MAX(0). It releases job RCBJOBE, which I have placed on hold for testing. JOB RCBJOBE releases selfcompleting task process AVAIL1.RESDEF and sets resource RICK1 to MAX(1) and will issue an AJ COMPLETE to application TESTRUNB. If all of this runs normally the resource will be set correctly and force completes TESTRUNB.
In application TESTRUNB I have an EXTERNAL reference to selfcompleting task AVAIL1.RESDEF in appl TESTRUNA. This external will release selfcompleting task process called RESET.RES. If TESTRUNA is forced complete the EXTERNAL in application TESTRUNB will be satisfied and release RESET.RES resetting resource RICK1 to MAX(1). Application TESTRUNB will be completed. Applications are below, if you have more questions or concerns let me know.
APPL TESTRUNA
JCLLIB 'ESP.JCLLIB'
OPTIONS RESTARTSTEP
JOB AVAIL0.RESDEF SELFCOMPLETING TASK PROCESS
RUN DAILY
ESP RESDEF RICK1 SET MAX(0)
RELEASE RCBJOBE
ENDJOB
JOB RCBJOBE HOLD
RUN DAILY
CCCHK RC(5:4095) FAIL CONTINUE
TAG 'CLIFF_APPL_RUN'
RELEASE AVAIL1.RESDEF
ENDJOB
JOB AVAIL1.RESDEF SELFCOMPLETING TASK PROCESS
RUN DAILY
ESP RESDEF RICK1 SET MAX(1)
ESP AJ ALL COMPLETE APPL(TESTRUNB.0)
ENDJOB
APPL TESTRUNB
JCLLIB 'ESP.JCLLIB'
JOB AVAIL1.RESDEF EXTERNAL APPLID(TESTRUNA)
RUN DAILY
RELEASE RESET.RES
ENDJOB
JOB RESET.RES SELFCOMPLETING TASK PROCESS
RUN DAILY
ESP RESDEF RICK1 SET MAX(1)
ENDJOB