%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:37:22.81
    ! 
    !  FILE: COBMSG.MSG  EDIT: KC2018
    ! 
    ! ****************************************************************************
    ! *									    *
    ! *  COPYRIGHT (C) 1978, 1980, 1982, 1984 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.		    *
    ! * 									    *
    ! *									    *
    ! ****************************************************************************
    ! 
    ! 
    ! 
    !  EDIT HISTORY:
    ! 
    !  2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT.  ADAPTED FROM COBMSG.MDL
    ! 	  VERSION 1-019.  SBL 22-APR-1981
    !  2-002 - USE COB$ FACILITY FOR COB$_NORMAL.  SBL 27-APR-1981
    !  2-003 - COPIED CHANGES MADE TO COBMSG.MDL TO THIS MSG FILE.  THE MESSAGES
    ! 	  ADDED INCLUDE COB$_LSTHNDUSE, COB$_LSTHNDLDB, AND COB$_EXPDBOVER.
    ! 	  LB 7-MAY-81.
    !  2-004	- ADDED COB$_KEYNOTMAT.  PDG 24-JUL-81.
    !  2-005	- ADDED .TITLE PDG 26-JUL-81.
    !  2-006	- ADDED COB$_UNLUNOFIL AND COB$_RECNOTLOC.  PDG 7-AUG-81.
    !  2-007 - UPDATED COPYRIGHT DATE AND FIXED SPELLING ERROR.  LB 9-AUG-81.
    !  2-008 - ADDED COB$_UNLNO_CUR.  LB 29-OCT-81.
    !  2-009 - CHANGED COB$_GOTNO_ALT TO BE COB$_GOTO_ALT.  THIS HAD BEEN IN
    ! 	  ERROR IN THIS FILE AS WELL AS IN COBERROR.  LB  1-APR-82.
    !  2-010 - CHANGE TITLE TO COB$MSGDEF.  SBL 28-AUG-1982
    !  2-011 - ADDED COB$_ERRDURPOS FOR COB$POS_ERASE AND COB$_REAMP_D_R
    ! 	  FOR COB$IOEXCEPTION.				LGB 6-SEP-83
    ! 	  ADDED COB$_INVDEFVAL FOR COB$ACCEPT		LGB 3-OCT-83
    !  2-012 - ADDED NUMEROUS CODES FOR COBOL V4.0 SUPPORT FOR COB$IOEXCEPTION.
    ! 	  DJM 17-NOV-86
    !  2-013 - CHANGED MESSAGE AND SEVERITY FOR COB$_INTDIVZER AND COB$_UNDEF_EXP
    ! 	  AS THE PROGRAM IS ALLOWED TO CONTINUE WITH THE NEW STANDARD.
    ! 	  ALSO - ADD MESSAGE COB$_DIVBYZER.  DJM 27-APR-1987
    !  2-014 - REMOVE REFERENCE TO ISAM.  DJM 30-DEC-1987
    !  2-015 - ADD MULFILERR FOR COB$MFT.  DJM 28-MAR-1988.
    !  2-016 - ADD COB$NOTIMP.  MDL 23-OCT-1989
    !  2-017 - ADD CODES FOR COBOL V5 INTRINSIC FUNCTIONS.  KC 14-NOV-1991.
    !  2-018 - ADD RANDOM BOUNDS.  KC 24-JAN-1992.
    !  2-019 - FIX SPELLING ERRORS (BUG 3330). LNG 6-SEP-95
    ! 
    ! +
    !  SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES:
    ! 
    ! 	COB$_ABCMNOXYZ
    ! 
    !  IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",
    !  AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR
    !  MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS.
    ! 
    ! 
    !  MACRO-32 PROGRAMMING:
    ! 
    !  THE MACRO CALL:
    ! 
    ! 	$COBDEF
    ! 
    !  WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.
    !  THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;
    !  THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER.
    ! -
    ! 
    ! 
    ! 			; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES???
      DECLARE LONG CONSTANT COB$_FACILITY = 25
      DECLARE LONG CONSTANT COB$_NORMAL = 1671169
    !  COBOL V4 SUPPORT, NEXT 2 MESSAGES
      DECLARE LONG CONSTANT COB$_READUPKEY = 1671177
      DECLARE LONG CONSTANT COB$_RECNOTSIZ = 1671185
      DECLARE LONG CONSTANT COB$_GOTO_ALT = 1671236
      DECLARE LONG CONSTANT COB$_RECACTPER = 1671244
      DECLARE LONG CONSTANT COB$_NESERRPER = 1671252
      DECLARE LONG CONSTANT COB$_TIMOVELON = 1671260
      DECLARE LONG CONSTANT COB$_OCCDEPOVE = 1671268
      DECLARE LONG CONSTANT COB$_SUBOVELON = 1671276
      DECLARE LONG CONSTANT COB$_ERRDURSOR = 1671284
      DECLARE LONG CONSTANT COB$_UNEINSCON = 1671292
      DECLARE LONG CONSTANT COB$_CALFAI = 1671300
      DECLARE LONG CONSTANT COB$_INVLINVAL = 1671308
    ! 				***** NO_USEPRO MUST BE THE FIRST ERROR
    ! 				***** MESSAGE ASSOCIATED WITH
    ! 				***** COB$IOEXCEPTION.  IT IS USED AS
    ! 				***** THE BASE OF AN ENCODING ALGORITHM.
    ! 
      DECLARE LONG CONSTANT COB$_NO_USEPRO = 1671316
      DECLARE LONG CONSTANT COB$_ERRON_FIL = 1671324
      DECLARE LONG CONSTANT COB$_OPTMISOPE = 1671332
      DECLARE LONG CONSTANT COB$_FILALRLOC = 1671340
      DECLARE LONG CONSTANT COB$_FILALROPE = 1671348
      DECLARE LONG CONSTANT COB$_FILCLOLOC = 1671356
      DECLARE LONG CONSTANT COB$_NO_SPACE = 1671364
      DECLARE LONG CONSTANT COB$_FILNOTFOU = 1671372
      DECLARE LONG CONSTANT COB$_OPTMISCLO = 1671380
      DECLARE LONG CONSTANT COB$_FILALRCLO = 1671388
      DECLARE LONG CONSTANT COB$_NO_NEXLOG = 1671396
      DECLARE LONG CONSTANT COB$_OPTMISREA = 1671404
      DECLARE LONG CONSTANT COB$_NO_NEXVAL = 1671412
      DECLARE LONG CONSTANT COB$_RECLOCREA = 1671420
      DECLARE LONG CONSTANT COB$_RECLOC_OK = 1671428
      DECLARE LONG CONSTANT COB$_REAUNOFIL = 1671436
      DECLARE LONG CONSTANT COB$_REAINCOPE = 1671444
      DECLARE LONG CONSTANT COB$_WRIBEYBOU = 1671452
      DECLARE LONG CONSTANT COB$_WRIUNOFIL = 1671460
      DECLARE LONG CONSTANT COB$_WRIINCOPE = 1671468
      DECLARE LONG CONSTANT COB$_REWNO_R_S = 1671476
      DECLARE LONG CONSTANT COB$_REWUNOFIL = 1671484
      DECLARE LONG CONSTANT COB$_REWINCOPE = 1671492
      DECLARE LONG CONSTANT COB$_RECNOTEXI = 1671500
      DECLARE LONG CONSTANT COB$_OPTMISSTA = 1671508
      DECLARE LONG CONSTANT COB$_RECLOCSTA = 1671516
      DECLARE LONG CONSTANT COB$_STAUNOFIL = 1671524
      DECLARE LONG CONSTANT COB$_STAINCOPE = 1671532
      DECLARE LONG CONSTANT COB$_RECLOCWRI = 1671540
      DECLARE LONG CONSTANT COB$_RECLOCDEL = 1671548
      DECLARE LONG CONSTANT COB$_DELNO_R_S = 1671556
      DECLARE LONG CONSTANT COB$_DELUNOFIL = 1671564
      DECLARE LONG CONSTANT COB$_DELINCOPE = 1671572
      DECLARE LONG CONSTANT COB$_RECLOCREW = 1671580
      DECLARE LONG CONSTANT COB$_WRIDUPKEY = 1671588
      DECLARE LONG CONSTANT COB$_WRICREDUP = 1671596
      DECLARE LONG CONSTANT COB$_WRINOTASC = 1671604
      DECLARE LONG CONSTANT COB$_WRIDUPALT = 1671612
      DECLARE LONG CONSTANT COB$_REWCREDUP = 1671620
      DECLARE LONG CONSTANT COB$_PRIKEYCHA = 1671628
      DECLARE LONG CONSTANT COB$_REWDISDUP = 1671636
      DECLARE LONG CONSTANT COB$_WRIDISDUP = 1671644
      DECLARE LONG CONSTANT COB$_REASMAMIN = 1671652
      DECLARE LONG CONSTANT COB$_EOFON_ACC = 1671660
      DECLARE LONG CONSTANT COB$_ERRDURACC = 1671668
      DECLARE LONG CONSTANT COB$_DISMORMAX = 1671676
      DECLARE LONG CONSTANT COB$_INTEXPOVE = 1671684
      DECLARE LONG CONSTANT COB$_INTEXPUND = 1671692
      DECLARE LONG CONSTANT COB$_INTRESOPE = 1671700
      DECLARE LONG CONSTANT COB$_NO_MES_00 = 1671708  !  PLACE HOLDER. WAS INTDIVZER
      DECLARE LONG CONSTANT COB$_INVDECDIG = 1671716
      DECLARE LONG CONSTANT COB$_NO_MES_01 = 1671724  !  PLACE HOLDER. WAS UNDEF_EXP
      DECLARE LONG CONSTANT COB$_WRISMAMIN = 1671732
      DECLARE LONG CONSTANT COB$_REWSMAMIN = 1671740
      DECLARE LONG CONSTANT COB$_NAMNOTLIN = 1671748
      DECLARE LONG CONSTANT COB$_INVCHANAM = 1671756
      DECLARE LONG CONSTANT COB$_ORGNOTMAT = 1671764
      DECLARE LONG CONSTANT COB$_CANFAIL = 1671772
      DECLARE LONG CONSTANT COB$_INVARG = 1671780
      DECLARE LONG CONSTANT COB$_FAIGET_VM = 1671788
      DECLARE LONG CONSTANT COB$_FAIFREEVM = 1671796
      DECLARE LONG CONSTANT COB$_ERRDURDIS = 1671804
      DECLARE LONG CONSTANT COB$_USE_EXIT = 1671812
      DECLARE LONG CONSTANT COB$_RECACTUSE = 1671820
      DECLARE LONG CONSTANT COB$_FATINTERR = 1671828
      DECLARE LONG CONSTANT COB$_FAIGET_EF = 1671836
      DECLARE LONG CONSTANT COB$_SETEXTFAI = 1671844
      DECLARE LONG CONSTANT COB$_INVDECDAT = 1671852
      DECLARE LONG CONSTANT COB$_LSTHNDUSE = 1671860
      DECLARE LONG CONSTANT COB$_LSTHNDLDB = 1671868
      DECLARE LONG CONSTANT COB$_EXPDBOVER = 1671876
      DECLARE LONG CONSTANT COB$_KEYNOTMAT = 1671884
      DECLARE LONG CONSTANT COB$_UNLUNOFIL = 1671892
      DECLARE LONG CONSTANT COB$_RECNOTLOC = 1671900
      DECLARE LONG CONSTANT COB$_UNLNO_CUR = 1671908
      DECLARE LONG CONSTANT COB$_REAMP_D_R = 1671916
      DECLARE LONG CONSTANT COB$_ERRDURPOS = 1671924
      DECLARE LONG CONSTANT COB$_INVDEFVAL = 1671932
    !  COBOL V4 SUPPORT, NEXT 10 MESSAGES
      DECLARE LONG CONSTANT COB$_REARECTOB = 1671940
      DECLARE LONG CONSTANT COB$_WRIRECTOB = 1671948
      DECLARE LONG CONSTANT COB$_DEVNOTAPL = 1671956
      DECLARE LONG CONSTANT COB$_INVRECSIZ = 1671964
      DECLARE LONG CONSTANT COB$_RECSIZEXC = 1671972
      DECLARE LONG CONSTANT COB$_INVRECTYP = 1671980
      DECLARE LONG CONSTANT COB$_INVBLKFAC = 1671988
      DECLARE LONG CONSTANT COB$_CONCODSET = 1671996
      DECLARE LONG CONSTANT COB$_COLSEQKEY = 1672004
      DECLARE LONG CONSTANT COB$_CONPADCHR = 1672012
    ! EDIT 2-013
      DECLARE LONG CONSTANT COB$_MULFILERR = 1672020
    ! EDIT 2-016
      DECLARE LONG CONSTANT COB$_NOTIMP = 1672028
    ! EDIT 2-017, COBOL V5.0 SUPPORT
      DECLARE LONG CONSTANT COB$_INTDATEBOUNDS = 1672036
      DECLARE LONG CONSTANT COB$_INTDAYBOUNDS = 1672044
      DECLARE LONG CONSTANT COB$_DAYINTBOUNDS = 1672052
      DECLARE LONG CONSTANT COB$_DATEINTBOUNDS = 1672060
      DECLARE LONG CONSTANT COB$_FACTBOUNDS = 1672068
      DECLARE LONG CONSTANT COB$_NUMVALARGINV = 1672076
      DECLARE LONG CONSTANT COB$_LOWERLENZERO = 1672084
      DECLARE LONG CONSTANT COB$_UPPERLENZERO = 1672092
      DECLARE LONG CONSTANT COB$_REVERSELENZERO = 1672100
      DECLARE LONG CONSTANT COB$_ANNUITYBOUNDS = 1672108
      DECLARE LONG CONSTANT COB$_CHARBOUNDS = 1672116
      DECLARE LONG CONSTANT COB$_MODBOUNDS = 1672124
      DECLARE LONG CONSTANT COB$_PRESVALBOUNDS = 1672132
      DECLARE LONG CONSTANT COB$_REMBOUNDS = 1672140
      DECLARE LONG CONSTANT COB$_RANDOMBOUNDS = 1672148
      DECLARE LONG CONSTANT COB$_INTDIVZER = 1679170
      DECLARE LONG CONSTANT COB$_DIVBY_ZER = 1679178
      DECLARE LONG CONSTANT COB$_UNDEF_EXP = 1679186