*DECK DB$AREM 
          IDENT  DB$AREM
*#
* *   DB$AREM -- AUTO RECOVERY ERROR MESSAGE     PAGE  1
* *   A P WONG                                   DATE  04/02/81 
* 
* DC  PURPOSE 
* 
*     THIS COMPASS ROUTINES DEFINES THE CDCS ERROR TEXTS FOR
*     AUTO RECOVERY 
* 
* DC  ENTRY CONDITIONS
* 
*     THIS ROUTINE IS NOT ENTERED. IT IS ONLY REFERENCED AS A TABLE.
* 
* DC  EXIT CONDITIONS 
* 
*     NOT APPLICABLE. 
* 
* DC  CALLING ROUTINES
* 
*     DB$AREH                  AUTO RECOVERY ERROR HANDLER
* 
* DC  CALLED ROUTINES 
* 
*     NONE
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     THIS ROUTINE USES THE MSG MACRO TO DEFINE THE ERROR 
*     TEXTS FOR AUTO RECOVERY.
* 
*     NOTE - THE MACRO PUTS A ZERO WORD AFTER EACH ERROR MSG
*            AND THEN BACKUP ONE WORD BEFORE THE NEXT MSG.
* 
* D   HOW TO ADD AN ERROR 
* 
*     USE THE MSG MACRO DEFINED IN THIS ROUTINE 
*     (THIS IS A MODIFIED VERSION OF THE MACRO IN DB$ERRM)
*     LOCATION FIELD IS ERROR NUMBER IN DECIMAL.
*     1ST PARAMETER IS A FLAG INDICATING WHETHER SCHEMA NAME SHOULD 
*       BE PRINTED ON THE NEXT LINE AFTER THE ERROR TEXT IS PRINTED.
*       S -- SCHEMA NAME TO BE PRINTED. 
*       N -- SCHEMA NAME NOT TO BE PINTED.
*     2ND 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. 
* 
* D   HOW TO ADD AN INSERTION IN A MESSAGE
* 
*     INSERTIONS ARE MADE IN MESSAGES WHEN AN UP ARROW(') 
*     FOLLOWED BY A KEY CHARACTER IS ENCOUNTERED. SEE DB$AREH 
*     FOR THE DESCRIPTION OF THE INSERTION TYPES AND THE
*     STRUCTURE OF THE TABLE GENERATED. 
*#
          MACRO  MSG,NUM,SF,M 
PARM      MICRO  1,,#_M_# 
LEN       MICCNT PARM 
LENW      SET    LEN+9
LENW      SET    LENW/10
SCHFLAG   MICRO  1,,*0* 
          IFC    EQ,*SF*S*,1
SCHFLAG   MICRO  1,,*1* 
          ORG    *-1
          VFD    9/NUM,23/0,1/"SCHFLAG",9/LEN-1,18/LENW+1 
          DIS    LENW,M 
+         VFD    60/0 
          ENDM
          ENTRY  DB$AREM
DB$AREM   VFD    60/0 
1         MSG    N,('B ERROR 'C ON CDCS 'A.)
2         MSG    N,(CDCS 'A NOT AVAILABLE.) 
3         MSG    N,(SCHEMA ID MISMATCH ON CDCS 'A.) 
4         MSG    N,(THE CDCS 'A IS EMPTY - MUST BE ALLOCATED.)
5         MSG    N,(INVALID AREA IDENTIFIER 'D ON CDCS 'A.) 
6         MSG    S,('B ERROR 'C ON AREA 'D VERSION 'E - AREA DOWN.) 
7         MSG    N,(LAST RECOVERY POINT NOT FOUND.) 
8         MSG    N,(INVALID VERSION NAME 'E.) 
9         MSG    S,(AREA 'D VERSION 'E NOT UP.) 
10        MSG    N,(INSUFFICIENT MEMORY FOR CDCS 'B.) 
11        MSG    N,(ALL AREAS WERE DOWN, SCHEMA DOWN.)
12        MSG    N,(INVALID DATA ON CDCS 'A.) 
13        MSG    S,(SCHEMA NOT UP - CDCS TRANSACTION ROLLBACK NOT COMPLE
,TE.) 
          END 
