!********************************************************************************************************************************
 ! Created:  3-JAN-2006 15:37:14 by OpenVMS SDL EV1-31     
 ! Source:   3-JAN-2006 15:37:14 CDD$ALPHA_72:[CODE]CDDTAGPROG.SDL;1 
 !********************************************************************************************************************************
      ! *** PREDECLARED TYPES
     
      %IF %DECLARED(%BASIC$QUADWORD_DECLARED) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL(2)
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$OCTAWORD_DECLARED) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL(4)
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$HFLOAT_AXP_DECLARED) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL(4)
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$F_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$D_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$G_FLOATING_COMPLEX_DECL) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED(%BASIC$H_FLOAT_AXP_CMPLX_DCL) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
     
    
    !*** MODULE CDDTAGPROG IDENT V7.0-03584 ***
    
    
    ! ----------------------------------------------------------------------------
    ! 
    !  Copyright Oracle Corporation 1987, 2004.  All Rights Reserved
    ! 
    ! ----------------------------------------------------------------------------
    ! 
    !   FACILITY:
    ! 
    !       Oracle CDD Repository - NAD Protocols
    ! 
    !   ABSTRACT:
    ! 
    ! 	Tag values used in the protocols for the definition of source
    ! 	module, compiled module, and executable module
    ! 
    ! 	TAG VALUES USED:
    ! 
    ! 	12,000 - 14,000
    ! 
    ! ------------------------------------------------------------------------------
    ! 
    ! ~
    !  Special datatypes unique to NAD
    ! ~
    ! ~
    !    Entities and relationships.
    ! ~
      DECLARE LONG CONSTANT cdd$k_ent_src_module = 2830049
      DECLARE LONG CONSTANT cdd$k_ent_cmp_module = 2830050
      DECLARE LONG CONSTANT cdd$k_ent_exe_image = 2830051
      DECLARE LONG CONSTANT cdd$k_rel_src_depends_on = 2830052
      DECLARE LONG CONSTANT cdd$k_rel_src_derived_from = 2830053
      DECLARE LONG CONSTANT cdd$k_rel_cmp_depends_on = 2830054
      DECLARE LONG CONSTANT cdd$k_rel_cmp_derived_from = 2830055
      DECLARE LONG CONSTANT cdd$k_rel_exe_derived_from = 2830056
      DECLARE LONG CONSTANT cdd$k_sto_program = 2830057
      DECLARE LONG CONSTANT cdd$k_sto_program_rel = 2830058
      DECLARE LONG CONSTANT CDD$K_ENT_PROGRAMS = 2830059
      DECLARE LONG CONSTANT cdd$k_ent_c_source = 2830060
      DECLARE LONG CONSTANT cdd$k_ent_diag_file = 2830061
      DECLARE LONG CONSTANT cdd$k_ent_ana_file = 2830062
      DECLARE LONG CONSTANT cdd$k_ent_obj_file = 2830063
      DECLARE LONG CONSTANT cdd$k_ent_list_file = 2830064
      DECLARE LONG CONSTANT cdd$k_ent_exe_file = 2830065
      DECLARE LONG CONSTANT cdd$k_ent_log_file = 2830066
    ! ~
    !    Attributes:
    ! ~
      DECLARE LONG CONSTANT CDD$K_ATT_SRC_DEPENDS_ON = 2830049
      DECLARE LONG CONSTANT CDD$K_ATT_SRC_DPNDS_MEM = 2830050
      DECLARE LONG CONSTANT CDD$K_ATT_SRC_DERIVED_FROM = 2830051
      DECLARE LONG CONSTANT CDD$K_ATT_SRC_DRV_MEM = 2830052
      DECLARE LONG CONSTANT CDD$K_ATT_CMP_DEPENDS_ON = 2830053
      DECLARE LONG CONSTANT CDD$K_ATT_CMP_DPNDS_MEM = 2830054
      DECLARE LONG CONSTANT CDD$K_ATT_CMP_DERIVED_FROM = 2830055
      DECLARE LONG CONSTANT CDD$K_ATT_CMP_DRV_MEM = 2830056
      DECLARE LONG CONSTANT CDD$K_ATT_EXE_DERIVED_FROM = 2830057
      DECLARE LONG CONSTANT CDD$K_ATT_EXE_DRV_MEM = 2830058
      DECLARE LONG CONSTANT CDD$K_ATT_TEXT_FORMAT = 2830059
      DECLARE LONG CONSTANT CDD$K_ATT_TARGET_PLATFORM = 2830060
      DECLARE LONG CONSTANT gen$k_ent_program = 16318565
    ! ~
    !    Attributes:
    ! ~
    !  CONSTANT (
    !     			EQUALS  #gen_facility+101 	INCREMENT 1;