       *>=IEZJSCB MACRO ================================DSA 10/21/98====
       *> JSCB - Job Step Control Block
       *>       MVS Subpool 253, Key 0
       *>     - First 188 bytes are a pad and reserved (see
       *>       IDADMFEX.cpy) for MFE extension
       *>  - unless otherwise stated, all data is S/390 style
       *>
       *> Copyright (C) 1998-2005 Micro Focus International Ltd.
       *>===============================================================
       01 (tag).
         03 filler.
            05 (tag)-union-1     pic x(380).
            05 filler redefines (tag)-union-1.
               07 (tag)-MFEX    pic x(188).     *> rsvd for idaDMFEX
            05 filler redefines (tag)-union-1.
               07 filler        pic x(220).
               07 (tag)-id      pic s9(9) comp.
            05 filler redefines (tag)-union-1.
               07 filler        pic x(228).
               07 (tag)-step    pic 9(2) comp.
            05 filler redefines (tag)-union-1.
               07 filler        pic x(268).
               07 (tag)-asid    pic 9(4) comp.
            05 filler redefines (tag)-union-1.
               07 filler        pic x(268).
               07 (tag)-tjid    pic 9(4) comp.
            05 filler redefines (tag)-union-1.
               07 filler        pic x(316).
               07 (tag)-ssib    pointer.
            05 filler redefines (tag)-union-1.
               07 filler        pic x(340).
               07 (tag)-ddnno   pic 9(4) comp. *> not used
            05 filler redefines (tag)-union-1.
               07 filler        pic x(360).
               07 (tag)-pgmn    pic x(8).
       *>===============================================================
