Go to the bottom.

!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	QGTABL_SYMB.SDDL
!
! Purpose:      This SDDL file defines the qgtabl_symb relation.
!
! Modification History:
!
!   Date       PR      Who                       Reason
! --------   -------   ---   -------------------------------------------------
! 11/ 2/94   27329     SXT   Original implementation
! 08/17/96   29960     MRB   Add C output
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!

LANGUAGE	C, FORTRAN, SQL

INCLUDE         ZSPSS_USER_TYPES.SDDL

RECORD  QGTABS_TYPE

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

	"This relation holds table symbol information and is generated
	 from the PDB.  See the symbol_name field below for a description of
	 a table symbol. 

	 During instruction expansion (in SMSG/GEN or INSTRUCT/EXPAND),
	 when an instruction of type 'TBL' (i.e. table) is encountered that 
         is using a symbol, the Expander retrieves the symbol information and 
         outputs the symbol value into the SMS.

         The table symbol names are different for each table.  For example,
	 here are some symbols for the table NFOMREL:
                 tbl_fmt_name tbl_sym_name tbl_sym_val
                 ------------ ------------ -----------
                 NFOMREL      DISABLE                0
                 NFOMREL      LOW                    1
                 NFOMREL      MEDIUM                 2
                 NFOMREL      HIGH                   3

         When used in an instruction, table symbols are generally bracketed 
         with dollar signs. For example:  $DISABLE$. 
         
         IMTOOL (via IMTPZG) reads in the table format file, called TFPF.DAT,
	 from the ST PDB tape and creates an IMTPZA.SQL file of SQL appends and 
	 deletes to update this relation.

	 This is a read-only relation."


!------------------------------------------------------------------------------
!
!   FIELD INFORMATION
!
!------------------------------------------------------------------------------


    FIELD  tbl_fmt_name
        TYPE TABLE_NAME_TYPE
    END_FIELD


    FIELD  tbl_sym_name
        TYPE            C8
        DESCRIPTION     "A table symbol name is a table-specific constant that 
                        can be used in place of a parameter when indexing into
			one of the PDB tables.  They can only be used when 
			the paramter is a list parameter.
        RELATED_FIELDS  "qgblibrary.param_name"
    END_FIELD


    FIELD  tbl_sym_val
        TYPE            C16
        DESCRIPTION     "This field contains the value of the table symbol 
			 from above."
    END_FIELD

END_RECORD

!------------------------------------------------------------------------------
!
!   RELATION DECLARATION
!
!------------------------------------------------------------------------------

RELATION  qgtabl_symb

    TYPE             QGTABS_TYPE

    DESCRIPTION      "Instruction PDB Table Symbol Relation"

    SUBSYSTEM_USING  "SPSS, IM, SCS"

    RELATED_FIELDS  "qgblibrary.*"

    INDEX  qgtabl_symb_1
        TYPE         unique, clustered
        FIELDS       tbl_fmt_name, tbl_sym_name
    END_INDEX

END_RELATION

!------------------------------------------------------------------------------
!
!   INSTANCE DECLARATION
!
!------------------------------------------------------------------------------


INSTANCE  qgtabl_symb

    GLOBAL

    TYPE        QGTABS_TYPE

END_INSTANCE

Go to the top.