* * $Id: cderrms.F,v 1.1.1.1 1996/02/28 16:23:41 mclareni Exp $ * * $Log: cderrms.F,v $ * Revision 1.1.1.1 1996/02/28 16:23:41 mclareni * Hepdb, cdlib, etc * * #include "hepdb/pilot.h" SUBROUTINE CDERRMS(IRC,MESS) * -----------------------====- * c *************************************** c * This routine returns a message text * c * corresponding to a given IRC value * c * ................................... * c * Its code is generated by a special * c * program (Author: Boris Khomenko) * c * using the information about HEPDB * c * Return Codes from the deck CDBHEAD * c * Date of generation: 07/06/94 * c *************************************** * IMPLICIT NONE INTEGER IRC CHARACTER*(*) MESS * MESS='No assosiated message' IF(IRC.EQ.0) MESS='No error' IF(IRC.EQ. -1 ) MESS= + 'Invalid top directory name ' IF(IRC.EQ. -2 ) MESS= + 'The file is already open with correct LUNRZ and ' + //'TOPNM ' IF(IRC.EQ. -3 ) MESS= + 'The file is already open with wrong LUNRZ or ' + //'TOPNM ' IF(IRC.EQ. -5 ) MESS= + 'Invalid process name in Online context ' IF(IRC.EQ. -6 ) MESS= + 'Error in IC_BOOK for booking the CACHE ' IF(IRC.EQ. -7 ) MESS= + 'Error in CC_SETUP for reserving the CLUSCOM ' IF(IRC.EQ. -8 ) MESS= + 'Error in opening journal file on Apollo in the ' + //'server mode ' IF(IRC.EQ. -9 ) MESS= + 'Unable to open FZ communication channel ' IF(IRC.EQ. -10 ) MESS= + 'Host unable to open RZ file ' IF(IRC.EQ. -11 ) MESS= + 'Access to database file denied ' IF(IRC.EQ. 1 ) MESS= + 'Illegal character option ' IF(IRC.EQ. 2 ) MESS= + 'Illegal path name ' IF(IRC.EQ. 3 ) MESS= + 'Data base structure in memory clobbered ' IF(IRC.EQ. 4 ) MESS= + 'Illegal key option ' IF(IRC.EQ. 5 ) MESS= + 'Error in CDCHLD in P3 communication ' IF(IRC.EQ. 12 ) MESS= + 'Illegal pathname ' IF(IRC.EQ. 13 ) MESS= + 'Not enough structural link to support a new Node ' IF(IRC.EQ. 15 ) MESS= + 'Cannot define IO descriptor for Key bank ' IF(IRC.EQ. 21 ) MESS= + 'Too many keys with option M ' IF(IRC.EQ. 22 ) MESS= + 'Illegal key option ' IF(IRC.EQ. 24 ) MESS= + 'No Key bank created satisfying key options for ' + //'option S ' IF(IRC.EQ. 25 ) MESS= + 'Illegal Path Name ' IF(IRC.EQ. 31 ) MESS= + 'Illegal path name or path name in node bank ' + //'is wrong ' IF(IRC.EQ. 32 ) MESS= + 'No keys/data in this directory ' IF(IRC.EQ. 33 ) MESS= + 'No valid data for the given range of insertion ' + //'time or for the given set of keys and program ' + //'version number ' IF(IRC.EQ. 34 ) MESS= + 'RZIN fails to read the data ' IF(IRC.EQ. 35 ) MESS= + 'Wrong reference to data objects in update mode ' IF(IRC.EQ. 36 ) MESS= + 'Data bank address zero on return from CDKXIN ' IF(IRC.EQ. 37 ) MESS= + 'Insufficient space in USER store array ' IF(IRC.EQ. 38 ) MESS= + 'Read error in getting the RZ date and time ' IF(IRC.EQ. 39 ) MESS= + 'Illegal data type in the key descriptor ' IF(IRC.EQ. 43 ) MESS= + 'Too many key elements ' IF(IRC.EQ. 44 ) MESS= + 'Cannot find the top directory name ' + //'(wrong initialization) ' IF(IRC.EQ. 45 ) MESS= + 'Illegal Path name ' IF(IRC.EQ. 47 ) MESS= + 'The Directory already exists ' IF(IRC.EQ. 48 ) MESS= + 'Error in directory search sequence ' IF(IRC.EQ. 49 ) MESS= + 'FZOUT fails to write on the sequential file ' IF(IRC.EQ. 51 ) MESS= + 'Illegal character option ' IF(IRC.EQ. 52 ) MESS= + 'No access to the Key banks ' IF(IRC.EQ. 54 ) MESS= + 'Pathname not matched to that found in bank NODB ' IF(IRC.EQ. 57 ) MESS= + 'Illegal pathname ' IF(IRC.EQ. 58 ) MESS= + 'Database structure in memory clobbered ' IF(IRC.EQ. 59 ) MESS= + 'Some of the expected key banks not found ' IF(IRC.EQ. 61 ) MESS= + 'Too many keys ' IF(IRC.EQ. 62 ) MESS= + 'Illegal character option ' IF(IRC.EQ. 63 ) MESS= + 'Data base structure in memory clobbered ' IF(IRC.EQ. 64 ) MESS= + 'Error in MZCOPY while copying Data bank ' IF(IRC.EQ. 65 ) MESS= + 'Illegal number of data objects ' IF(IRC.EQ. 66 ) MESS= + 'Illegal logical unit number ' IF(IRC.EQ. 67 ) MESS= + 'File too long; no space in buffer ' IF(IRC.EQ. 68 ) MESS= + 'Input directory is partitioned ' IF(IRC.EQ. 69 ) MESS= + 'Input directory is not partitioned ' IF(IRC.EQ. 70 ) MESS= + 'Error in deleting a partition through RZDELT ' IF(IRC.EQ. 71 ) MESS= + 'Illegal path name ' IF(IRC.EQ. 72 ) MESS= + 'Read error on the FZ file (journal file) ' IF(IRC.EQ. 73 ) MESS= + 'RZOUT fails to write on disk ' IF(IRC.EQ. 74 ) MESS= + 'Error in RZRENK in updating key values for ' + //'partitioned data set ' IF(IRC.EQ. 76 ) MESS= + 'Cannot form the IO descriptor for the FZ header ' IF(IRC.EQ. 77 ) MESS= + 'FZOUT fails to write on the sequential journal ' + //'file ' IF(IRC.EQ. 78 ) MESS= + 'Illegal number of keys on data base/journal file ' IF(IRC.EQ. 79 ) MESS= + 'Top directory name illegal in the FZ file ' IF(IRC.EQ. 81 ) MESS= + 'Precision is not correctly given ' IF(IRC.EQ. 82 ) MESS= + 'Illegal Data Type ' IF(IRC.EQ. 83 ) MESS= + 'Data update but uncompreseed ' IF(IRC.EQ. 84 ) MESS= + 'The update structure has different number of ' + //'data words ' IF(IRC.EQ. 85 ) MESS= + 'No data in the structure ' IF(IRC.EQ. 86 ) MESS= + 'The update structure has different data type ' IF(IRC.EQ. 91 ) MESS= + 'Illegal Character Option ' IF(IRC.EQ. 92 ) MESS= + 'Nonstandard IO descriptor ' IF(IRC.EQ. 93 ) MESS= + 'Illegal time ' IF(IRC.EQ. 94 ) MESS= + 'Nonmatching NPAR"s in different UPCD banks ' IF(IRC.EQ. 95 ) MESS= + 'Description not found in the dictionary ' IF(IRC.EQ. 96 ) MESS= + 'RZCDIR fails to set to the current directory ' IF(IRC.EQ. 97 ) MESS= + 'No matching UPCD bank found ' IF(IRC.EQ. 98 ) MESS= + 'Invalid path name in Node bank ' IF(IRC.EQ. 99 ) MESS= + 'No space in memory for creating the bank ' IF(IRC.EQ. 111 ) MESS= + 'Illegal path name ' IF(IRC.EQ. 112 ) MESS= + 'No key or data for the path name ' IF(IRC.EQ. 113 ) MESS= + 'Illegal character option ' IF(IRC.EQ. 114 ) MESS= + 'Valid data object(s) in the Node/Key structure ' IF(IRC.EQ. 115 ) MESS= + 'Cannot form the IO descriptor for the FZ header ' IF(IRC.EQ. 116 ) MESS= + 'FZOUT fails to write on the sequential file ' IF(IRC.EQ. 131 ) MESS= + 'Illegal pathname (in key bank for CDLAST) ' IF(IRC.EQ. 132 ) MESS= + 'Illegal number of keys in the directory ' IF(IRC.EQ. 135 ) MESS= + 'Illgeal Top directory name ' IF(IRC.EQ. 136 ) MESS= + 'Illegal logical unit number ' IF(IRC.EQ. 140 ) MESS= + 'Illegal top directory name ' IF(IRC.EQ. 141 ) MESS= + 'Error in creating the DICTIONARY/HELP directory ' IF(IRC.EQ. 142 ) MESS= + 'Error in RZ in writing the dictionary object ' IF(IRC.EQ. 143 ) MESS= + 'Error in RZ in purging the dictionary directory ' IF(IRC.EQ. 144 ) MESS= + 'Dictionary directory cannot be loaded ' IF(IRC.EQ. 145 ) MESS= + 'Pathname already exists in the dictionary ' IF(IRC.EQ. 146 ) MESS= + 'Illegal path name ' IF(IRC.EQ. 147 ) MESS= + 'Dictionary directory not found in memory ' IF(IRC.EQ. 148 ) MESS= + 'FZOUT fails to write on the sequential file ' IF(IRC.EQ. 149 ) MESS= + 'Error in RZ for writing to the R.A. file ' IF(IRC.EQ. 150 ) MESS= + 'Illegal number of data words ' IF(IRC.EQ. 151 ) MESS= + 'No description of data elements for the given ' + //'path name exists in the data base ' IF(IRC.EQ. 152 ) MESS= + 'Illegal flag (IFLAG) ' IF(IRC.EQ. 153 ) MESS= + 'FZIN error for reading the data structure ' IF(IRC.EQ. 154 ) MESS= + 'Illegal alias name for a directory ' IF(IRC.EQ. 155 ) MESS= + 'No HELP directory inside the data base ' IF(IRC.EQ. 156 ) MESS= + 'No help information for this path stored yet ' IF(IRC.EQ. 171 ) MESS= + 'Illegal Path name ' IF(IRC.EQ. 172 ) MESS= + 'Cannot find the top directory for the path name ' IF(IRC.EQ. 173 ) MESS= + 'Error in RZ for reading the dictionary object ' IF(IRC.EQ. 174 ) MESS= + 'Error in FZOUT for saving the journal file ' IF(IRC.EQ. 175 ) MESS= + 'Error in RZ in writing the dictionary object ' IF(IRC.EQ. 176 ) MESS= + 'Error in RZ in purging the dictionary directory ' IF(IRC.EQ. 177 ) MESS= + 'Error in RZ in deleting the tree ' IF(IRC.EQ. 178 ) MESS= + 'Error in RZ in deleting Name/Help information ' IF(IRC.EQ. 191 ) MESS= + 'Illegal path name ' IF(IRC.EQ. 192 ) MESS= + 'Specified key elements do not match with any of ' + //'the existing set of keys ' IF(IRC.EQ. 194 ) MESS= + 'Cannot form the IO descriptor for the FZ header ' IF(IRC.EQ. 195 ) MESS= + 'FZOUT fails to write on the sequential journal ' + //'file ' IF(IRC.EQ. 196 ) MESS= + 'Error in RZRENK in updating key values ' + //'partitioned data set ' IF(IRC.EQ. 199 ) MESS= + 'Corrupted data ' IF(IRC.EQ. 211 ) MESS= + 'Illegal number of paths ' IF(IRC.EQ. 212 ) MESS= + 'Illegal path name ' IF(IRC.EQ. 213 ) MESS= + 'Conflicting top directory names ' IF(IRC.EQ. 221 ) MESS= + 'Error in CC_WRITELOCK for locking CLUSCOM (VAX); ' IF(IRC.EQ. 222 ) MESS= + 'Error in CC_RELEASE for releasing CLUSCOM (VAX) ' IF(IRC.EQ. 223 ) MESS= + 'Error in IC_SIGNAL for signalling the VAX Server ' IF(IRC.EQ. 225 ) MESS= + 'Error in sending spool file to the server (IBM ' + //'or APOLLO) ' IF(IRC.EQ. 301 ) MESS= + 'Illegal database prefix ' IF(IRC.EQ. 302 ) MESS= + 'Reserved database prefix ' IF(IRC.EQ. 311 ) MESS= + 'CDSERV variable not defined ' * END