!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:    DADS_ARCHIVE.SDDL        
!
! Purpose:      This SDDL file defines relation DADS_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  DADARC_TYPE 

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

   DESCRIPTION                 "Tracks responses made by the on-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  reqdate             
       TYPE            C*23
       DESCRIPTION             "The date when the archive insertion request
                               was generation"
       UNITS
       RANGE
   END_FIELD

   FIELD  reqtype             
       TYPE            C*4
       DESCRIPTION             "OPUS generates either TAPE or DISK archive
                               insertion requests."
       UNITS
       RANGE
   END_FIELD

   FIELD  response            
       TYPE            C*10
       DESCRIPTION             "Response status returned by DADS."
       UNITS
       RANGE
   END_FIELD

   FIELD  disk_date           
       TYPE            C*23
       DESCRIPTION             "The optical disk date assigned by DADS."
       UNITS
       RANGE
   END_FIELD

   FIELD  file_cnt            
       TYPE            I*2
       DESCRIPTION             "The file count as determined by DADS"
       UNITS
       RANGE
   END_FIELD


   FIELD  path           
       TYPE            C*10
       DESCRIPTION             "The path from which the request is made"
       UNITS
       RANGE
   END_FIELD

   FIELD  tape_date
       TYPE            C*20
       DESCRIPTION             "The date when a tape is made"
       UNITS
       RANGE
   END_FIELD

   FIELD  saveset
       TYPE            C*17
       DESCRIPTION             "The saveset name"
       UNITS
       RANGE
   END_FIELD

   FIELD  archv_tape
       TYPE            C*6
       DESCRIPTION             "Tape label"
       UNITS
       RANGE
   END_FIELD

END_RECORD

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

RELATION  dads_archive        

    TYPE            DADARC_TYPE 

    DESCRIPTION

    SUBSYSTEM_USING "OPUS"

    INDEX  dads_archive_1      
        TYPE            clustered
        FIELDS        dataset_name, archclass, archdate                
        ATTRIBUTES    ignore_dup_row
    END_INDEX

    INDEX  dads_archive_2      
        TYPE         nonclustered
        FIELDS        archclass                                        
    END_INDEX

END_RELATION

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

INSTANCE  dads_archive        

    GLOBAL

    TYPE        DADARC_TYPE 

END_INSTANCE