%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$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_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$H_FLOATING_COMPLEX
    		HFLOAT REAL_PART
    		HFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1
    %END %IF
    
    
    ! 
    !  This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:01:24.87
    ! 
    ! 
    ! ****************************************************************************
    ! *									    *
    ! *  COPYRIGHT (C) 1996							    *
    ! *  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.		    *
    ! *  ALL RIGHTS RESERVED.						    *
    ! * 									    *
    ! *  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED   *
    ! *  ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE   *
    ! *  INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER   *
    ! *  COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY   *
    ! *  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY   *
    ! *  TRANSFERRED.							    *
    ! * 									    *
    ! *  THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE   *
    ! *  AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT   *
    ! *  CORPORATION.							    *
    ! * 									    *
    ! *  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS   *
    ! *  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		    *
    ! * 									    *
    ! *									    *
    ! ****************************************************************************
    ! 
    ! ++
    !  FACILITY:
    ! 
    ! 	NT REGISTRY SUBSYSTEM
    ! 
    !  ABSTRACT:
    ! 
    ! 	THIS FILE CONTAINS THE VARIOUS STATUS CODES RETURNED BY THE NT
    ! 	REGISTRY SUBSYSTEM.  THESE CODES ARE ALSO AVAILABLE IN STARLET.
    ! 
    !  AUTHOR:
    ! 
    ! 	L. MARK PILANT
    ! 
    !  CREATION DATE:
    ! 
    ! 	4-APR-1996
    ! 
    !  MODIFIED BY:
    ! 
    ! 	X-1	LMP0564		L. MARK PILANT,		 4-APR-1996  10:34
    ! 		INITIAL VERSION.
    ! 
    ! --
      DECLARE LONG CONSTANT REG$_FACILITY = 1862
    ! +
    !  THE FOLLOWING STATUS CODES REPRESENT ALTERNATE SUCCESS CODES THAT CAN BE
    !  RETURNED BY THE NT REGISTRY SUBSYSTEM.
    ! -
      DECLARE LONG CONSTANT REG$_NORMAL = 122060801
    ! +
    !  THE FOLLOWING STATUS CODES REPRESENT VARIOUS ERRORS THAT ARE DETECTED
    !  BY THE NT REGISTRY SUBSYSTEM.
    ! -
      DECLARE LONG CONSTANT REG$_UNSUPPORT = 122063202