*DECK DB$ERRM 
          IDENT  DB$ERRM
  
          COMMENT    ERROR MESSAGE TEXTS
          DATA   10L  DB$ERRM 
*#
* *   DB$ERRM -- ERROR MESSAGE TEXTS             PAGE   1 
* *   C O GIMBER                                 2/5/76 
* *   W P CEAGLIO                                DATE  11/21/78 
* 
* DC  PURPOSE 
* 
*     THIS COMPASS ROUTINES DEFINES THE CDCS ERROR TESTS USED 
*     BY DB$ERR.
* 
* DC  HOW TO ADD AN ERROR.
* 
*     USE THE MSG MACRO DEFINED IN THIS ROUTINE.
*     LOCATION FIELD IS INTERNAL NUMBER IN DECIMAL FOR ERROR. 
*     1ST PARAMETER IS EXTERNAL ERROR NUMBER IN OCTAL.
*     2ND PARAMETER IS
*                      F FOR FATAL ERROR
*                        TQT AND RCB ARE DELETED
*                        MESSAGE LISTED ON CDCS OUTPUT FILE 
*                        IF EXTERNAL ERROR NUMBER THEN
*                          ERROR RETURNED TO UCP ERROR BUFFER 
*                          FATAL ERROR FLAG SET IN UCP REQUEST
*                        ELSE 
*                          ERROR DAYFILED ON UCP DAYFILE
*                          UCP ABORTED BY CDCS
*                      N FOR NON-FATAL ERROR
*                        ERROR WRITEEN TO CDCS OUTPUT FILE
*                        IF EXTERNAL ERROR NUMBER THEN
*                          ERROR RETURNED TO UCP ERROR BUFFER 
*                          NON-FATAL ERROR FLAG SET IN UCP REQUEST
*                          RCB DELETED (DB$ERR DOES NOT RETURN) 
*                        ELSE 
*                          ERROR WRITTEN TO UCP DAYFILE 
*                          NOTHING RETURNED TO UCP
*                      I FOR INFORMATIVE ERROR
*                        ERROR WRITTEN TO CDCS OUTPUT FILE
*                        IF NO EXTERNAL ERROR NUMBER THEN 
*                          ERROR WRITTEN TO UCP DAYFILE 
*                          DB$ERR DOES A NORMAL RETURN
*                      T FOR NON-FATAL ERROR NOT TO LIST ON CDCS OUTPUT.
*                        SAME AS N EXECPT MESSAGE NOT WRITTEN TO
*                        CDCS OUTPUT FILE.
*     3RD PARAMETER ENCLOSED IN PARENTHESIS IS THE ERROR TEXT.
*     TEXT CAN ONLY CONTAIN BALANCED PAIR OF PARENTHESIS. 
*     TEXT CANNOT CONTAIN UP ARROW (') BECAUSE THIS IS THE INSERTION
*       CHARACTER.
*     TEXT CANNOT CONTAIN QUOTE BECAUSE THIS IS MICRO SUBSTITUTION
*         CHARACTER.
*     THE ORDER OF THE MESSAGES IS NOT IMPORTANT. 
* 
* DC  HOW TO ADD AN INSERTION IN A MESSAGE. 
* 
*     INSESTIONS ARE MADE IN MESSAGES WHEN AN UP ARROW (') FOLLOWED 
*     BY A KEY CHARACTER IS ENCOUNTERED.  SEE DB$ERR LISTING FOR
*     THE DESCRIPTION OF THE INSERTION TYPES AND THE STRUCTURE OF 
*     OF THE TABLE GENERATED. 
* 
* DC  INFORMATION ON MESSAGES 
* 
*     1) ALL ERRORS WITH EXTERNAL ERROR NUMBERS EXCEPT TRIVIAL ERRORS 
*        ARE SENT TO THE USERS ZZZZZEG FILE.
*     2) ERRORS WITHOUT EXTERNAL ERROR NUMBERS ARE SENT TO THE
*        USERS DAYFILE. 
*     3) FATAL ERRORS DIRECTLY ABORT THE USERS CONTROL POINT. 
*        NON-FATAL ERRORS CAN CAUSE THE USER CONTROL POINT TO ABORT 
*        IF AN ON-ERROR EXCEPTION CLAUSE IS NOT SPECIFIED.
*     4) FATAL (F) AND NON-FATAL (N) ERRORS ARE ALSO LISTED 
*        ON THE CDCS OUTPUT FILE. 
* 
*#
          MACRO  MSG,NUM,NUMX,FF,M
PARM      MICRO  1,,#_M_# 
LEN       MICCNT PARM 
LENW      SET    LEN+9
LENW      SET    LENW/10
ERRFLAG   MICRO  1,,*0* 
          IFC    EQ,*FF*F*,1
ERRFLAG   MICRO  1,,*2210B* 
          IFC    EQ,*FF*N*,1
ERRFLAG   MICRO  1,,*2110B* 
          IFC    EQ,*FF*I*,1
ERRFLAG   MICRO  1,,*2010B* 
          IFC    EQ,*FF*T*,1
ERRFLAG   MICRO  1,,*2100B* 
          IFC    EQ,*"ERRFLAG"*0*,1 
          ERR    ERROR TYPE NOT SPECIFIED 
          ORG    *-1
          VFD    12/NUM,9/NUMX_B,12/"ERRFLAG",9/LEN-1,18/LENW+1 
          DIS    LENW,M 
+         VFD    60/0 
          ENDM
  
  
  
          ENTRY  DB$ERRM
  
          NOREF  LEN,LENW    SUPPRESS FROM SYMBOLIC REFERENCE TABLE 
DB$ERRM   VFD    60/0 
*                605,I,(SUBSYSTEM ERROR-ABSENT OR UNKNOWN)
*                627,I,(NULL OCCURRENCE FOR RELATION) 
*                632,I,(CONTROL BREAK FOR RELATION) 
1         MSG    611,F,(SCHEMA 'A NOT IN MASTER DIRECTORY.) 
2         MSG    641,F,(SUBSCHEMA 'B NOT IN MASTER DIRECTORY.)
3         MSG    642,F,(CDCS JOURNAL LOG FILES UNAVAILABLE, SCHEMA 'I.) 
4         MSG    643,F,(SCHEMA 'A NOT AVAILABLE.) 
5         MSG    644,F,(CDCS UNAVAILABLE--AN INVOKE IS NOT ALLOWED) 
6         MSG    645,F,(ILLEGAL AREA ORDINAL.)
7         MSG    646,F,(RESTART IDENTIFIER  'Q  ASSIGNED TO  ANOTHER CDC
,S RUN UNIT.) 
8         MSG    647,F,(PFM ERROR 'E ON AREA 'C 'N.)
9         MSG    650,F,(PFM ERROR 'E ON AREA 'C 'N INDEX FILE.) 
10        MSG    651,F,(AREA 'C 'N DOWN.) 
11        MSG    652,N,(AREA 'C 'N ALREADY OPEN.) 
*              MESSAGE 12 IS ISSUED AS N, F OR T SEVERITY, SEE DB$FTEX. 
12        MSG    653,N,(CRM ERROR 'D DURING 'J ON AREA 'C 'N.)
13        MSG    654,N,(AREA 'C 'N NOT OPEN.) 
14        MSG    0,F,(DATABASE STATUS BLOCK NOT IN FL.) 
15        MSG    655,F,(NO PROCEDURE LIBRARY SCHEMA 'I.)
16        MSG    600,F,(CHECKSUM MISMATCH SUBSCHEMA 'B.)
17        MSG    673,N,('J ABORT BY DBPROC 'F.) 
*         THIS ERROR IS SENT BY BEFORE/AFTER DBPROC 
18        MSG    674,F,(RUN UNIT ABORT DURING 'J BY DBPROC 'F.) 
19        MSG    661,F,(FDL ERROR 'G ON DBPROC 'F.) 
20        MSG    676,F,(BAD RETURN CODE FROM DBPROC 'F.)
21        MSG    663,N,(DEADLOCK ON AREA 'C 'N.)
22        MSG    664,N,(ILLEGAL REQUEST ON AREA 'C 'N, READ OR FILE LOCK
, REQUIRED BEFORE 'J.)
23        MSG    665,F,(PRIVACY BREACH ATTEMPT .) 
24        MSG    672,N,(BAD RECTYPE FROM DBPROC 'F.)
25        MSG    667,N,(BAD RECTYPE CODE VALUE.)
*         THIS ERROR IS BY ON-ERROR DBPROC
26        MSG    0,F,(674-RUN UNIT ABORT BY DBPROC 'F.) 
27        MSG    662,F,(ILLEGAL RECORD ORDINAL.)
28        MSG    0,I,(CDCS JOB ABORT OR ENDED BY SYSTEM.) 
29        MSG    0,F,(CDCS ILLEGAL REQUEST, NOT INVOKED.) 
30        MSG    0,F,(CDCS ILLEGAL REQUEST, DOUBLE INVOKE.) 
*  31     AVAILABLE 
*         NOTE THAT THE RUN-UNIT IS ABORTED BY THE CALLING PROGRAM
*         FOR THE FOLLOWING MESSAGE (INTERNAL NUMBER 32). 
32        MSG    0,F,(CDCS REQUEST NOT IN FL) 
33        MSG    671,F,(ILLEGAL RELATION ORDINAL.)
34        MSG    0,F,(CDCS ILLEGAL REQUEST, ILLEGAL FUNCTION CODE.) 
35        MSG    666,F,(ERROR IN RELATION DATA NAME DEFINITION.)
36        MSG    612,F,(RESTART ID 'Q DOES NOT MATCH ID PREVIOUSLY ASSIG
,NED BY CDCS.)
37        MSG    0,F,(WORKING STORAGE AREA IS NOT IN FL.) 
38        MSG    657,N,(INCORRECT RECORD TYPE DURING 'J, AREA 'C 'N.) 
39        MSG    660,N,(KEY MAPPING ERROR DURING 'J, AREA 'C 'N.) 
40        MSG    675,N,(RECORD MAPPING ERROR DURING 'J ON RECORD 'H.) 
41        MSG    670,N,(CANNOT CHANGE REC TYPE ON 'J, AREA 'C 'N.)
42        MSG    0,F,(KEY ADDRESS IS NOT IN FL.)
43        MSG    677,F,(DBPROC 'F NOT DEFINED FOR SCHEMA 'I.) 
44        MSG    637,F,(RUN ABORT, SCHEMA 'I DOWN.) 
45        MSG    604,N,(PF WAIT (ERROR 'E) ON AREA 'C 'N.)
46        MSG    604,N,(PF WAIT (ERROR 'E) ON AREA 'C 'N INDEX FILE.) 
47        MSG    0,F,(JOB UNKNOWN TO SYSTEM.) 
48        MSG    0,F,(RUN UNIT ABORT, CDCS CMM OVERFLOW.) 
49        MSG    0,I,(CDCS INVOKED BY 'M.)
50        MSG    0,I,(CDCS INTERFACE TERMINATED.) 
51        MSG    0,T,(CRM ERROR 'D ON AREA 'C 'N.)
52        MSG    601,N,(VIOLATION OF CONSTRAINT 'K ON 'J OF RECORD 'H.) 
53        MSG    602,N,(CRM ERROR 'D ON AREA 'C 'N IN CONSTRAINT PROCESS
,ING.)
54        MSG    640,F,(RUN ABORT, CDCS DOWN) 
55        MSG    603,N,(LOCKED RECORD/AREA--REQUEST NOT PROCESSED.) 
*  56     AVAILABLE 
*  57     AVAILABLE 
58        MSG    607,N,(AREA 'C 'N IS NOT OPEN FOR I-O, 'J IS NOT ALLOWE
,D.)
59        MSG    610,N,(FOR AREA 'C 'N, KEY OF PRIOR READ MUST MATCH KEY
, ON 'J.) 
60        MSG    0,F,(EXCEEDED LIMIT OF 'L LOCKS IN A TRANSACTION.) 
61        MSG    606,F,(VERSION 'P NOT IN SCHEMA 'I.) 
62        MSG    615,N,(LOCK MUST BE SET BEFORE READ ON AREA 'C 'N.)
63        MSG    616,F,(OUTSTANDING FATAL ERROR ON AREA 'C 'N.) 
64        MSG    613,F,(AREA 'C NOT CLOSED BEFORE VERSION CHANGE.)
65        MSG    617,F,(NO VERSION CURRENTLY ATTACHED.) 
66        MSG    620,F,(CDCS TRANSACTION UPDATE NOT IN EFFECT.) 
67        MSG    621,F,(CDCS TRANSACTION IDENTIFIER MUST BE NON-BLANK.) 
68        MSG    622,N,(MAXIMUM NUMBER OF CDCS BEGIN/COMMIT SEQUENCES EX
,CEEDED.) 
69        MSG    623,F,(NO OUTSTANDING CDCS BEGIN TRANSACTION REQUEST.) 
70        MSG    0,I,(CRM ERROR 'E ON CDCS RESTART IDENTIFIER FILE - SCH
,EMA 'I.) 
71        MSG    625,F,(REQUEST 'J NOT ALLOWED IN CDCS BEGIN/COMMIT SEQU
,ENCE.) 
72        MSG    626,F,(ILLEGAL AREA NAME.) 
73        MSG    630,F,(ILLEGAL LOCK MODE.) 
74        MSG    631,F,(NO CDCS RESTART IDENTIFIER FILE DEFINED.) 
75        MSG    633,N,(RESTART IDENTIFIER ALREADY ASSIGNED BY CDCS.) 
76        MSG    634,F,(MAXIMUM CDCS BEGIN/COMMIT UPDATE COUNT EXCEEDED.
,)
77        MSG    635,F,(SYSTEM FILE NOT AVAILABLE FOR SCHEMA 'A.) 
78        MSG    636,F,(AREA 'C 'N UNUSABLE DURING ROLLBACK.) 
79        MSG    656,F,(INSUFFICIENT MEMORY FOR ROLLBACK, SCHEMA 'I.) 
80        MSG    730,F,(CDCS TRANSACTION RECOVERY FILE I/O ERROR DURING 
,ROLLBACK, SCHEMA DOWN.)
*  81     AVAILABLE 
82        MSG    0,I,(CIO ERROR 'E ON CDCS JOURNAL LOG FILE - SCHEMA 'I.
,)
83        MSG    0,I,(CIO ERROR 'E ON CDCS TRANSACTION RECOVERY FILE - S
,CHEMA 'I.) 
84        MSG    732,F,(CDCS SYSTEM FILE I-O ERROR.)
85        MSG    0,I,(CIO ERROR 'E ON CDCS QUICK RECOVERY FILE - SCHEMA 
,'I.) 
86        MSG    0,I,(WAITING FOR A LOCK IN AREA 'C 'N, HELD BY 'Q.)
87        MSG    0,I,(OBTAINED LOCK.) 
88        MSG    0,I,(TERMINATE ENCOUNTERED BEFORE CDCS COMMIT OR DROP R
,EQUEST - DROP ASSUMED.)
89        MSG    0,I,(RUN-UNIT TERMINATED BEFORE CDCS COMMIT OR DROP REQ
,UEST - DROP ASSUMED.)
90        MSG    733,N,(INQUIRE TRANSACTION RESTART IDENTIFIER 'Q UNKNOW
,N TO CDCS.)
91        MSG    624,N,(RECORD TYPE NOT IN SUBSCHEMA.)
92        MSG    0,T,(READ PARITY OR BLOCK LENGTH ERROR ON AREA 'C 'N.) 
93        MSG    0,I,(SCHEMA 'A, SUBSCHEMA 'B.) 
94        MSG    0,I,('Q IS AREA 'C 'N.)
95        MSG    0,I,(PF WAIT ON SYSTEM FILE.)
*  96     AVAILABLE 
*  97     AVAILABLE 
*  98     AVAILABLE 
*  99     AVAILABLE 
* 100     AND BEYOND - AVAILABLE
* 101-120 RESERVED FOR USERS. 
* 
          END 
