/********************************************************************************************************************************/ /* Created: 15-MAR-2001 23:37:13 by OpenVMS SDL EV1-33 */ /* Source: 15-MAR-2001 23:35:19 _$11$DUA933:[BUILD.SDL]COBMSG.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $COBDEF ***/ #ifndef __COBDEF_LOADED #define __COBDEF_LOADED 1 #pragma nostandard #ifdef __cplusplus extern "C" { #define __unknown_params ... #else #define __unknown_params #endif #if !defined(__VAXC) && !defined(VAXC) #define __struct struct #define __union union #else #define __struct variant_struct #define __union variant_union #endif /* */ /* This SDL File Generated by VAX-11 Message V04-00 on 15-MAR-2001 23:35:18.90 */ /* */ /* 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!!! */ #define COB$_FACILITY 25 #define COB$_NORMAL 1671169 /* COBOL V4 SUPPORT, NEXT 2 MESSAGES */ #define COB$_READUPKEY 1671177 #define COB$_RECNOTSIZ 1671185 #define COB$_GOTO_ALT 1671236 #define COB$_RECACTPER 1671244 #define COB$_NESERRPER 1671252 #define COB$_TIMOVELON 1671260 #define COB$_OCCDEPOVE 1671268 #define COB$_SUBOVELON 1671276 #define COB$_ERRDURSOR 1671284 #define COB$_UNEINSCON 1671292 #define COB$_CALFAI 1671300 #define 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. */ /* */ #define COB$_NO_USEPRO 1671316 #define COB$_ERRON_FIL 1671324 #define COB$_OPTMISOPE 1671332 #define COB$_FILALRLOC 1671340 #define COB$_FILALROPE 1671348 #define COB$_FILCLOLOC 1671356 #define COB$_NO_SPACE 1671364 #define COB$_FILNOTFOU 1671372 #define COB$_OPTMISCLO 1671380 #define COB$_FILALRCLO 1671388 #define COB$_NO_NEXLOG 1671396 #define COB$_OPTMISREA 1671404 #define COB$_NO_NEXVAL 1671412 #define COB$_RECLOCREA 1671420 #define COB$_RECLOC_OK 1671428 #define COB$_REAUNOFIL 1671436 #define COB$_REAINCOPE 1671444 #define COB$_WRIBEYBOU 1671452 #define COB$_WRIUNOFIL 1671460 #define COB$_WRIINCOPE 1671468 #define COB$_REWNO_R_S 1671476 #define COB$_REWUNOFIL 1671484 #define COB$_REWINCOPE 1671492 #define COB$_RECNOTEXI 1671500 #define COB$_OPTMISSTA 1671508 #define COB$_RECLOCSTA 1671516 #define COB$_STAUNOFIL 1671524 #define COB$_STAINCOPE 1671532 #define COB$_RECLOCWRI 1671540 #define COB$_RECLOCDEL 1671548 #define COB$_DELNO_R_S 1671556 #define COB$_DELUNOFIL 1671564 #define COB$_DELINCOPE 1671572 #define COB$_RECLOCREW 1671580 #define COB$_WRIDUPKEY 1671588 #define COB$_WRICREDUP 1671596 #define COB$_WRINOTASC 1671604 #define COB$_WRIDUPALT 1671612 #define COB$_REWCREDUP 1671620 #define COB$_PRIKEYCHA 1671628 #define COB$_REWDISDUP 1671636 #define COB$_WRIDISDUP 1671644 #define COB$_REASMAMIN 1671652 #define COB$_EOFON_ACC 1671660 #define COB$_ERRDURACC 1671668 #define COB$_DISMORMAX 1671676 #define COB$_INTEXPOVE 1671684 #define COB$_INTEXPUND 1671692 #define COB$_INTRESOPE 1671700 #define COB$_NO_MES_00 1671708 /* PLACE HOLDER. WAS INTDIVZER */ #define COB$_INVDECDIG 1671716 #define COB$_NO_MES_01 1671724 /* PLACE HOLDER. WAS UNDEF_EXP */ #define COB$_WRISMAMIN 1671732 #define COB$_REWSMAMIN 1671740 #define COB$_NAMNOTLIN 1671748 #define COB$_INVCHANAM 1671756 #define COB$_ORGNOTMAT 1671764 #define COB$_CANFAIL 1671772 #define COB$_INVARG 1671780 #define COB$_FAIGET_VM 1671788 #define COB$_FAIFREEVM 1671796 #define COB$_ERRDURDIS 1671804 #define COB$_USE_EXIT 1671812 #define COB$_RECACTUSE 1671820 #define COB$_FATINTERR 1671828 #define COB$_FAIGET_EF 1671836 #define COB$_SETEXTFAI 1671844 #define COB$_INVDECDAT 1671852 #define COB$_LSTHNDUSE 1671860 #define COB$_LSTHNDLDB 1671868 #define COB$_EXPDBOVER 1671876 #define COB$_KEYNOTMAT 1671884 #define COB$_UNLUNOFIL 1671892 #define COB$_RECNOTLOC 1671900 #define COB$_UNLNO_CUR 1671908 #define COB$_REAMP_D_R 1671916 #define COB$_ERRDURPOS 1671924 #define COB$_INVDEFVAL 1671932 /* COBOL V4 SUPPORT, NEXT 10 MESSAGES */ #define COB$_REARECTOB 1671940 #define COB$_WRIRECTOB 1671948 #define COB$_DEVNOTAPL 1671956 #define COB$_INVRECSIZ 1671964 #define COB$_RECSIZEXC 1671972 #define COB$_INVRECTYP 1671980 #define COB$_INVBLKFAC 1671988 #define COB$_CONCODSET 1671996 #define COB$_COLSEQKEY 1672004 #define COB$_CONPADCHR 1672012 /*EDIT 2-013 */ #define COB$_MULFILERR 1672020 /*EDIT 2-016 */ #define COB$_NOTIMP 1672028 /*EDIT 2-017, COBOL V5.0 SUPPORT */ #define COB$_INTDATEBOUNDS 1672036 #define COB$_INTDAYBOUNDS 1672044 #define COB$_DAYINTBOUNDS 1672052 #define COB$_DATEINTBOUNDS 1672060 #define COB$_FACTBOUNDS 1672068 #define COB$_NUMVALARGINV 1672076 #define COB$_LOWERLENZERO 1672084 #define COB$_UPPERLENZERO 1672092 #define COB$_REVERSELENZERO 1672100 #define COB$_ANNUITYBOUNDS 1672108 #define COB$_CHARBOUNDS 1672116 #define COB$_MODBOUNDS 1672124 #define COB$_PRESVALBOUNDS 1672132 #define COB$_REMBOUNDS 1672140 #define COB$_RANDOMBOUNDS 1672148 #define COB$_INTDIVZER 1679170 #define COB$_DIVBY_ZER 1679178 #define COB$_UNDEF_EXP 1679186 #ifdef __cplusplus } #endif #pragma standard #endif /* __COBDEF_LOADED */