       
           05  (TAG)-VERSION       PIC X(02) COMP-X.  
               *> Structure version.  low-values 
           05  (TAG)-RESERVED      PIC X(02).
               *>  low-values
           05  (TAG)-MVS-DSNAME    PIC X(44).
           05  (TAG)-MEM-NAME      PIC X(08).           
           05  (TAG)-PC-DSN        PIC X(260).
           05  (TAG)-RECFM                  PIC  X(04).
                78 VSAM-KEYED                VALUE 'KS'.
                78 VSAM-ENTRY-SEQUENCED      VALUE 'ES'.
                78 VSAM-RELATIVE-RECORD      VALUE 'RR'.
                78 VSAM-LINEAR-SEQUENCED     VALUE 'LS'.
                78 RECFM-F                   VALUE 'F'.
                78 RECFM-FA                  VALUE 'FA'.
                78 RECFM-FB                  VALUE 'FB'.
                78 RECFM-FBA                 VALUE 'FBA'.
                78 RECFM-FBM                 VALUE 'FBM'.
                78 RECFM-FBS                 VALUE 'FBS'.
                78 RECFM-FM                  VALUE 'FM'.
                78 RECFM-FS                  VALUE 'FS'.
                78 RECFM-LSEQ                VALUE 'LSEQ'.
                78 RECFM-U                   VALUE 'U'.
                78 RECFM-V                   VALUE 'V'.
                78 RECFM-VA                  VALUE 'VA'.
                78 RECFM-VB                  VALUE 'VB'.
                78 RECFM-VBA                 VALUE 'VBA'.
                78 RECFM-VBM                 VALUE 'VBM'.
                78 RECFM-VBS                 VALUE 'VBS'.
                78 RECFM-VM                  VALUE 'VM'.
                78 RECFM-VS                  VALUE 'VS'.
                88  (TAG)-VSAM-KEYED-88      VALUE VSAM-KEYED.
                88  (TAG)-VSAM-ENTRY-SEQUENCED-88
                                             VALUE VSAM-ENTRY-SEQUENCED.
                88  (TAG)-VSAM-LINEAR-SEQUENCED-88
                                            VALUE VSAM-LINEAR-SEQUENCED.
                88  (TAG)-VSAM-RELATIVE-RECORD-88
                                             VALUE VSAM-RELATIVE-RECORD.
                88  (TAG)-RECFM-F-88         VALUE RECFM-F.
                88  (TAG)-RECFM-FA-88        VALUE RECFM-FA.
                88  (TAG)-RECFM-FB-88        VALUE RECFM-FB.
                88  (TAG)-RECFM-FBA-88       VALUE RECFM-FBA.
                88  (TAG)-RECFM-FBM-88       VALUE RECFM-FBM.
                88  (TAG)-RECFM-FBS-88       VALUE RECFM-FBS.
                88  (TAG)-RECFM-FM-88        VALUE RECFM-FM.
                88  (TAG)-RECFM-FS-88        VALUE RECFM-FS.
                88  (TAG)-RECFM-LSEQ-88      VALUE RECFM-LSEQ.
                88  (TAG)-RECFM-U-88         VALUE RECFM-U.
                88  (TAG)-RECFM-V-88         VALUE RECFM-V.
                88  (TAG)-RECFM-VA-88        VALUE RECFM-VA.
                88  (TAG)-RECFM-VB-88        VALUE RECFM-VB.
                88  (TAG)-RECFM-VBA-88       VALUE RECFM-VBA.
                88  (TAG)-RECFM-VBM-88       VALUE RECFM-VBM.
                88  (TAG)-RECFM-VBS-88       VALUE RECFM-VBS.
                88  (TAG)-RECFM-VM-88        VALUE RECFM-VM.
                88  (TAG)-RECFM-VS-88        VALUE RECFM-VS.
            05  (TAG)-DSORG                  PIC  X(04).
                78  DSORG-PDSM               VALUE 'PDSM'.
                78  DSORG-PO                 VALUE 'PO  '.
                78  DSORG-PS                 VALUE 'PS  '.
                78  DSORG-VSAM               VALUE 'VSAM'.
                78  DSORG-GDG                VALUE 'GDG '.
                78  DSORG-IS                 VALUE 'IS  '.
                88  (TAG)-DSORG-PDSM-88      VALUE DSORG-PDSM.
                88  (TAG)-DSORG-PO-88        VALUE DSORG-PO.
                88  (TAG)-DSORG-PS-88        VALUE DSORG-PS.
                88  (TAG)-DSORG-VSAM-88      VALUE 'VSAM'.
                88  (TAG)-DSORG-GDG-88       VALUE DSORG-GDG.
                88  (TAG)-DSORG-IS-88        VALUE DSORG-IS.
            05  (TAG)-CHARSET                PIC  X(01).
                78  (TAG)-CHARSET-EBCDIC     VALUE 'E'.
                78  (TAG)-CHARSET-ASCII      VALUE 'A'.
                78  (TAG)-CHARSET-UNKNOWN    VALUE '?'.
                88  (TAG)-CHARSET-EBCDIC-88
                                       VALUE (TAG)-CHARSET-EBCDIC.
                88  (TAG)-CHARSET-ASCII-88
                                       VALUE (TAG)-CHARSET-ASCII.
                88  (TAG)-CHARSET-UNKNOWN-88
                                       VALUE (TAG)-CHARSET-UNKNOWN.
            05  (TAG)-FILLER                 PIC  X(18).  
            05  (TAG)-EXTENDED-TYPE          PIC  X(01).
                78    VSAM-CLUSTER           VALUE 'C'.
                78    VSAM-INDEX             VALUE 'I'.
                78    VSAM-DATA              VALUE 'D'.
                78    VSAM-AIX               VALUE 'A'.
                78    VSAM-PATH              VALUE 'P'.
                78    DSCB-MODEL             VALUE 'M'.
                88  (TAG)-VSAM-CLUSTER-88    VALUE VSAM-CLUSTER.
                88  (TAG)-VSAM-INDEX-88      VALUE VSAM-INDEX.
                88  (TAG)-VSAM-DATA-88       VALUE VSAM-DATA.
                88  (TAG)-VSAM-AIX-88        VALUE VSAM-AIX.
                88  (TAG)-VSAM-PATH-88       VALUE VSAM-PATH.
                88  (TAG)-DSCB-MODEL-88      VALUE DSCB-MODEL.
            05  (TAG)-VSAM-REU               PIC  X(01).
                78    VSAM-REUSABLE          VALUE '1'.
                78    VSAM-NONREUSABLE       VALUE '0'.
                88  (TAG)-VSAM-REUSABLE-88   VALUE VSAM-REUSABLE.
                88  (TAG)-VSAM-NONREUSABLE-88
                                             VALUE VSAM-NONREUSABLE.
            05  (TAG)-VSAM-AIX-UNQK PIC  X(01).
                78  VSAM-AIX-UNIQUEKEY       VALUE '1'.
                78  VSAM-AIX-NONUNIQUEKEY    VALUE '0'.
                88  (TAG)-VSAM-AIX-UNIQUEKEY-88
                                       VALUE VSAM-AIX-UNIQUEKEY.
                88  (TAG)-VSAM-AIX-NONUNIQUEKEY-88
                                       VALUE VSAM-AIX-NONUNIQUEKEY.
            05  (TAG)-FILE-FORMAT            PIC  X(01)  COMP-X.
                78  78-FILE-FORMAT-UNKNOWN       VALUE 0.
                78  78-FILE-FORMAT-IDXFORMAT4    VALUE 4.
                78  78-FILE-FORMAT-IDXFORMAT8    VALUE 8.
                88  FILE-FORMAT-UNKNOWN-88
                                       VALUE 78-FILE-FORMAT-UNKNOWN.
                88  FILE-FORMAT-IDXFORMAT4-88
                                       VALUE 78-FILE-FORMAT-IDXFORMAT4.
                88  FILE-FORMAT-IDXFORMAT8-88
                                       VALUE 78-FILE-FORMAT-IDXFORMAT8.
                88  (TAG)-FILE-FORMAT-UNKNOWN-88
                                       VALUE 78-FILE-FORMAT-UNKNOWN.
                88  (TAG)-FILE-FORMAT-IDXFORM4-88
                                       VALUE 78-FILE-FORMAT-IDXFORMAT4.
                88  (TAG)-FILE-FORMAT-IDXFORM8-88
                                       VALUE 78-FILE-FORMAT-IDXFORMAT8.  
            05  (TAG)-GDG-ROLL-DISP          PIC  X(01)  COMP-X.
                78 GDG-ROLL-DISP-SCRATCH     VALUE 1.
                78 GDG-ROLL-DISP-PURGE       VALUE 0.
                88  (TAG)-GDG-ROLL-DISP-SCRATCH-88
                                       VALUE GDG-ROLL-DISP-SCRATCH.
                88  (TAG)-GDG-ROLL-DISP-PURGE-88
                                       VALUE GDG-ROLL-DISP-PURGE.                                       
            *>  Align on four byte boundary.
            05  (TAG)-LRECL                  PIC  X(02)  COMP-X.
            05  (TAG)-LRECL-MAX              PIC  X(02)  COMP-X.
            05  (TAG)-LRECL-MIN              PIC  X(02)  COMP-X.
            05  (TAG)-VSAM-KEY-OFFSET        PIC  X(02)  COMP-X.
            05  (TAG)-VSAM-KEY-LENGTH        PIC  X(02)  COMP-X.    
            05  (TAG)-BLKSIZE                PIC  X(02)  COMP-X.            
            05  (TAG)-FILLER2                PIC  X(24). 

      