/********************************************************************************************************************************/ /* Created: 15-MAR-2001 23:37:19 by OpenVMS SDL EV1-33 */ /* Source: 15-MAR-2001 23:35:20 _$11$DUA933:[BUILD.SDL]FORMSG.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $FORDEF ***/ #ifndef __FORDEF_LOADED #define __FORDEF_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:20.23 */ /* */ /* */ /***************************************************************************** */ /** * */ /** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1993 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. * */ /** * */ /** * */ /***************************************************************************** */ /* */ /* */ /* 1-014 - ADD ERRORS 17-19 FOR NAMELIST. SBL 10-NOV-1980 */ /* 1-015 - CORRECT TYPO IN TOOMANVAL. SBL 15-DEC-1980 */ /* 1-016 - RESTORE CLOSING BRACKET ON OPEDEFREQ, MYSTERIOUSLY DROPPED IN 1-015. */ /* SBL 6-JAN-1981 */ /* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM FORMSG.MDL */ /* VERSION 1-016. SBL 22-APR-1981 */ /* 2-002 - ADD UNFIO_FMT, FMTIO_UNF, DIRIO_KEY, SEQIO_DIR, KEYIO_DIR, */ /* IO_NONFOR, INVTXTREC, FLOUNDEXC. JAW 23-AUG-1981 */ /* 2-003 - CHANGE INVTXTREC TO INVTEXREC. JAW 24-AUG-1981 */ /* 2-004 - ADD INVTEX WHICH DOES NOT REQUIRE A RECORD NUMBER. THIS IS FOR INDEXED */ /* AND INTERNAL FILES THAT DO NOT HAVE A VALID RECORD NUMBER. DGP 21-DEC-1981 */ /* 2-005 - ADD .TITLE. SBL 28-AUG-1982 */ /* 2-006 - ADD OPEREQDIS AND OPEREQSEQ. SBL 2-JUN-1983 */ /* 2-007 - ADD ULTRIX SPECIFIC ERRORS AND WARNINGS. */ /* 2-008 - ADD INVMATKEY. DJM 14-SEP-1987. */ /* 2-009 - ADD FORRTL2 MESSAGES. CHH 22-SEP-1987 */ /* X-4 STEVE LIONEL 16-OCT-1989 */ /* ADD SUBPRCDEL,UNAWAKSUB */ /* X-5 SBL1001 22-OCT-1991 STEVE LIONEL */ /* ADD FOR$_VECALIGNEXC */ /* X-6 SBL6100 STEVEN B. LIONEL 15-MAR-1993 */ /* ADD FLOCONFAI */ /*-- */ /*+ */ /* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: */ /* */ /* FOR$_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. */ /* */ /* THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR */ /* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. */ /* */ /* MACRO-32 PROGRAMMING: */ /* */ /* THE MACROS CALL: */ /* */ /* $FORDEF */ /* */ /* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. */ /* THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94). */ /* THESE SYMBOLS ARE DECLARED EXTERNAL BY THE RUN-TIME LIBRARY, */ /* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. */ /*- */ /* ; MAKE ALL ERRORS BE SEVERE (EXCEPT AS NOTED) */ /* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE */ /* ; SET LH TO 24 (DECIMAL). */ #define FOR$_FACILITY 24 #define FOR$_NOTFORSPE 1605644 /* ; NEVER SIGNALED. USED ONLY AS A FORTRAN ERROR */ /* ; NUMBER FOR ERRSNS TO MEAN SOME OTHER FACILITY */ /* ; THAN FOR$ OR MTH$ DETECTED THE ERROR. */ #define FOR$_NOTIMP 1605652 #define FOR$_IGNORED 1605656 #define FOR$_IGNNOTDEL 1605664 /* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE */ /* ; SET LH TO 24 (DECIMAL). */ #define FOR$_SYNERRNAM 1605772 #define FOR$_TOOMANVAL 1605780 #define FOR$_INVREFVAR 1605788 #define FOR$_REWERR 1605796 #define FOR$_DUPFILSPE 1605804 #define FOR$_INPRECTOO 1605812 #define FOR$_BACERR 1605820 #define FOR$_ENDDURREA 1605828 #define FOR$_RECNUMOUT 1605836 #define FOR$_OPEDEFREQ 1605844 #define FOR$_TOOMANREC 1605852 #define FOR$_CLOERR 1605860 #define FOR$_FILNOTFOU 1605868 #define FOR$_OPEFAI 1605876 #define FOR$_MIXFILACC 1605884 #define FOR$_INVLOGUNI 1605892 #define FOR$_ENDFILERR 1605900 #define FOR$_UNIALROPE 1605908 #define FOR$_SEGRECFOR 1605916 #define FOR$_ATTACCNON 1605924 #define FOR$_INCRECLEN 1605932 #define FOR$_ERRDURWRI 1605940 #define FOR$_ERRDURREA 1605948 #define FOR$_RECIO_OPE 1605956 #define FOR$_INSVIRMEM 1605964 #define FOR$_NO_SUCDEV 1605972 #define FOR$_FILNAMSPE 1605980 #define FOR$_INCRECTYP 1605988 #define FOR$_KEYVALERR 1605996 #define FOR$_INCOPECLO 1606004 #define FOR$_WRIREAFIL 1606012 #define FOR$_INVARGFOR 1606020 #define FOR$_INVKEYSPE 1606028 #define FOR$_INCKEYCHG 1606036 #define FOR$_INCFILORG 1606044 #define FOR$_SPERECLOC 1606052 #define FOR$_NO_CURREC 1606060 #define FOR$_REWRITERR 1606068 #define FOR$_DELERR 1606076 #define FOR$_UNLERR 1606084 #define FOR$_FINERR 1606092 #define FOR$_MORONEREC 1605852 #define FOR$_ATTREANON 1605924 /* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE */ #define FOR$_LISIO_SYN 1606108 #define FOR$_INFFORLOO 1606116 #define FOR$_FORVARMIS 1606124 #define FOR$_SYNERRFOR 1606132 /* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE ERROR (NOT SEVERE) */ #define FOR$_OUTCONERR 1606138 /* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE */ #define FOR$_INPCONERR 1606148 /* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE */ #define FOR$_OUTSTAOVE 1606164 #define FOR$_INPSTAREQ 1606172 #define FOR$_VFEVALERR 1606180 /* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE */ #define FOR$_ADJARRDIM 1606380 #define FOR$_INVMATKEY 1606388 #define FOR$_FLOCONFAI 1606394 /* ********** */ /* THE FOLLOWING MESSAGES ARE SECONDARY MESSAGES, OR ARE USED ONLY IN */ /* EXIT HANDLERS, AND THEREFORE DO NOT NEED TO BE (AND SHOULD NOT BE) */ /* CONTIGUOUS WITH THE MESSAGES ABOVE. */ /* THE NEXT SIX MESSAGES ARE SECONDARY MESSAGES FOR USE WITH MIXFILACC IN */ /* FOR$$IO_BEG AND FOR$$CB. */ #define FOR$_UNFIO_FMT 1607684 #define FOR$_FMTIO_UNF 1607692 #define FOR$_DIRIO_KEY 1607700 #define FOR$_SEQIO_DIR 1607708 #define FOR$_KEYIO_DIR 1607716 #define FOR$_IO_NONFOR 1607724 /* THE NEXT TWO MESSAGES ARE SECONDARY MESSAGES FOR USE WITH INPCONERR IN */ /* FOR$$UDF_WF AND FOR$$UDF_WL. */ #define FOR$_INVTEXREC 1607732 #define FOR$_INVTEX 1607740 /* ADDITIONAL SECONDARY MESSAGES */ #define FOR$_OPEREQDIS 1607748 #define FOR$_OPEREQSEQ 1607756 /* THE NEXT MESSAGES ARE PRIMARY MESSAGES USED IN THE EXIT HANDLER WHICH */ /* IS DECLARED BY FOR$HANDLER OR FOR$VECALIGN_HANDLER. */ #define FOR$_FLOUNDEXC 1608035 #define FOR$_VECALIGNEXC 1608043 /* END OF SPECIAL MESSAGES */ /* ********** */ /* ********** */ /* THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM FORRTL2, THE */ /* VAX FORTRAN V5.0 PARALLEL PROCESSING RTL SUPPORT. */ /* */ #define FOR$_FATINTERR 1609732 #define FOR$_SUBPRCDIED 1609740 #define FOR$_NOTIMPRET 1609748 #define FOR$_FAIOWNERID 1609756 #define FOR$_FAIPRCID 1609764 #define FOR$_FAIPRCNAME 1609772 #define FOR$_FAIACTCPU 1609780 #define FOR$_FAIIDPRC 1609788 #define FOR$_FAIIMAGNAME 1609796 #define FOR$_FAIDCLEXIT 1609804 #define FOR$_FAISUBPRC 1609812 #define FOR$_INVNUMPRC 1609820 #define FOR$_MEMSHRERR 1609828 #define FOR$_LOCALSHRERR 1609836 #define FOR$_LOCALACCESS 1609844 #define FOR$_INVLCLADR 1609852 #define FOR$_COMSHRERR 1609860 #define FOR$_INVCOMADR 1609868 #define FOR$_PARINITERR 1609876 #define FOR$_STACKSHRERR 1609884 #define FOR$_FAISHRSTACK 1609892 #define FOR$_INVUNWIND 1609900 #define FOR$_STKBUFOVR 1609908 #define FOR$_SUBPRCDEL 1609916 #define FOR$_ASSERTFAIL 1609924 #define FOR$_INVLOGNAM 1611778 #define FOR$_TOOMANPRC 1611786 #define FOR$_INVDSTRSIZE 1611794 #define FOR$_DEFVALUSED 1615875 #define FOR$_UNIPROCESS 1615883 #define FOR$_NOPARINIT 1615891 #define FOR$_NOTRUNINPP 1615899 #define FOR$_NESTPPLOOP 1615907 #define FOR$_UNAWAKSUB 1615915 /* END OF FORRTL2 MESSAGES */ /* ********** */ #ifdef __cplusplus } #endif #pragma standard #endif /* __FORDEF_LOADED */