WMI - XRF Internal interface block

      CONTROL BLOCK NAME = DFHWMIPS
      DESCRIPTIVE NAME = CICS TS (XRF) Internal interface block
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1985 
      FUNCTION =
           Defines a three word parameter block which is used
           throughout XRF message management as the interface
           between the various modules of which it is composed.
           The block has many different overlays depending on
           the function being invoked. However, excepting the
           special case of the call from DFHWMS, the first word,
           WMIPID, always a function code. The function code
           values are named WMIxxyyy where xx is the module
           supporting the function (DFHWMxx) and yyy is the
           specific function requested.
      LIFETIME =
           Created by caller of a routine and lasts for duration
           of call.
      STORAGE CLASS =
           User choice. Usually in storage above the 16M line.
      LOCATION =
           Conventionally addressed by R1 w hen passed to callee.
      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
     ------------------------------------------------------------------
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 12 DFHWMIPS XRF Message manager parameter block
(0) FULLWORD 4 WMIPID Request Identifier
(0) CHARACTER 2 *
(2) CHARACTER 2 WMIPRESP Response (like WMSRESP)
(4) ADDRESS 4 WMIPWQE Work queue element addr
(4) ADDRESS 4 WMIPRB User Request block addr
(4) ADDRESS 4 WMIPCCA CI Control area address
(4) CHARACTER 2 *
(6) CHARACTER 2 WMIPTRSP Termination response
(8) ADDRESS 4 WMIPQA Work queue anchor addr
(8) ADDRESS 4 WMIPTGT Target for message copy
(8) FULLWORD 4 WMIPOPTC RPL type (PUT or GET)
(8) CHARACTER 4 WMIPQNAM Message queue name
(8) CHARACTER 2 *
(A) CHARACTER 2 WMIPCRSP Completion response
Table 2.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 12 * Parameter block
(0) FULLWORD 4 * Request Identifier
(4) ADDRESS 4 WMIPEPA EPIE/SDWA
(8) ADDRESS 4 WMIPIDA Initial data of process
(8) ADDRESS 4 WMIPNPSW New PSW for ESPIE return

Constants

Table 3.
Len Type Value Name Description 
    Request IDs for DFHWMG1
4 DECIMAL 0 WMIG1INT Initialize
4 DECIMAL 1 WMIG1GET GETMSG process
4 DECIMAL 2 WMIG1EST ESTAE exit 
    Request IDs for DFHWMMT
4 DECIMAL 1 WMIMTBLD Build CI areas
4 DECIMAL 2 WMIMTPUT Issue VSAM PUT
4 DECIMAL 3 WMIMTGET Issue VSAM GET
4 DECIMAL 4 WMIMTFMT Format message datset 
    Request IDs for DFHWMPG
4 DECIMAL 1 WMIPGWRT Copy data to target
4 DECIMAL 2 WMIPGESP Program check has occured 
    Request IDs for DFHWMP1
4 DECIMAL 0 WMIP1INT Initialize
4 DECIMAL 1 WMIP1PUT PUTMSG process
4 DECIMAL 2 WMIP1EST ESTAE exit
4 DECIMAL 3 WMIP1ESP ESPIE exit 
    Request IDs for DFHWMQH
4 DECIMAL 0 WMIQHINT Initialize
4 DECIMAL 1 WMIQHENQ Place message on queue
4 DECIMAL 2 WMIQHLOC Locate/Create queue anchor
4 DECIMAL 3 WMIQHTRM Terminate 
    Request IDs for DFHWMQS
4 DECIMAL 1 WMIQSGN Get next queue element
4 DECIMAL 2 WMIQSCMP Complete request
4 DECIMAL 3 WMIQSCMB Complete batch of requests
4 DECIMAL 4 WMIQSTRM Close down queue and post any remaining requests. 
    Request IDs for DFHWMRD
4 DECIMAL 0 WMIRDINT Initialize
4 DECIMAL 1 WMIRDGET Read message 
    Request IDs for DFHWMR1
4 DECIMAL 0 WMIR1INT Initialize
4 DECIMAL 1 WMIR1REQ PUTREQ process
4 DECIMAL 2 WMIR1RSP PUTRSP process
4 DECIMAL 3 WMIR1RCV RECEIVE process
4 DECIMAL 4 WMIR1ESP ESPIE exit
4 DECIMAL 5 WMIR1EST ESTAE exit 
    Request IDs for DFHWMWR
4 DECIMAL 0 WMIWRINT Initialize
4 DECIMAL 1 WMIWRPUT Write message
4 DECIMAL 2 WMIWRHDN Harden messages