       *>=IHAASCB Macro ================================DSA 09/20/96====
       *> ASCB - Address Space Control Block
       *>        MVS Subpool 245, Key 0, below 16 MB
       *>  - 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(416).
            05 filler redefines (tag)-union1.
               07 (tag)-id      pic x(4).
                  78 (tag)-id-ebc   value x'C1E2C3C2'.  *> 'ASCB'e
                  78 (tag)-id-asc   value 'ASCB'.
               07 filler        pic x(32).
               07 (tag)-asid    pic 9(4) comp.
               07 filler        pic x(70).
               07 (tag)-asxb    pointer.
               07 filler        pic x(60).
               07 (tag)-init-jobname pointer.
               07 (tag)-start-jobname pointer.
       *>===============================================================
