/* * * Message/status codes for COBRTL. */ #ifndef _COBDEF_H #define _COBDEF_H /* 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. */ #define COB$_FACILITY 25 /* 0x0019 */ #define COB$_NORMAL 0x00198001 /* 1671169 */ /* COBOL V4 support, next 2 messages */ #define COB$_READUPKEY 0x00198009 /* 1671177 */ #define COB$_RECNOTSIZ 0x00198011 /* 1671185 */ #define COB$_GOTO_ALT 0x00198044 /* 1671236 */ #define COB$_RECACTPER 0x0019804C /* 1671244 */ #define COB$_NESERRPER 0x00198054 /* 1671252 */ #define COB$_TIMOVELON 0x0019805C /* 1671260 */ #define COB$_OCCDEPOVE 0x00198064 /* 1671268 */ #define COB$_SUBOVELON 0x0019806C /* 1671276 */ #define COB$_ERRDURSOR 0x00198074 /* 1671284 */ #define COB$_UNEINSCON 0x0019807C /* 1671292 */ #define COB$_CALFAI 0x00198084 /* 1671300 */ #define COB$_INVLINVAL 0x0019808C /* 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 0x00198094 /* 1671316 */ #define COB$_ERRON_FIL 0x0019809C /* 1671324 */ #define COB$_OPTMISOPE 0x001980A4 /* 1671332 */ #define COB$_FILALRLOC 0x001980AC /* 1671340 */ #define COB$_FILALROPE 0x001980B4 /* 1671348 */ #define COB$_FILCLOLOC 0x001980BC /* 1671356 */ #define COB$_NO_SPACE 0x001980C4 /* 1671364 */ #define COB$_FILNOTFOU 0x001980CC /* 1671372 */ #define COB$_OPTMISCLO 0x001980D4 /* 1671380 */ #define COB$_FILALRCLO 0x001980DC /* 1671388 */ #define COB$_NO_NEXLOG 0x001980E4 /* 1671396 */ #define COB$_OPTMISREA 0x001980EC /* 1671404 */ #define COB$_NO_NEXVAL 0x001980F4 /* 1671412 */ #define COB$_RECLOCREA 0x001980FC /* 1671420 */ #define COB$_RECLOC_OK 0x00198104 /* 1671428 */ #define COB$_REAUNOFIL 0x0019810C /* 1671436 */ #define COB$_REAINCOPE 0x00198114 /* 1671444 */ #define COB$_WRIBEYBOU 0x0019811C /* 1671452 */ #define COB$_WRIUNOFIL 0x00198124 /* 1671460 */ #define COB$_WRIINCOPE 0x0019812C /* 1671468 */ #define COB$_REWNO_R_S 0x00198134 /* 1671476 */ #define COB$_REWUNOFIL 0x0019813C /* 1671484 */ #define COB$_REWINCOPE 0x00198144 /* 1671492 */ #define COB$_RECNOTEXI 0x0019814C /* 1671500 */ #define COB$_OPTMISSTA 0x00198154 /* 1671508 */ #define COB$_RECLOCSTA 0x0019815C /* 1671516 */ #define COB$_STAUNOFIL 0x00198164 /* 1671524 */ #define COB$_STAINCOPE 0x0019816C /* 1671532 */ #define COB$_RECLOCWRI 0x00198174 /* 1671540 */ #define COB$_RECLOCDEL 0x0019817C /* 1671548 */ #define COB$_DELNO_R_S 0x00198184 /* 1671556 */ #define COB$_DELUNOFIL 0x0019818C /* 1671564 */ #define COB$_DELINCOPE 0x00198194 /* 1671572 */ #define COB$_RECLOCREW 0x0019819C /* 1671580 */ #define COB$_WRIDUPKEY 0x001981A4 /* 1671588 */ #define COB$_WRICREDUP 0x001981AC /* 1671596 */ #define COB$_WRINOTASC 0x001981B4 /* 1671604 */ #define COB$_WRIDUPALT 0x001981BC /* 1671612 */ #define COB$_REWCREDUP 0x001981C4 /* 1671620 */ #define COB$_PRIKEYCHA 0x001981CC /* 1671628 */ #define COB$_REWDISDUP 0x001981D4 /* 1671636 */ #define COB$_WRIDISDUP 0x001981DC /* 1671644 */ #define COB$_REASMAMIN 0x001981E4 /* 1671652 */ #define COB$_EOFON_ACC 0x001981EC /* 1671660 */ #define COB$_ERRDURACC 0x001981F4 /* 1671668 */ #define COB$_DISMORMAX 0x001981FC /* 1671676 */ #define COB$_INTEXPOVE 0x00198204 /* 1671684 */ #define COB$_INTEXPUND 0x0019820C /* 1671692 */ #define COB$_INTRESOPE 0x00198214 /* 1671700 */ #define COB$_NO_MES_00 0x0019821C /* 1671708 place holder; was INTDIVZER */ #define COB$_INVDECDIG 0x00198224 /* 1671716 */ #define COB$_NO_MES_01 0x0019822C /* 1671724 place holder; was UNDEF_EXP */ #define COB$_WRISMAMIN 0x00198234 /* 1671732 */ #define COB$_REWSMAMIN 0x0019823C /* 1671740 */ #define COB$_NAMNOTLIN 0x00198244 /* 1671748 */ #define COB$_INVCHANAM 0x0019824C /* 1671756 */ #define COB$_ORGNOTMAT 0x00198254 /* 1671764 */ #define COB$_CANFAIL 0x0019825C /* 1671772 */ #define COB$_INVARG 0x00198264 /* 1671780 */ #define COB$_FAIGET_VM 0x0019826C /* 1671788 */ #define COB$_FAIFREEVM 0x00198274 /* 1671796 */ #define COB$_ERRDURDIS 0x0019827C /* 1671804 */ #define COB$_USE_EXIT 0x00198284 /* 1671812 */ #define COB$_RECACTUSE 0x0019828C /* 1671820 */ #define COB$_FATINTERR 0x00198294 /* 1671828 */ #define COB$_FAIGET_EF 0x0019829C /* 1671836 */ #define COB$_SETEXTFAI 0x001982A4 /* 1671844 */ #define COB$_INVDECDAT 0x001982AC /* 1671852 */ #define COB$_LSTHNDUSE 0x001982B4 /* 1671860 */ #define COB$_LSTHNDLDB 0x001982BC /* 1671868 */ #define COB$_EXPDBOVER 0x001982C4 /* 1671876 */ #define COB$_KEYNOTMAT 0x001982CC /* 1671884 */ #define COB$_UNLUNOFIL 0x001982D4 /* 1671892 */ #define COB$_RECNOTLOC 0x001982DC /* 1671900 */ #define COB$_UNLNO_CUR 0x001982E4 /* 1671908 */ #define COB$_REAMP_D_R 0x001982EC /* 1671916 */ #define COB$_ERRDURPOS 0x001982F4 /* 1671924 */ #define COB$_INVDEFVAL 0x001982FC /* 1671932 */ /* COBOL V4 support, next 10 messages */ #define COB$_REARECTOB 0x00198304 /* 1671940 */ #define COB$_WRIRECTOB 0x0019830C /* 1671948 */ #define COB$_DEVNOTAPL 0x00198314 /* 1671956 */ #define COB$_INVRECSIZ 0x0019831C /* 1671964 */ #define COB$_RECSIZEXC 0x00198324 /* 1671972 */ #define COB$_INVRECTYP 0x0019832C /* 1671980 */ #define COB$_INVBLKFAC 0x00198334 /* 1671988 */ #define COB$_CONCODSET 0x0019833C /* 1671996 */ #define COB$_COLSEQKEY 0x00198344 /* 1672004 */ #define COB$_CONPADCHR 0x0019834C /* 1672012 */ /*edit 2-013 */ #define COB$_MULFILERR 0x00198354 /* 1672020 */ /*edit 2-016 */ #define COB$_NOTIMP 0x0019835C /* 1672028 */ #define COB$_INTDIVZER 0x00199F42 /* 1679170 */ #define COB$_DIVBY_ZER 0x00199F4A /* 1679178 */ #define COB$_UNDEF_EXP 0x00199F52 /* 1679186 */ #endif /*_COBDEF_H*/