!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	PMDB_COPY_DELETE_TRACK.SDDL
!
! Purpose:      This include file contains PMDB copy/delete function common
!               parameters block
!
! Modification History:
!
!   Date       OPR      Who                       Reason
! --------   -------    ---   -------------------------------------------------
! 12/15/94    27329     EGB   Original implementation
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!
 
LANGUAGE	FORTRAN

INCLUDE         ZSPSS_USER_TYPES.SDDL
 
RECORD  PTRK_TYPE
 
!------------------------------------------------------------------------------
!
!   RECORD INFORMATION
!
!------------------------------------------------------------------------------
 
    DESCRIPTION      "PMDB/DELETE, PMDB/COPY Command Parameters Data"
 
!------------------------------------------------------------------------------
!
!   FIELD INFORMATION
!
!------------------------------------------------------------------------------
 

    FIELD  type_parameter
        TYPE            C5
        DESCRIPTION     "prop/su/obset/algn/exps/inst/targ ...
                        the level of this copy/delete function. "
    END_FIELD
 

    FIELD  override_delete_flag
        TYPE            L1
        DESCRIPTION     "flag to indicate if the override option is set
                        by the priviledged oa. "
    END_FIELD
 

    FIELD  warn_flag
        TYPE            L1
        DESCRIPTION     "a flag indicating that the user will be warned
                        and then queried as to whether or not to
                        proceed whenever it is found that the data
                        to be deleted is associated with an su which
                        has status 5 or greater.  "
    END_FIELD
 

    FIELD  num_records_deleted
        TYPE            I4
        DESCRIPTION     "number of records deleted from the database
                        by the delete function. "
    END_FIELD
 

    FIELD  num_records_appended
        TYPE            I4
        DESCRIPTION     "number of records appended to the database
                        by the copy function. "
    END_FIELD
 

    FIELD  from_proposal_id
        TYPE PROPOSAL_ID_TYPE
        DESCRIPTION     "for the copy function, it is the proposal id
                        to be copied from.
                        for the delete function, it is the proposal
                        id to be deleted. "
    END_FIELD
  

    FIELD  from_su_id
        TYPE SUNIT_ID_TYPE
        DESCRIPTION     "for the copy function, it is the su id
                        to be copied from.
                        for the delete function, it is the su
                        id to be deleted. "
    END_FIELD
  

    FIELD  from_obset_id
        TYPE OBSET_ID_TYPE
        DESCRIPTION     "for the copy function, it is the obset id
                        to be copied from.
                        for the delete function, it is the obset
                        id to be deleted. "
    END_FIELD
  

    FIELD  from_alignment_id
        TYPE ALIGN_ID_TYPE
        DESCRIPTION     "for the copy function, it is the alignment id
                        to be copied from.
                        for the delete function, it is the alignment
                        id to be deleted. "
    END_FIELD
  

    FIELD  from_exposure_id
        TYPE EXPOSURE_ID_TYPE
        DESCRIPTION     "for the copy function, it is the exposure id
                        to be copied from.
                        for the delete function, it is the exposure
                        id to be deleted. "
    END_FIELD
  

    FIELD  from_version_num
        TYPE VERSION_NUM_TYPE
    END_FIELD
 

    FIELD  from_instruction_id
        TYPE INSTRUCTION_NAME_TYPE
        DESCRIPTION     "for the copy function, it is the instruction id
                        to be copied from.
                        for the delete function, it is the instruction
                        id to be deleted. "
    END_FIELD
  

    FIELD  from_target_id
        TYPE TARGET_ID_TYPE
        DESCRIPTION     "for the copy function, it is the target id
                        to be copied from.
                        for the delete function, it is the target
                        id to be deleted. "
    END_FIELD
  

    FIELD  from_link_set_id
        TYPE LINK_SET_ID_TYPE
        DESCRIPTION     "for the copy function, this is not permitted.
                        for the delete function, it is the link set
                        to partially or wholly deleted. "

    END_FIELD 
 

    FIELD  del_link_set_sus_cnt
        TYPE            I4
        DESCRIPTION     "the count of linked sus in below array.
                        only used when user specifies /linksu
                        qualifier on the input id parameter
                        as a way to selectively delete sus from a
                        link set as opposed to trashing the whole link
                        set. FOR copy is meaningless. "
    END_FIELD
  

    FIELD  del_link_set_sus
        TYPE            C7
        DIMENSION       100
        DESCRIPTION     "list of sus to be deleted from specified
                        link sets.  only used when user specifies /linksu
                        qualifier on the input id parameter
                        as a way to selectively delete sus from a
                        link set as opposed to trashing the whole link
                        set. FOR copy is meaningless. THE number of
                        valid sus is stored in above counter. "
    END_FIELD
 

    FIELD  to_proposal_id
        TYPE PROPOSAL_ID_TYPE
        DESCRIPTION     "used as the new id by the copy function. "
    END_FIELD
  

    FIELD  to_su_id
        TYPE SUNIT_ID_TYPE
        DESCRIPTION     "used as the new id by the copy function. "
    END_FIELD
  

    FIELD  to_obset_id
        TYPE OBSET_ID_TYPE
        DESCRIPTION     "used as the new id by the copy function. "
    END_FIELD
  

    FIELD  to_alignment_id
        TYPE ALIGN_ID_TYPE
        DESCRIPTION     "used as the new id by the copy function. "
    END_FIELD
 

    FIELD  to_exposure_id
        TYPE EXPOSURE_ID_TYPE
        DESCRIPTION     "used as the new id by the copy function. "
    END_FIELD
 

    FIELD  to_version_num
        TYPE VERSION_NUM_TYPE
        DESCRIPTION     "used as the new id by the copy function."
    END_FIELD
 

    FIELD  to_instruction_id
        TYPE INSTRUCTION_NAME_TYPE
        DESCRIPTION     "used as the new id by the copy function. "
    END_FIELD
  

    FIELD  to_target_id
        TYPE TARGET_ID_TYPE
        DESCRIPTION     "used as the new id by the copy function. "
    END_FIELD
 
END_RECORD
 
 
!------------------------------------------------------------------------------
!
!   INSTANCE DECLARATION
!
!------------------------------------------------------------------------------
 
 
INSTANCE  pmdb_copy_delete_track
 
    FILE
    TYPE        PTRK_TYPE
    GLOBAL
 
END_INSTANCE