*DECK DB$DADD 
          IDENT  DB$DADD
          ENTRY  DB$DADD
*#
* *   DB$DADD -- CALL DIAGNOSTIC MESSAGE MACRO   PAGE  1
* 
* DC  PURPOSE 
* 
*     THIS ROUTINE ISSUES A CALL TO THE DIAGNOSTIC MESSAGE MACRO, 
*     DIAGMSG.
* 
*  DC DESCRIPTION 
* 
*     THE DIAGMSG MACRO CALL HAS THE FOLLOWING FORM;
* 
*     DIAGMSG XXX,T,(MSG) 
* 
*     WHERE XXX IS THE DIAGNOSTIC NUMBER ( BETWEEN 100 AND 999 ), 
*           T   TELLS WHAT TO INSERT IN THE MESSAGE ( SEE DB$DIAG 
*               FOR POSSIBLE VALUES AND MEANINGS),
*           MSG IS THE DIAGNOSTIC MESSAGE TEXT. 
* 
* DC  ENTRY CONDITIONS
* 
*     NONE
* 
* DC  EXIT CONDITIONS 
* 
*     ALL MESSAGES ARE STORED IN MEMORY.
* 
* DC  ROUTINES CALLED 
* 
*     NONE
*#
 DIAGMSG  MACRO  NUM,TYP,TEXT 
          NOREF  A_NUM,C_NUM,T_NUM
          NOREF  LSTNUM 
 NUMTST   IFC    NE,**NUM*
 NUMTST   IFGE   NUM,100
 NUMTST   IFLE   NUM,999
 D_NUM     SET    NUM-LSTNUM-1
 NUMTST   IFPL   D_NUM        SEE IF NUMBER OUT OF ORDER OR EQUAL 
          RMT 
          DUP    D_NUM
          VFD    30/0 
          ENDD
          RMT 
 LSTNUM   SET    NUM
 MTEXT    MICRO  1,,$TEXT$
 C_NUM     MICCNT MTEXT 
 C_NUM     SET    C_NUM+10
 A_NUM     DATA   10H ***NUM*** 
C_NUM     SET    C_NUM+10 
          DATA   10H
          DATA   H$"MTEXT"$ 
 TSET     IFC    EQ,**TYP*
 T_NUM     SET    0 
 TSET     ELSE
 T_NUM     SET    TYP 
 TSET     ENDIF 
          RMT 
          VFD    4/T_NUM      TYPE OF MESSAGE NUM 
          VFD    8/C_NUM      CHAR COUNT FOR MESSAGE NUM
          VFD    18/A_NUM     ADDRESS OF TEXT FOR MESSAGE NUM 
          RMT 
          ELSE
          ERR                MSG NUM OUT OF RANGE, ORDER, OR = TO PRIOR 
          ENDIF              DONE WITH NUMBER CHECKING
          ENDM
 MESS     BSS    0
 LSTNUM   SET    99 
          DIAGMSG 101,0,(' IS AN INVALID SCHEMA NAME) 
          DIAGMSG 102,6,(MISSING PERIOD)
          DIAGMSG 103,6,(SCHEMA LFN WAS NOT SPECIFIED)
          DIAGMSG 104,2,(FIT -XN- DID NOT INDICATE INDEX FOR AREA - ' -)
          DIAGMSG 105,6,(AT LEAST ONE AREA MUST BE SPECIFIED FOR A SCHEM
,A) 
          DIAGMSG 106,0,(' IS AN INVALID AREA NAME) 
          DIAGMSG 107,6,(ALL REQUIRED PERMANENT FILE INFORMATION HAS NOT
, BEEN SPECIFIED) 
          DIAGMSG 108,2,(' WAS ALREADY SPECIFIED FOR THE CURRENT SCHEMA)
          DIAGMSG 109,6,(AT LEAST ONE SUBSCHEMA MUST BE SPECIFIED FOR A 
,SCHEMA)
          DIAGMSG 110,0,(' IS AN INVALID SUBSCHEMA NAME)
          DIAGMSG 111,6,(KEYWORD - FILE - IS MISSING) 
          DIAGMSG 112,6,(MAXIMUM NUMBER OF PASSWORDS EXCEEDED)
          DIAGMSG 113,6,(ILL FORMED MODIFY ADD OR DELETE HEADER)
          DIAGMSG 114,6,(KEYWORD - SCHEMA - IS MISSING) 
          DIAGMSG 115,2,(UNABLE TO FIND SCHEMA ' IN MD) 
          DIAGMSG 116,0,(' IS AN UNKNOWN SOURCE WORD IN THE MODIFY CLAUS
,E) 
          DIAGMSG 117,2,(UNABLE TO FIND SUBSCHEMA ' IN MASTER DIRECTORY)
          DIAGMSG 118,0,( ' IS AN INVALID SOURCE WORD IN ADD/DELETE CLAU
,SE)
          DIAGMSG 119,6,(ILL FORMED END MODS CLAUSE)
          DIAGMSG 120,1,(' IS AN INVALID LOGICAL FILE NAME) 
          DIAGMSG 121,6,(INVALID OR DUPLICATE CHARGE/ACCOUNT SPECIFIED) 
          DIAGMSG 122,1,(' IS AN INVALID PERMANENT FILE NAME OR IS INAPP
,ROPRIATE IN THE CONTEXT USED)
          DIAGMSG 123,1,(' IS AN INVALID ID/UN OR IS INAPPROPRIATE IN TH
,E CONTEXT USED)
          DIAGMSG 124,1,(' IS AN INVALID PASSWORD)
          DIAGMSG 125,0,(' IS IN ERROR IN THE LOG OPTIONS CLAUSE) 
          DIAGMSG 126,6,(NON-EXISTENT AREA NAME SPECIFIED)
          DIAGMSG 127,2,(CONSTRAINTS INCONSISTENT FOR VERSION -'-)
          DIAGMSG 128,2,(FIT -XN- INDICATES INDEX FOR AREA -'- BUT NO IN
,DEX INPUT TO MD FOR AREA)
          DIAGMSG 129,1,(' IS AN INVALID VERSION NAME)
          DIAGMSG 130,6,(VERSION NAME MASTER EXPECTED)
          DIAGMSG 131,2,(' IS THE SCHEMA NAME IN THE SCHEMA DIRECTORY)
          DIAGMSG 132,2,(' IS NOT A UNIQUE SCHEMA NAME) 
          DIAGMSG 133,1,(' IS A DUPLICATE VERSION NAME) 
          DIAGMSG 134,3,(' AREAS ARE IN SCHEMA, BUT MD INPUT DIFFERS) 
          DIAGMSG 135,6,(UNABLE TO OPEN SCHEMA FILE)
          DIAGMSG 136,6,(SCHEMA/SUBSCHEMA FILE IS NOT ATTACHED TO CP) 
          DIAGMSG 137,2,(' IS NOT A UNIQUE PFN/ID/PACK COMBINATION) 
          DIAGMSG 138,2,(NO TRANSACTION RECOVERY FILE WAS FOUND FOR SCHE
,MA -'-, CLAUSE INVALID)
          DIAGMSG 139,6,(SAME AS MASTER INVALID FOR AREA IN MASTER VERSI
,ON)
          DIAGMSG 140,2,(AREA ' AND SCHEMA ENTRY LOGGING INFO MISMATCH) 
          DIAGMSG 141,2,(UNABLE TO LOCATE AREA ' IN THE SCHEMA DIRECTORY
          DIAGMSG 142,1,(' IS AN INVALID SET/PACK/FAMILY NAME)
          DIAGMSG 143,1,(' IS AN INVALID VOLUME SERIAL NUMBER)
          DIAGMSG 144,2,(INDEX FILE ALREADY SPECIFIED FOR AREA -'-) 
          DIAGMSG 145,6,(NO PROCEDURES IN SCHEMA, LIB SHOULD NOT BE SPEC
,IFIED) 
          DIAGMSG 146,6,(PROCEDURES IN SCHEMA, LIB MUST BE SPECIFIED) 
          DIAGMSG 147,6,(INVALID TAPE TYPE SPECIFIED) 
          DIAGMSG 148,2,(SCHEMA ' HAS ALREADY APPEARED IN A MODIFY SCHEM
,A CLAUSE)
          DIAGMSG 149,6,(DUPLICATE CHANGE CLAUSE) 
          DIAGMSG 150,2,(OPTION NOT SPECIFIED FOR SCHEMA ', CHANGE CLAUS
,E INVALID) 
          DIAGMSG 151,6,(INVALID CHANGE OPTION) 
          DIAGMSG 152,2,(AREA ' HAS ALREADY APPEARED IN A CHANGE CLAUSE)
          DIAGMSG 153,2,(AREA ' DOES NOT HAVE AN INDEX FILE SPECIFIED, C
,HANGE IS INVALID)
          DIAGMSG 154,6,(ILLEGAL OPTION IN CHANGE AREA CLAUSE)
          DIAGMSG 155,6,(SETNAME WITHOUT VSN OR VSN WITHOUT SETNAME CLAU
,SE IS ILLEGAL) 
          DIAGMSG 156,6,(SCHEMA FILE CLAUSE NEEDED BEFORE ADD CLAUSE) 
          DIAGMSG 157,6,(KEYWORD -PFN- IS MISSING)
          DIAGMSG 158,6,(INVALID TRANSACTION UNIT LIMIT)
          DIAGMSG 159,6,(INVALID TRANSACTION UPDATE LIMIT)
          DIAGMSG 160,1,(' IS AN INVALID DEVICE TYPE) 
          DIAGMSG 161,6,(RESTART IDENTIFIER FILE CANNOT BE SELECTED WITH
,OUT TRANSACTION FILE)
          DIAGMSG 162,6,(JOURNAL/TRANSACTION PFN MUST BE 6 CHARACTERS)
          DIAGMSG 163,6,(NON-EXISTENT VERSION NAME SPECIFIED) 
          DIAGMSG 164,6,(MAXIMUM NUMBER OF VERSIONS EXCEEDED) 
          DIAGMSG 165,6,(INSUFFICIENT JOB CONTROL INFORMATION SPECIFIED)
          DIAGMSG 166,6,(INVALID DENSITY OPTION SPECIFIED)
          DIAGMSG 167,6,(INVALID TAPE/DENSITY COMBINATION)
          DIAGMSG 168,6,(DUPLICATE TAPE TYPE/DENSITY CLAUSE)
          DIAGMSG 169,6,(INVALID OR DUPLICATE JOB CONTROL USER NAME)
          DIAGMSG 170,6,(INVALID OR DUPLICATE JOB CONTROL FAMILY NAME)
          DIAGMSG 171,6,(INVALID OR DUPLICATE JOB CONTROL PASSWORD) 
          DIAGMSG 172,6,(BOTH TAPE & CCLPROC CLAUSES ARE SPECIFIED) 
          DIAGMSG 173,6,(INVALID ACCESS METHOD FOR CCLPROC) 
          DIAGMSG 174,6,(INVALID CCLPROC NAME)
          DIAGMSG 200,6,(NO INPUT FILE) 
          DIAGMSG 201,0,(INVALID OR MISSING KEYWORD - '.) 
          DIAGMSG 202,1,(' IS AN INVALID JOBNAME) 
          DIAGMSG 203,1,(' IS AN INVALID RUN-UNIT-ID) 
          DIAGMSG 204,1,(' IS AN INVALID TIME FIELD)
          DIAGMSG 205,1,(' IS AN INVALID RECOVERY POINT NUMBER) 
          DIAGMSG 207,2,(DUPLICATE KEYWORD - ') 
          DIAGMSG 209,6,(BEGIN/END TIMES OUT OF ORDER.) 
          DIAGMSG 210,1,(UNABLE TO FIND VERSION ' IN THE MASTER DIRECTOR
,Y) 
          DIAGMSG 211,1,(UNABLE TO FIND AREA ' IN THE MASTER DIRECTORY) 
          DIAGMSG 300,6,(KEYWORD -JOURNAL- IS MISSING)
          DIAGMSG 301,2,(SCHEMA ' WAS PREVIOUSLY SPECIFIED IN A SCHEMA C
,LAUSE) 
          DIAGMSG 302,6,(LOG FILE NAME MUST BE 7 CHARACTERS LONG) 
          DIAGMSG 303,6,(KEYWORD -SIZE- IS MISSING) 
          DIAGMSG 304,1,(' IS AN INVALID SIZE)
          DIAGMSG 305,6,(AT LEAST ONE FILE MUST BE SPECIFIED IN THE ALLO
,CATE ENTRY)
          DIAGMSG 306,6,(JOURNAL LOG FILE WAS PREVIOUSLY SPECIFIED) 
          DIAGMSG 307,6,(NO TRANSACTION RECOVERY FILE EXISTS FOR THE CUR
,RENT SCHEMA) 
          DIAGMSG 308,6,(INVALID TRANSACTION RECOVERY FILE NAME)
          DIAGMSG 309,6,(NO QUICK RECOVERY FILE EXISTS FOR THE CURRENT S
,CHEMA) 
          DIAGMSG 310,6,(INVALID QUICK RECOVERY FILE NAME)
          DIAGMSG 311,6,(NO RESTART IDENTIFIER FILE EXISTS FOR THE CURRE
,NT SCHEMA) 
          DIAGMSG 312,6,(INVALID RESTART IDENTIFIER FILE NAME)
          DIAGMSG 313,6,(NO JOURNAL LOG FILES EXIST FOR THE CURRENT SCHE
,MA)
          DIAGMSG 314,6,(INVALID JOURNAL LOG FILE NAME) 
          DIAGMSG 315,6,(LAST CHARACTER IN JOURNAL LOG FILE NAME MUST BE
, 1 OR 2) 
          DIAGMSG 316,6,(TRANSACTION RECOVERY FILE WAS PREVIOUSLY SPECIF
,IED) 
          DIAGMSG 317,6,(QUICK RECOVERY FILE WAS PREVIOUSLY SPECIFIED)
          DIAGMSG 318,6,(RESTART IDENTIFIER FILE WAS PREVIOUSLY SPECIFIE
,D) 
          DIAGMSG 319,6,(EMPTY INPUT FILE)
          DIAGMSG 320,6,(ILLEGAL FIRST WORD ON INPUT) 
          DIAGMSG 321,2,(NO DIRECTIVES WERE VALIDATED FOR SCHEMA ') 
          DIAGMSG 322,0,( ' IS AN INVALID SOURCE WORD OR INAPPROPRIATE I
,N THE CONTEXT USED)
          DIAGMSG 323,6,(TRANSACTION RECOVERY FILE NAME MUST BE 7 CHARAC
,TERS LONG) 
  
  
  
 DB$DADD  BSS    0
          HERE
          END 
