!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	QGTEXT.SDDL
!
! Purpose:      This SDDL file defines the qgtext relation.
!
! Modification History:
!
!   Date       PR      Who                       Reason
! --------   -------   ---   -------------------------------------------------
! 11/30/94   27329     SXT   Original implementation
! 08/13/96   29960     MRB   Added C output and refinements
! 03/12/99   38555     MRB   Remove instruction versions (version_num field)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
 
LANGUAGE  C, FORTRAN, SQL

INCLUDE  ZSPSS_USER_TYPES.SDDL
 
RECORD  QGTEXT_TYPE
 
!------------------------------------------------------------------------------
!
!   RECORD INFORMATION
!
!------------------------------------------------------------------------------
 
     DESCRIPTION       "This relation contains information about text added
                      to instructions and instruction components, which is
                      not parsed or syntax checked by CLP, and therefore not
		      output to the SMS.

                      SCPL provides the following facilities for adding 
                      commentary to instructions:
                            - the pseudo-instruction #REMARK
                            - two SOGS primitives, TEXT and COMMENT and the
                              corresponding CLP pseudo-instructions #TEXT
                              and #COMMENT
                            - in-line commenting in CLP source

                      In addition, two other components are treated as 
                      commentary blocks for data entry, but as special 
                      instructions to the Expander: #OB_QUERY and #CONDITIONAL"
 
!------------------------------------------------------------------------------
!
!   FIELD INFORMATION
!
!------------------------------------------------------------------------------
 
    FIELD  instr_name
        TYPE            INSTRUCTION_NAME_TYPE
    END_FIELD
 
    FIELD  seq_no
        TYPE            I4
        DESCRIPTION     "This field is the component number to which the text 
			applies. 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."
    END_FIELD
 
    FIELD  page_no
        TYPE            COMMENT_PAGE_TYPE
    END_FIELD
 
    FIELD  type_flag
        TYPE            C4
        DESCRIPTION     "This field holds the text type flag, indicating the 
                        type of instruction to which the data belongs. Valid
                        values are:
                              TXT = text 
                              CMT = comments pseudo
                              RMK = remark 
                              QRY = opal query
                              CND = conditional."
        DISCRETE        "TXT", "CMT", "RMK", "QRY", "CND"
    END_FIELD
 
    FIELD  instr_text
        TYPE            COMMENT_LINE_TYPE
        DESCRIPTION     "This field contains one of the following:
                           - instruction text
                           - instruction comments 
                           - instruction remark 
                           - textual field to be output in the SMS as text 
                             or comments (depending on the related pseudo 
                             instruction) 
                           - a query string to be used to retrieve or update 
                             a DBMS record.  
                        Remark will not be output to SMS."
    END_FIELD
 
    FIELD  cont2
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont3
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont4
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont5
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont6
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont7
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont8
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont9
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont10
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont11
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont12
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont13
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont14
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont15
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont16
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont17
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont18
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont19
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont20
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont21
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont22
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont23
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
    FIELD  cont24
        TYPE            COMMENT_LINE_TYPE
    END_FIELD
 
END_RECORD
 
!------------------------------------------------------------------------------
!
!   RELATION DECLARATION
!
!------------------------------------------------------------------------------
 
 
RELATION  qgtext
 
    TYPE             QGTEXT_TYPE
 
    DESCRIPTION      "Instruction Text Comments Relation"
 
    SUBSYSTEM_USING  "SPSS", "SCS", "IM"

    RELATED_FIELDS   "qgdescript.*"
 
    INDEX  qgtext_1
        TYPE         unique, clustered
        FIELDS       instr_name, seq_no, page_no
    END_INDEX
 
END_RELATION
 
!------------------------------------------------------------------------------
!
!   INSTANCE DECLARATION
!
!------------------------------------------------------------------------------
 
 
INSTANCE  qgtext
 
    GLOBAL
 
    TYPE        QGTEXT_TYPE
 
END_INSTANCE