WTA - XRF takeover initiation argument block

    CONTROL BLOCK NAME = DFHWTADS
    NAME OF MATCHING PLS CONTROL BLOCK = None
    DESCRIPTIVE NAME = CICS TS XRF Takeover Initiation
                       Argument Block
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1985, 1989 
    FUNCTION =
           Used to specify arguments for a request to
           XRF Takeover Initiation Program (DFHWTI).
           Requests are:
              o Takeover Initiation
              o Verify CLT
              o Overseer Operator Command
              o Inquire Job Status
              o Process CLT
              o Issue MODIFY USERVAR
              o Terminate External Subsystem
              o Verify AXI
              o Issue subsystem command
              o Disable XRF services
           There is one instance of this control block per request.
    LIFETIME =
           Created and destroyed by caller.
    STORAGE CLASS =
           MVS program key storage.
    LOCATION =
           Pointed to by R1 on entry to Takeover Initiation Program.
    INNER CONTROL BLOCKS =
           None.
    NOTES :
       DEPENDENCIES = S/370 XA
       RESTRICTIONS =
       MODULE TYPE = Control block definition
   --------------------------------------------------------------------
    EXTERNAL REFERENCES =
        DATA AREAS =
        CONTROL BLOCKS =
        GLOBAL VARIABLES (Macro pass) =
   --------------------------------------------------------------------
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 DFHWTADS 
         REQUEST TYPE
(0) FULLWORD 4 WTAREQ (0)
(0) BITSTRING 1 WTAFUNC Function
(1) BITSTRING 1 WTAMOD Modifier
(2) CHARACTER 1 (2) Reserved 
         ARGUMENTS:
(4) FULLWORD 4 WTAARGS (0) 
         Takeover Initiation
         Inquire Job Status
         Process CLT
(4) .... ....   WTACLLEN "*-WTAARGS" Length of arguments for
(4) CHARACTER 1 WTAICIND CEC indicators Treat old active job as..
(4) 1... ....   WTAICISA "X'80'" ..same MVS instance
(4) .1.. ....   WTAISYSA "X'40'" ..same XCF Sysplex
(6) HALFWORD 2 WTAISCMD Command code (Issue subsys cmd)
(8) CHARACTER 4 WTAICMVS MVS system identifier if active
(C) FULLWORD 4 WTAICTOD Most significant fullword of
(10) CHARACTER 8 WTAIJOBN Job name as known by JES
(18) CHARACTER 8 WTAIJOBI Job identifier as known by JES
(20) CHARACTER 8 WTAISNAM MVS System name (CVTSNAM)
(28) CHARACTER 4 WTAISTOK MVS Instance Token (QUASSID)
(2C) BITSTRING 1 WTAISTAT MVS System State
(2C) 1... ....   WTAISPRT "X'80'" ..In Sysplex Partitioning
(2C) .1.. ....   WTAILOCL "X'40'" ..In XCFLOCAL mode
(2D) CHARACTER 1 (3) Reserved
(2D) ..1. 11..   WTAIJLEN "*-WTAARGS" Length of arguments for
(30) CHARACTER 8 WTAITCAN Job name for CANCEL command
(38) CHARACTER 4 WTAITJES JES subsystem name
(3C) HALFWORD 2 WTAITASI Address space indentifier
(3E) HALFWORD 2   Reserved OLD CICS ACTIVE WAIT FOR TERMINATION DATA:
(40) FULLWORD 4 WTAIJESI JES delay interval
(40) .1.. ....   WTATILEN "*-WTAARGS" Length of arguments for
(40) .1.. ....   WTAVCLEN "*-WTAARGS" Length of arguments for
(44) CHARACTER 4 WTAISSID External subsystem id.
(44) .1.. .1..   WTASCLEN "*-WTAARGS" Length of arguments for
(44) .1.. .1..   WTATELEN "*-WTAARGS" Length of arguments for
(44) .1.. .1..   WTAVALEN "*-WTAARGS" Length of arguments for 
         Modify Uservar
         Overseer Operator Command
         Disable XRF services
(44) .... ....   WTADXLEN "*-WTAARGS" Length of arguments for
(44) .... ....   WTAMULEN "*-WTAARGS" Length of arguments for
(4) CHARACTER 5 WTAOCOMD (0) Command data
(4) ADDRESS 4 WTAOCAD Address of command string
(8) BITSTRING 1 WTAOCCL Command string length (Maximum
(8) .... .1.1   WTAOCLEN "*-WTAARGS" Length of arguments for 
         Inquire System Details
(4) CHARACTER 8 WTAGSNAM MVS System Name (CVTSNAM)
(C) CHARACTER 4 WTAGSTOK MVS Instance Token (QUASSID)
(10) BITSTRING 1 WTAGSTAT MVS System State
(10) 1... ....   WTAGSPRT "X'80'" ...In Sysplex Partitioning
(10) .1.. ....   WTAGLOCL "X'40'" ...In XCFLOCAL mode
(10) .... 11.1   WTAGSLEN "*-WTAARGS" Length of arguments for
(10) .1.. 1...   WTALEN "*-DFHWTADS" Overall length 
                                   ..as in MVS DSECT SSOB
         Request Function codes (WTAFUNC)
(10) .... ...1   WTAFTI "X'01'" Takeover Initiation
(10) .... ..1.   WTAFJS "X'02'" Inquire Job Status
(10) .... ..11   WTAFVC "X'03'" Verify CLT
(10) .... .1..   WTAFOC "X'04'" Overseer Operator Command
(10) .... .1.1   WTAFMU "X'05'" Issue 'F USERVAR'
(10) .... .11.   WTAFCL "X'06'" Process CLT only
(10) .... .111   WTAFTE "X'07'" Terminate External Subsystem
(10) .... 1...   WTAFVA "X'08'" Verify AXI
(10) .... 1..1   WTAFSC "X'09'" Issue subsystem command
(10) .... 1.1.   WTAFDX "X'0A'" Disable XRF services
(10) .... 1.11   WTAFIS "X'0B'" Inquire MVS system details 
         Request Modifiers
  Takeover initiation
(10) .... ...1   WTATICM "X'01'" Do not terminate active job
(10) .... ..1.   WTATIPC "X'02'" Do not process CLT
(10) .... .1..   WTATICS "X'04'" Process CLT for same CEC only 
  Process CLT
(10) .... .1..   WTATPCS "WTATICS" Process CLT for same CEC only 
  Takeover external subsystem
(10) .... ...1   WTATECM "WTATICM" Do not terminate active system 
  Verify AXI
(10) .... ...1   WTAVANCN "X'01'" Do not check cancel name in AXI
(10) .... ..1.   WTAVANSS "X'02'" Do not check subsystem id. 
         Command Codes (WTAISCMD)
  Issue Subsystem Command
(10) .... ...1   WTASCERE "1" /ERE
(10) .... ..1.   WTASCSWT "2" /SWITCH STANDBY SYSTEM 
         RETURN CODES:
         Contents of register 15 on return
(10) .... ....   WTARC0 "0" Successful: Warning reason
(10) .... 1...   WTARCF "8" Failure: Failure reason 
         Contents of register zero on return
         Byte 0 Original function code
         Byte 1 Original modifier
         Bytes 2-3 Reason code as below
         Reason code values
         Any request type
  Failures
(10) .... .1..   WTARISD "X'0004'" Service disabled
(10) .... 1...   WTARIIA "X'0008'" Invalid request or argument 
         Takeover Initiation
  Warnings
(10) .... 11..   WTARIDV "X'000C'" CEC Dead Data request failed
(10) ...1 ....   WTARIDG "X'0010'" CEC Dead Data PUT failed due
(10) ...1 .1..   WTARITF "X'0014'" Terminate command failed 
  Failures
(10) ...1 1...   WTARIAF "X'0018'" Authorization check failed
(10) ...1 11..   WTARIAS "X'001C'" AFCS not found 
         Inquire Job Status
  Successful:
(10) .... ....   WTARJNX "X'0000'" Job not executing - says JES
(10) ..1. ....   WTARJSX "X'0020'" Job executing
(10) ..1. ...1   WTARXNX "X'0021'" Job not executing - says XCF 
  Failures
(10) ..1. ..11   WTARJXF "X'0023'" IXCQUERY failure
(10) ..1. .1..   WTARJNU "X'0024'" JES not up
(10) ..1. .1.1   WTARJSSG "X'0025'" subt. stor. Getmain failed
(10) ..1. .11.   WTARJSAT "X'0026'" Subtask Attach failed
(10) ..1. .111   WTARJSTO "X'0027'" Subtask TimeOut
(10) ..1. 1...   WTARJSE "X'0028'" Subtask error
(10) ..1. 1..1   WTARJJDE "X'0029'" Jes Detected Error 
         Verify CLT
  Failures:
(10) ...1 1...   WTARVAF "WTARIAF" Authorization check failed
(10) ...1 11..   WTARVAS "WTARIAS" AFCS not found
(10) ..1. 11..   WTARVNF "X'002C'" Cancel name check failed
(10) ..11 ....   WTARVMF "X'0030'" MVS SID check failed
(10) ..11 .1..   WTARVJF "X'0034'" JES subsystem name check failed
(10) ..11 1...   WTARVSF "X'0038'" Subsystem name check failed 
         Overseer Operator Command
  Failures:
(10) ..11 11..   WTARONA "X'003C'" Not authorised 
         Process CLT
  Failures:
(10) ...1 1...   WTARPAF "WTARIAF" Authorization check failed
(10) ...1 11..   WTARPAS "WTARIAS" AFCS not found
(10) .1.. ....   WTARIMC "X'0040'" Modify uservar CSCB not found
(10) .1.. .1..   WTARIMB "X'0044'" Modify uservar command too long
(10) .1.. 1...   WTARIMS "X'0048'" Modify uservar MGCR SVC error
(10) .1.. 11..   WTARIMV "X'004C'" Modify uservar ISTAVT not found 
         Issue Subsystem Command
  Failures:
(10) .1.1 ....   WTARCSF "X'0050'" SSI failure
(10) .1.1 .1..   WTARCCF "X'0054'" Command failure 
         Inquire System Details command
  Successful:
(10) .11. ....   WTARSOK "X'0060'" Inquire system details OK
(10) .11. ...1   WTARSNFN "X'0061'" Named system not in sysplex 
  Failures:
(10) .11. .1.1   WTARSLOG "X'0065'" IXCQUERY Logic error 
           Contents of register 1 on return
           Subtask failure indicators
    For Takeover Initiation, Terminate Subsystem
    and Inquire Job Status :-
           SSI/Subtask error status data
Table 2.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 WTARCR1
(0) FULLWORD 4 WTARSSRC (0) SSI/Subtask error flags
(0) BITSTRING 1 WTARSJND STATUS error indicators:
(0) 1... ....   WTARSJNC "X'80'" STATUS has hung. When caller TCB
(0) .... ...1   WTARSJNJ "X'01'" SSOBRETN byte 3 from IEFSSREQ
(0) .... ..1.   WTARSJNS "X'02'" R15 byte 3 from IEFSSREQ
(0) .... .1..   WTARSJNG "X'04'" Subtask/exit routine storage
(0) .... 1...   WTARSJNA "X'08'" Subtask ATTACH failed
(0) ...1 ....   WTARSJNT "X'10'" Subtask timeout occurred
(1) BITSTRING 1 WTARSJSE SSI return code from STATUS
(2) BITSTRING 1 WTARSVND SSI VERIFY/COMMAND errors
(2) .... ...1   WTARSVNJ "X'01'" SSOBRETN byte 3 from IEFSSREQ
(2) .... ..1.   WTARSVNS "X'02'" R15 byte 3 after IEFSSREQ
(2) .... .1..   WTARSVNM "X'04'" CICS not an MVS subsystem
(3) BITSTRING 1 WTARSVSE SSI return code from VERIFY/COMMAND