       *>=IHAASXB Macro ================================DSA 09/20/96====
       *> ASXB - Address Space Extension Block
       *>        MVS Subpool 255, Key 0
       *>     - only 204 bytes needed
       *>  - unless otherwise stated, all data is S/390 style
       *>
       *> Copyright (C) 1996-2006 Micro Focus (IP) Limited. All rights
       *>                         reserved.
       *>===============================================================
       01 (tag).
         03 filler.
            05 (tag)-union1      pic x(232).
            05 filler redefines (tag)-union1.
                07 (tag)-id      pic x(4).
                   78 (tag)-id-ebc  value x'C1E2E7C2'. *> 'ASXB'e
                   78 (tag)-id-asc  value 'ASXB'.
                07 (tag)-first-tcb pointer.
                07 (tag)-last-tcb pointer.
                07 (tag)-noof-tcbs pic s9(4) comp.
                07 filler        pic x(178).
                07 (tag)-userid  pic x(7).  *> TSO user id
                07 filler        pic x(1).
                07 (tag)-acee    pointer.
       *>===============================================================
