       *>=IEFJFCBN Macro ===============================DSA 09/20/96====
       *> JFCB - Job File Control Block
       *>        MVS Subpool 236 or 237, Key 1
       *>  - unless otherwise stated, all data is S/390 style
       *>
       *> Copyright (C) 1996-2005 Micro Focus International Ltd.
       *>===============================================================
       78 (tag)-hidden-prefix   value 16.
       01 (tag).
          03 filler.
             05 (tag)-union-1    pic x(176).
             05 filler redefines (tag)-union-1.
                07 (tag)-dsn     pic x(44).
                07 (tag)-mem-gdg pic x(8).   *> member name or GDG
                                             *> relative generation num
                07 filler.
                   09 (tag)-flags1 pic x(1) comp-x.
                      *>Bit definitions
                      78 (tag)-cat value h'80'. *> '1'b - ds cataloged
                      78 (tag)-sysin-out value h'20'. *> sysin/sysout ds
                07 filler        pic x(9).
                07 (tag)-vsam-lrecl pic s9(4) comp.
                07 filler        pic x(2).
                07 (tag)-flags2 pic x(1) comp-x.
                   *>Bit definitions
                   78 (tag)-std-lbl value h'02'.
                07 filler        pic x(13).
                07 filler.
                   09 (tag)-creat-date pic x(3). *> 'yy0ddd'x
                   09 filler redefines (tag)-creat-date.
                      11 (tag)-creat-date-yy   pic 9(2) comp.
                      11 (tag)-creat-date-0ddd pic 9(4) comp.
                07 filler.
                   09 (tag)-expir-date pic x(3). *> 'yy0ddd'x
                   09 filler redefines (tag)-expir-date.
                      11 (tag)-expir-date-yy  pic 9(2) comp.
                      11 (tag)-expir-date-0ddd pic 9(4) comp.
                07 filler.
                   09 (tag)-flags3 pic x(1) comp-x.
                   *>Bit definitions
                   78 (tag)-gdg value h'02'.  *> ds is member of GDG
                   78 (tag)-pds value h'01'.  *> ds is member of PDS
                07 filler.
                   09 (tag)-flags4 pic x(1) comp-x.
                      *>Bit definitions
                      78 (tag)-ds-new value h'C0'. *> '11'b - ds is new
                      78 (tag)-ds-mod value h'80'.
                      78 (tag)-ds-old value h'40'.
                      78 (tag)-ds-shr value h'08'.
                      78 (tag)-ds-temp value h'01'.
                07 filler        pic x(5).
                07 (tag)-key-len  pic 9(2) comp. *> direct access
                                                 *> key length
                07 filler        pic x(4).
                07 (tag)-dsorg1  pic x(1).
                   78 (tag)-dsorg1-ps       value x'40'.
                   78 (tag)-dsorg1-da       value x'20'.
                   78 (tag)-dsorg1-po       value x'02'.
                07 (tag)-dsorg2  pic x(1).
                   78 (tag)-dsorg2-vsam     value x'08'.
                07 filler.
                   09 (tag)-flags5 pic x(1) comp-x.
                      *>Bit definitions
                      78 (tag)-recfm-u value h'C0'. *> '11'b - recfm U
                      78 (tag)-recfm-f value h'80'.
                      78 (tag)-recfm-v value h'40'.
                      78 (tag)-recfm-asa value h'04'.
                      78 (tag)-recfm-mac value h'02'.
                07 filler        pic x(1).
                07 (tag)-blksize       pic s9(4) comp.
                07 (tag)-lrecl         pic s9(4) comp.
                07 filler              pic s9(4) comp.
                07 (tag)-key-offset    pic s9(4) comp.
                07 filler        pic x(7).
                07 (tag)-no-of-vols    pic 9(2) comp. *> = 1
                07 filler.
                   78 (tag)-vols-ar-dim value 5.
                   09 (tag)-vols-ar     pic x(6)
                                        occurs (tag)-vols-ar-dim.
                   09 (tag)-vols        pic x(30)
                                        redefines (tag)-vols-ar.
                07 filler          pic x(7).
             05 filler redefines (tag)-union-1.
                07 filler          pic x(152).
                07 (tag)-space-prim pic x(3).
             05 filler redefines (tag)-union-1.
                07 filler          pic x(155).
                07 (tag)-flags6    pic x(1) comp-x.
                   *>Bit definitions
                   78 (tag)-space-cyl value h'C0'.
                   78 (tag)-space-trk value h'80'.
                   78 (tag)-space-blk value h'40'.
                   78 (tag)-space-fmt-contig value h'08'.
                   78 (tag)-space-fmt-mxig value h'04'.
                   78 (tag)-space-fmt-alx value h'02'.
                   78 (tag)-space-round value h'01'.
             05 filler redefines (tag)-union-1.
                07 filler          pic x(156).
                07 (tag)-space-scnd pic x(3).
             05 filler redefines (tag)-union-1.
                07 filler          pic x(160).
                07 (tag)-space-dir pic x(3).
       *>===============================================================
