WDI - XRF Dispatcher interface

      CONTROL BLOCK NAME = DFHWDSPS
      DESCRIPTIVE NAME = CICS TS (XRF) Dispatcher interface
                             block definitions.
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1985 
      FUNCTION =
           Defines interface to XRF dispatcher for ATTACH and WAIT.
           Caller provides storage for an instance of the interface
           block and sets parameters as required.
      LIFETIME =
           Duration of XRF dispatcher call.
      STORAGE CLASS =
           Caller's choice. Usually above 16M line.
      LOCATION =
           Passed to dispatcher as address in R1.
      INNER CONTROL BLOCKS =
           None
      NOTES :
       DEPENDENCIES = S/370
       RESTRICTIONS =
             None
       MODULE TYPE = Control block definition
     ------------------------------------------------------------------
      EXTERNAL REFERENCES =
        DATA AREAS =
            None
        CONTROL BLOCKS =
            None
        GLOBAL VARIABLES (Macro pass) =
            None
     ------------------------------------------------------------------
       ATTACH Request Parameter Block

Table 1.
Offset Hex	Type	Len	Name (Dim)	Description
(0)	STRUCTURE	28	DFHWDIPS	Addressed from WS Global
(0)	ADDRESS	4	WDIGA	WS Global address (for INITIAL_ATTACH call only)
(4)	ADDRESS	4	WDIEPA	Process entry address
(8)	ADDRESS	4	WDIIDA	Initial data address
(C)	ADDRESS	4	WDIESPIE	ESPIE exit addr.
(10)	ADDRESS	4	WDIESPDA	ESPIE parameter.
(14)	ADDRESS	4	WDIESTAE	ESTAE exit addr.
(18)	ADDRESS	4	WDIESTDA	ESTAE parameter.
(1C)	CHARACTER	0	WDIEND

       WAIT Request Parameter Block

Table 2.
Offset Hex	Type	Len	Name (Dim)	Description
(0)	STRUCTURE	32	DFHWDSPS	Addressed from WS Global
(0)	ADDRESS	4	WDSTYPE	Reserved - must be zero
(4)	ADDRESS	4	WDSEECBA	External event address
(8)	ADDRESS	4	WDSIECBA	Internal event address
(C)	BIT(32)	4	WDSWEVM	Awaited broadcast events
(10)	BIT(32)	4	WDSPEVM	Events to be broadcast
(14)	BIT(32)	4	WDSREVM	Broadcast events to reset for this process.
(18)	BIT(32)	4	WDSFLKM	Locks to be freed
(1C)	BIT(32)	4	WDSGLKM	Locks to be acquired
(20)	CHARACTER	0	WDSEND

Constants

Table 3.
Len	Type	Value	Name	Description
Broadcast event numbers
4	DECIMAL	1	WDSBTICK	Timer cycle
4	DECIMAL	2	WDSBCHNG	Some change in partner status other than ones with specific events.
4	DECIMAL	3	WDSBSON	Partner has signed on
4	DECIMAL	4	WDSBSOF	Partner has signed off
4	DECIMAL	5	WDSBRSV1	No longer used - reserved
4	DECIMAL	6	WDSBBPSA	BACKUP public status now available.
4	DECIMAL	7	WDSBFASA	Final ACTIVE public status now available (during TAKEOVER)
4	DECIMAL	8	WDSBPRST	Please read ACTIVE's latest status
4	DECIMAL	9	WDSBSSR	Start Status Reader processes
4	DECIMAL	25	WDSBPWC1	Primary write complete - odd cycle.
4	DECIMAL	26	WDSBPWE1	Primary write completed with error - odd cycle.
4	DECIMAL	27	WDSBPWC2	Primary write complete - even cycle.
4	DECIMAL	28	WDSBPWE2	Primary write completed with error - even cycle.
4	DECIMAL	29	WDSBSWC1	Secondary write complete - odd cycle.
4	DECIMAL	30	WDSBSWE1	Secondary write completed with error - odd cycle.
4	DECIMAL	31	WDSBSWC2	Secondary write complete - even cycle.
4	DECIMAL	32	WDSBSWE2	Secondary write completed with error - even cycle.
Lock numbers
4	DECIMAL	1	WDSLPSTW	Primary status write lock
4	DECIMAL	2	WDSLSSTW	Secondary status write lock