!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	QGCOMPONENT.SDDL
!
! Purpose:      This SDDL file defines the qgcomponent relation.
!
! Modification History:
!
!   Date        PR     Who                       Reason
! --------   -------   ---   -------------------------------------------------
! 12/ 1/94   27329     SXT   Original implementation
! 08/13/96   29960     MRB   Add C output and refinements
! 03/12/99   38555     MRB   Remove inst versions (version_num,comp_ver,assoc_)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
 
LANGUAGE  C, FORTRAN, SQL

INCLUDE  ZSPSS_USER_TYPES.SDDL
 
RECORD  QGCOM_TYPE
 
!------------------------------------------------------------------------------
!
!   RECORD INFORMATION
!
!------------------------------------------------------------------------------
 
 
    DESCRIPTION       "This relation contains general information about
                      the components of compound instructions. A compound 
                      instruction is an instruction invoked as a component 
                      from a top-level instruction or another compound 
                      instruction. A Temporary Command Set(TCS) is a special
                      form of compound instruction. A top level instruction
                      (TOP) may invoke one or more compound instructions.
     
                      This relation is populated by INSTRUCT/CLP when 
                      storing user-defined instructions."
 
                 
 
!------------------------------------------------------------------------------
!
!   FIELD INFORMATION
!
!------------------------------------------------------------------------------
 
 
    FIELD  instr_name
        TYPE            INSTRUCTION_NAME_TYPE
    END_FIELD
 
 
    FIELD  seq_no
        TYPE            I4
        DESCRIPTION     "This field holds the component sequence number.
                        A Component is defined as a statement of an SCPL 
                        instruction. A component of a defined instruction is 
                        accessed by instruction name and component number.

                        The same instruction may be a component of the 
                        compound instruction more than once, so it is necessary
                        to identify order."  
    END_FIELD
 
 
    FIELD  comp_name
        TYPE            C12
        DESCRIPTION     "This field holds the name of the component. If  
                        the component is an instruction itself, this field 
                        points to the description of the component in relation 
                        QGINSTRUCT." 
    END_FIELD
 
 
    FIELD  type
        TYPE            C3
        DESCRIPTION     "This field holds the component type of an instruction. 
                        Valid values of this field are:
                            PRT, RTS, CP, or GRP 
                                  --- if the component is a command set;
                            TBL   --- if the component is a table; 
                            /     --- if the component is a command;
                            BLANK --- if the component is a primitive or an 
                                      user-built compounds."
        DISCRETE        "PRT", "RTS", "CP", "GRP", "TBL", "/", " "
    END_FIELD
 
 
    FIELD  clabel
        TYPE            C8
        DESCRIPTION     "This field contains the label (if assigned) of the
                        component, if the component is a command and the
                        instruction is a temporary command set. This field 
                        is left blank if no label assigned or if the above 
                        conditions do not apply."
    END_FIELD
 
 
    FIELD  assoc_instr
        TYPE            C12
        DESCRIPTION     "This field holds the name of the instruction that 
                        supplies the associated command set to a data block, 
                        table, or command set."
    END_FIELD
 
 
    FIELD  cmp_descr
        TYPE            C30
        DESCRIPTION     "This field holds the description of this component 
                        of the compound instruction."
    END_FIELD
 
 
END_RECORD
 
 
!------------------------------------------------------------------------------
!
!   RELATION DECLARATION
!
!------------------------------------------------------------------------------
 
 
RELATION  qgcomponent
 
    TYPE             QGCOM_TYPE
 
    DESCRIPTION      "Compound Instruction Definition Relation"
 
    SUBSYSTEM_USING  "SPSS", "SCS", "IM"
 
    INDEX  qgcomponent_1
        TYPE         unique, clustered
        FIELDS       instr_name, seq_no
    END_INDEX
 
END_RELATION
 
!------------------------------------------------------------------------------
!
!   INSTANCE DECLARATION
!
!------------------------------------------------------------------------------
 
 
INSTANCE  qgcomponent
 
    GLOBAL  
 
    TYPE        QGCOM_TYPE
 
END_INSTANCE