!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:    TAPE_ARCHIVE.SDDL        
!
! Purpose:      This SDDL file defines relation TAPE_ARCHIVE        
!
! Modification History:
!
!   Date       OPR      Who                    Reason
!----------------------------------------------------------------------
! 19-JAN-96             PHyde          Original Implementaton
! 22-JAN-96             Ken Steuerman  Add descriptions
! 31-JUL-96    31905    MARose         Fix syntax so SDDLCOMP will work
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!

LANGUAGE        SQL

RECORD  TAPARC_TYPE 

!----------------------------------------------------------------------
!
!   RECORD INFORMATION
!
!----------------------------------------------------------------------

   DESCRIPTION                 "Tracks datasets processed to the off-line
                               archive system.  Entries are retained
                               in this table when processing is
                               completed."

!----------------------------------------------------------------------
!
!   FIELD INFORMATION
!
!----------------------------------------------------------------------

   FIELD  dataset_name        
       TYPE            C*23
       DESCRIPTION             "The name given to describe a group of files."
       UNITS
       RANGE
   END_FIELD

   FIELD  archclass           
       TYPE            C*3
       DESCRIPTION             "The classification used to archive the data."
       UNITS
       RANGE
   END_FIELD

   FIELD  archdate            
       TYPE            C*20
       DESCRIPTION             "The latest file date associated with the
                               dataset."
       UNITS
       RANGE
   END_FIELD

   FIELD  archv_tape          
       TYPE            C*6
       DESCRIPTION             "Name of magnetic tape where dataset can
                               be located."
       UNITS
       RANGE
   END_FIELD

   FIELD  saveset             
       TYPE            C*17
       DESCRIPTION             "Saveset name where dataset can be located."
       UNITS
       RANGE
   END_FIELD

   FIELD  tape_date           
       TYPE            C*20
       DESCRIPTION             "Data dataset written to magnetic tape"
       UNITS
       RANGE
   END_FIELD

   FIELD  file_cnt            
       TYPE            I*2
       DESCRIPTION             "The file count as determined by archive
                               tape generation."
       UNITS
       RANGE
   END_FIELD

END_RECORD

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!   RELATION DECLARATION
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

RELATION  tape_archive        

    TYPE            TAPARC_TYPE 

    DESCRIPTION

    SUBSYSTEM_USING "OPUS"

    INDEX  tape_archive_1      
        TYPE          unique clustered
        FIELDS        dataset_name, archclass, archdate, archv_tape    
        ATTRIBUTES    ignore_dup_key
    END_INDEX

    INDEX  tape_archive_2      
        TYPE         nonclustered
        FIELDS        archclass                                        
    END_INDEX

END_RELATION

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!   INSTANCE DECLARATION
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

INSTANCE  tape_archive        

    GLOBAL

    TYPE        TAPARC_TYPE 

END_INSTANCE