Go to the bottom.

!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	QPCOPROPOSER.SDDL
!
! Purpose:      This SDDL file defines the qpcoproposer relation.
!
! Modification History:
!
!   Date       OPR      Who                       Reason
! --------   -------    ---   -------------------------------------------------
! 11/28/94    27329     EGB   Original implementation
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!
 
LANGUAGE	FORTRAN, SQL

INCLUDE         ZSPSS_USER_TYPES.SDDL
 
RECORD  QPCOPER_TYPE
 
!------------------------------------------------------------------------------
!
!   RECORD INFORMATION
!
!------------------------------------------------------------------------------
 
    DESCRIPTION       "This relation stores name information for all the
                       proposers related to a specific proposal."
 
!------------------------------------------------------------------------------
!
!   FIELD INFORMATION
!
!------------------------------------------------------------------------------
 

    FIELD  proposal_id
        TYPE PROPOSAL_ID_TYPE
        FORM
            NAME         "PCP"
            LABEL        "PROPOSAL ID"
        END_FORM
    END_FIELD
 

    FIELD  principal_fg
        TYPE            C1
        DESCRIPTION     "This flag indicates if the proposer is the
                         principal proposer 'P' (i.e. point of contact),
                         or a co-proposer 'C'."
        DISCRETE        "C", "P"
    END_FIELD
 

    FIELD  last_name
        TYPE            C15
        DESCRIPTION     "This field holds the last name of the proposer."
        FORM
            NAME         "PCP"
            LABEL        "Last Name"
        END_FORM
        RANGE
    END_FIELD
 

    FIELD  first_name
        TYPE            C15
        DESCRIPTION     "This field holds the first name of the proposer."
        FORM
            NAME         "PCP"
            LABEL        "First Name"
        END_FORM
    END_FIELD
 

    FIELD  middle_initl
        TYPE            C1
        DESCRIPTION     "This field holds the middle initial of the proposer."
        FORM
            NAME         "PCP"
            LABEL        "Initial"
        END_FORM
    END_FIELD
 
END_RECORD
 
!------------------------------------------------------------------------------
!
!   RELATION DECLARATION
!
!------------------------------------------------------------------------------
 
RELATION  qpcoproposer
 
    TYPE             QPCOPER_TYPE
 
    DESCRIPTION      "Co Proposer Information Relation"
 
    SUBSYSTEM_USING  "SPSS", "TRANS", "PODPS", "PEPSI"

    RELATED_FIELDS  "qpcoproposer.*"

    FORM
        NAME         "PCP"
    END_FORM
 
    INDEX  qpcoproposer_1
        TYPE         unique, clustered
        FIELDS       proposal_id, last_name, first_name, middle_initl
    END_INDEX
 
END_RELATION
 
!------------------------------------------------------------------------------
!
!   INSTANCE DECLARATION
!
!------------------------------------------------------------------------------
 
INSTANCE  qpcoproposer
 
    GLOBAL
 
    TYPE        QPCOPER_TYPE
 
END_INSTANCE

Go to the top.