How to share WOB data between two ESP Master subsystems
search cancel

How to share WOB data between two ESP Master subsystems

book

Article ID: 46670

calendar_today

Updated On:

Products

ESP Workload Automation

Issue/Introduction

How to pass mainframe and distributed job status between two ESP Master subsystems. 

 

 

 

Environment

Release:  All
Component: ESP Workload Automation

Resolution

Instructions: 

  1. Load module CYBESOES on both the CA WA ESP Master subsystems: OPER WOBDEF LOAD(CYBESOES)
  2. Define the CA WA ESP Masters in the AGENTDEF file using the COMMCHAN statement.   
      a. On ESP Master #1 (ESPM1):
          COMMCHAN manager_name_of_ESPM2 ADDRESS(ip_of_ESPM2) -
            PORT(agentrcvport_of_ESPM2) ASCII TCPIP PREF(2) 
        b. On ESP Master #2 (ESPM2):
            COMMCHAN manager_name_of_ESPM1 ADDRESS(ip_of_ESPM1) -
            PORT(agentrcvport_of_ESPM1) ASCII TCPIP PREF(2) 

    3. Issue “OPER LOADAGDF hlq.agentdef” to load/refresh the agent definition file.


Sample application on ESPM1: 

APPL EXTSCH1 
EXTSCH NTJOB1 SCHED('TODAY') 
EXTSCHEDULER ESPM2_MANAGER 
RUN ANY 
ENDJOB 

EXTSCH DSTRIG1 SCHED('TODAY') 
EXTSCHEDULER ESPM2_MANAGER 
RUN ANY 
ENDJOB 

After the related event is triggered, the following is shown in the Auditlog on ESPM1:

MgrMsg: . NTJOB1/EXTSCH1.3/MAIN State READY Status(Agent Notified) 
MgrMsg: . DSTRIG1/EXTSCH1.3/MAIN State READY Status(Agent Notified)
MgrMsg: ESPM2_MANAGER NTJOB1/EXTSCH1.3/MAIN EXTSCHED POST STATE(EXTWAIT) Data(Status(External Scheduler Wait)) User(ESPM2_MANAGER) 
MgrMsg: ESPM2_MANAGER DSTRIG1/EXTSCH1.3/MAIN EXTSCHED POST STATE(EXTWAIT) Data(Status(External Scheduler Wait)) User(ESPM2_MANAGER) 

Auditlog on ESPM2:
MgrMsg: ESPM1_MANAGER NTJOB1/EXTSCH1.3/MAIN EXTSCHED WAIT Job(NTJOB1) Scheduled(' 20130611 00000000+0900', '20130612 00000000+0900') User(ESPM1_MANAGER) MFUser(userid) 
MgrMsg: ESPM1_MANAGER DSTRIG1/EXTSCH1.3/MAIN EXTSCHED WAIT Job(DSTRIG1) Scheduled ('20130611 00000000+0900', '20130612 00000000+0900') User(ESPM1_MANAGER) MFUser(userid) 

Sample application on ESPM2:

       APPL EXTSCH2 
       NT_JOB NTJOB1 
       AGENT AGENT1 
       CMDNAME "C:\batch\exitcode.bat" 
       RUN ANY 
       ENDJOB 

       DSTRIG DSTRIG1 
       DSNAME 'TEST.PSS.DATASET' ANYCLOSE 
       RUN ANY 
       ENDJOB 

After the related event is triggered, and both wobs completed, the following is shown in the Auditlog on ESPM1: 
MgrMsg: ESPM2_MANAGER NTJOB1/EXTSCH1.3/MAIN EXTSCHED POST STATE(COMPLETE) Data(Cmpc(0)) User(ESPM2_MANAGER)
MgrMsg: ESPM2_MANAGER DSTRIG1/EXTSCH1.3/MAIN EXTSCHED POST STATE(COMPLETE) Data(Cmpc(0)) User(ESPM2_MANAGER)

 

 

 

Additional Information

. Mainframe job status is passed between ESP Master subsystems using NDS, NJE, and TPS(LU6.2) methods only.

. Using EXTSCH is better than EXTMON.   The two ESP Master subsystems will treat each other as an agent, and send AFM's to each other.

. DSTRIG tracking data may be passed from one ESP Master subsystem to another.