WCG - XRF Global control block

      CONTROL BLOCK NAME = DFHWCGPS
      DESCRIPTIVE NAME = CICS TS (XRF) Global Control Block
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1985, 1987 
      FUNCTION =
           XRF surveillance/state managament mechanism analogue of
           the CICS CSA. A single instance of this block is created
           at XRF SIGNON.
      LIFETIME =
           Created by XRF SIGNON and destroyed by SIGNOFF (NORMAL)
      STORAGE CLASS =
           Non-CICS storage. In MVS subpool 0 storage above 16M line.
      LOCATION =
           Located either via WCSGLBLA in the XRF Static storage
           (DFHWCSPS) addressed by SSZXRF in the SSA, or via
           WXBGLBLA in the XRF process block in the case of
           code running as an XRF process.
      INNER CONTROL BLOCKS =
           None.
      NOTES :
       DEPENDENCIES = S/370
       RESTRICTIONS =
             None.
       MODULE TYPE = Control block definition
     ------------------------------------------------------------------
      EXTERNAL REFERENCES =
            None
        DATA AREAS =
            None
        CONTROL BLOCKS =
            None
        GLOBAL VARIABLES (Macro pass) =
            None
     ------------------------------------------------------------------

Table 1.
Offset Hex	Type	Len	Name (Dim)	Description
(0)	STRUCTURE	144	DFHWCGPS	CAVM Global Control Block
(0)	CHARACTER	8	WCGIDENT	Eye Catcher XRF-GLBL
(8)	ADDRESS	4	WCGSTATA	CAVM Static Area address
(C)	ADDRESS	4	WCGCKDA	Pointer to TOD Clock Difference Data (BACKUP systems only)
(10)	ADDRESS	4	WCGNTA	Entry table for routines above 16M line.
(14)	ADDRESS	4	WCGXRFNT	Entry table for routines below 16M line (copy of CSZXRFNT in CSAOPFL).
(18)	ADDRESS	4	WCGDA	Process Management data
(1C)	ADDRESS	4	WCGFA	Status and State file data
(20)	ADDRESS	4	WCGMA	Message data
(24)	ADDRESS	4	WCGTRA	Trace control area
(28)	ADDRESS	4	WCGLFA	LIFO work area
(2C)	ADDRESS	4	WCGSA	Status control area
(30)	ADDRESS	4	WCGSXA	Surveillance exits control area
(34)	CHARACTER	8	WCGSAPPL	System's Specific APPLID
(3C)	CHARACTER	84	WCGCS	Common services area
(3C)	CHARACTER	72	WCGCSSVA	Common services save area
(84)	CHARACTER	12	WCGCSPRM	Common services parameter area.
(90)	CHARACTER	0	WCGEND

                          Entry Table.
       This is the definition of the list of entry points to XRF
       modules located above the 16M line.

Table 2.
Offset Hex	Type	Len	Name (Dim)	Description
(0)	STRUCTURE	32	WCGENTAB
(0)	ADDRESS	4	WCGELGET	Entry to DFHWLGET
(4)	ADDRESS	4	WCGELFRE	DFHWLFRE
(8)	ADDRESS	4	WCGEDATT	DFHWDATT
(C)	ADDRESS	4	WCGEDWAT	DFHWDWAT
(10)	ADDRESS	4	WCGEMS20	DFHWMS20
(14)	ADDRESS	4	WCGETRP	DFHWTRP
(18)	ADDRESS	4	WCGEDISP	DFHWDISP
(1C)	ADDRESS	4	WCGECCS	DFHWCCS

                Common service Interface
       This defines the parameter area to be passed to the Common
       Services routine DFHWCCS.

Table 3.
Offset Hex	Type	Len	Name (Dim)	Description
(0)	STRUCTURE	12	DFHWCIPS	XRF Common Services parameter block
(0)	FULLWORD	4	WCIPID	Request Identifier
(4)	ADDRESS	4	WCIPSA	Storage area address
(4)	ADDRESS	4	WCIPECBA	Address of ECB
(4)	ADDRESS	4	WCIPMSGA	Address of message
(4)	ADDRESS	4	WCIPXPBA	Address of XPB
(8)	FULLWORD	4	WCIPSL	Storage area length
(8)	FULLWORD	4	WCIPCOMP	POST completion code
(8)	ADDRESS	4	WCIPSVA	Address of Save area
(8)	FULLWORD	4	WCIPABCD	ABEND code
(8)	BIT(8)	1	WCIPDOPT	Dump options
(9)	BIT(12)	2	WCIPSABC	System ABEND code
(A)	BIT(12) POS(5)	2	WCIPUABC	User ABEND code

Table 4.
Offset Hex	Type	Len	Name (Dim)	Description
(0)	STRUCTURE	12	*	XRF Common Services parameter block
(0)	FULLWORD	4	*	Request Identifier
(4)	CHARACTER	8	WCIPCHAR	Character result
(4)	CHARACTER	4	WCIPHEX	Hex source

Constants

Table 5.
Len	Type	Value	Name	Description
Request IDs (values for WCIPID)
4	DECIMAL	0	WCIINTER	Internal error detected
4	DECIMAL	1	WCIGETM	MVS GETMAIN for subpool 0 storage above 16M line.
4	DECIMAL	2	WCIFREEM	MVS FREEMAIN
4	DECIMAL	3	WCIPOST	MVS Hand POST
4	DECIMAL	4	WCIXCONV	Convert hex to character
4	DECIMAL	5	WCIBLDPC	Build XPB for CICS TCB
4	DECIMAL	6	WCIBLDPX	Build XPB for XRF TCB
4	DECIMAL	7	WCIMSGAB	Message/ABEND