%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 18:35:06.15
    ! 
    ! ****************************************************************************
    ! *									    *
    ! *  COPYRIGHT (C) 1985 BY						    *
    ! *  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:
    ! 
    ! 	VAX/VMS LICENSING SYSTEM SERVICES
    ! 
    !  ABSTRACT:
    ! 
    ! 	THIS MODULE DEFINES THE STATUS CODES FOR THE VARIOUS ERROR CONDITIONS
    ! 	THAT CAN OCCUR WHILE ATTEMPTING TO DO LICENSING CHECKS FOR A
    ! 	DSLA LICENSED SOFTWARE PRODUCT.
    ! 
    !  AUTHOR:
    ! 
    ! 	TRUDY C. MATTHEWS
    ! 
    !  CREATION DATE:
    ! 
    ! 	26 JANUARY 1987
    ! 
    !  MODIFIED BY:
    ! 
    !  	X-8	EAG2 		ERIC ABIS      		3-JUN-1998
    !  		ADDED USER_MODE.     
    !  		
    ! 	X-7	EA12 		ERIC ABIS      		4-APR-1995
    ! 		ADDED INVALID_TOKEN.
    ! 		
    ! 	X-6	EA001 		ERIC ABIS      		29-APR-1991
    ! 		ADDED MESSAGE FOR PRODUCTS WITH RESERVE LISTS.  IT IS
    ! 		PUT IN THE PLACE OF THE CURRENTLY UNUSED INVALID_HW_ID
    ! 		MESSAGE BECAUSE THE SEPARATE RELEASE OF LMF 1.1 REQUIRED
    ! 		THE PATCHING OF SYSMSG.EXE.  THIS PATCH REPLACED
    ! 		INVALID_HW_ID WITH NOTINRSRVLIST.  FUTURE RELEASES OF
    ! 		VMS, IF THEY INCLUDE LMF 1.1, WILL NOT HAVE TO PATCH
    ! 		AND NOTINRSRVLIST WILL RETAIN ITS VALUE.  THE UNUSED
    ! 		INVALID_HW_ID WILL GET A NEW MESSAGE NUMBER AND THE
    ! 		IMPACT SHOULD BE MINIMAL
    ! 
    ! 	X-5	JWN009		JOHN W. NOGRADY		03-NOV-1987
    ! 		UPDATE MESSAGE TEXT AND ALLOW FOR "room to grow".
    ! 
    ! 	X-4	JWN001		JOHN W. NOGRADY		14-OCT-1987
    ! 		ADD MESSAGES NOAUTH AND SYSMGR.  THESE MESSAGES WILL
    ! 		BE THE FIRST TWO VALUES IN THE MESSAGE VECTOR USED IN
    ! 		THE ROUTINE $LOOKUP_LICENSE.
    ! 
    ! 	X-3	DKH001		KEN HOBDAY		19-SEP-1987
    ! 		ADD ADDITIONAL MESSAGES FOR LMF$GRANT_LICENSE
    ! 
    ! 	X-2	TCM0002		TRUDY C. MATTHEWS	09-MAR-1987
    ! 		REMOVE WORD WARRANTY FROM LICENSE STATUS MESSAGES.
    ! 
    ! 	X-1	TCM0001		TRUDY C. MATTHEWS	26-JAN-1987
    ! 		INITIAL VERSION.
    ! --
      DECLARE LONG CONSTANT LICENSE_FACILITY = 2708
    !  SUCCESS CODES
    !  THESE CODES RETURN INFORMATION
      DECLARE LONG CONSTANT LICENSE$_SYSMGR = 177505059
    !  THESE CODES RETURN SLIGHTLY DISMAYING INFORMATION
    !  THESE CODES INDICATE UNRECOVERABLE ERRORS
      DECLARE LONG CONSTANT LICENSE$_NOAUTH = 177507058
    !  ALL OF THESE ARE FATAL
      DECLARE LONG CONSTANT LICENSE$_NOLICENSE = 177507860
      DECLARE LONG CONSTANT LICENSE$_EXCEEDED = 177507868
      DECLARE LONG CONSTANT LICENSE$_NOT_STARTED = 177507876
      DECLARE LONG CONSTANT LICENSE$_INVALID_DATE = 177507884
      DECLARE LONG CONSTANT LICENSE$_INVALID_VERSION = 177507892
      DECLARE LONG CONSTANT LICENSE$_TERMINATED = 177507900
      DECLARE LONG CONSTANT LICENSE$_NOTINRSRVLIST = 177507908
    ! +
    !  RETURNED BY SYS$LOOKUP_LICENSE
    ! -
      DECLARE LONG CONSTANT LICENSE$_BADPARAM = 177507916
      DECLARE LONG CONSTANT LICENSE$_ILLPRODUCER = 177507924
      DECLARE LONG CONSTANT LICENSE$_WRONUMARG = 177507932
      DECLARE LONG CONSTANT LICENSE$_INVALID_HW_ID = 177507940
      DECLARE LONG CONSTANT LICENSE$_INVALID_TOKEN = 177507948
    ! +
    !  NEW MESSAGES
    ! -
      DECLARE LONG CONSTANT LICENSE$_USER_MODE = 177507956