       *>=IKJTCB  Macro ================================DSA 09/20/96===
       *> TCB - Task Control Block
       *>       MVS Subpool 253, Key 0
       *>     - only 344 bytes needed
       *>  - unless otherwise stated, all data is S/390 style
       *>
       *> Copyright (C) 1996-2005 Micro Focus International Ltd.
       *>==============================================================
       01 (tag).
          03 filler.
             05 (tag)-union1    pic x(408).
             05 filler redefines (tag)-union1.
                07 filler        pointer. *> ICB-RB
                07 filler        pic x(8).
                07 (tag)-tiot    pointer.
                07 filler.                        *>MF370 ASM may init
                   09 filler           pic x(1).
                   09 (tag)-abend-code pic x(3).
                      *>                first 12 bits = sys  abend code
                      *>                last  12 bits = user abend code
                07 filler        pic x(8).
                07 (tag)-flags2 pic 9(2) comp. *>'8'b4- MF370 may chang
                   *>Bit definitions
                   78 (tag)-prot-key value h'80'.
                07 filler        pic x(19).
                07 (tag)-gpr-save pic x(64). *> MF370 ASM may init this
                07 (tag)-fsa     pointer.    *> = MVS-DSA
                07 filler        pic x(224).
                07 (tag)-acee    pointer.
             05 filler redefines (tag)-union1.
                07 filler        pic x(44).
                07 (tag)-cde     pointer. *> last CDE for JPA Q
             05 filler redefines (tag)-union1.
                07 filler        pic x(124).
                07 (tag)-js(tag) pointer.  *> ptr to job step tcb
             05 filler redefines (tag)-union1.
                07 filler        pic x(180).
                07 (tag)-jscb    pointer.
             05 filler redefines (tag)-union1.
                07 filler        pic x(208).
                07 (tag)-tcbx    pointer.
       *>==============================================================
       *> TCB extension
       *>==============================================================
       1 (tag)x.
         3 .
           5 (tag)x-0              pic x(32).
           5   redefines (tag)x-0.
             7                     pic x(20).
             *>========================================================
             *> Null for batch. Points to subsys facility control block
             *> for subsystems. For CICS -> DFHAFCD, for IMS -> ?
             *>========================================================
             7 (tag)x-sfcb         pointer.
       *>==============================================================
