ASMB
      NAM DBMES,7 92069-16061 REV.1912 781221 
* 
* 
******************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
* NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
* TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
* WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
******************************************************************* 
* 
* 
*     SOURCE:    92069-18117
*     RELOC:     92069-16060
* 
* 
*****************************************************************:
* 
* 
* 
* 
*  DBMES RETURNS AN ERROR MESSAGE FOR ANY DBMS ERROR CODE.
*  THE ERROR MESSAGES ARE IN AN ARRAY, EACH ENTRY REQUIRES 20 WORDS.
* 
*  THE CALLING SEQUENCE FOR DBMES IS: 
* 
*    CALL DBMES(N,MESS,ISZ) 
* 
*  WHERE
* 
*    N
*    IS THE INDEX INTO THE MESSAGE TABLE.  THE DBMS ERROR CODE FOR EACH 
*    MESSAGE IS DOCUMENTED DIRECTLY BEFORE THE MESSAGE. 
* 
*    MESS 
*    IS A BUFFER OF AT LEAST 21 WORDS.  THE ERROR MESSAGE WILL BE RETURNED
*    IN THIS BUFFER.
* 
*    ISZ
*    IS AN INTEGER WHICH WILL CONTAIN THE SIZE OF THE MESSAGE IN WORDS. 
*    CURRENTLY THIS NUMBER IS ALWAYS 21.
* 
* 
**********************************************************************
* 
* 
      SKP 
* 
*  DBMES SUBROUTINE 
* 
*  BEGIN
* 
* 
      ENT DBMES 
      EXT .ENTR,.MVW
* 
      SUP PRESS EXTRANEOUS LISTINGS 
* 
* 
N     BSS 1 
MESS  BSS 1 
ISZ   BSS 1 
* 
DBMES NOP 
      JSB .ENTR     TRANSFER PARAMETERS.
       DEF N
* 
      LDA T21 
      STA ISZ,I 
* 
      CCA           ERROR MESSAGE 
      ADA N,I         ADDRESS = 
      MPY T21           20*(N-1). 
      ADA EADDR 
      LDB MESS
* 
      JSB .MVW      MOVE ERROR MESSAGE
       DEF T21        INTO CALLER'S BUFFER. 
       DEC 0
* 
      JMP DBMES,I   RETURN. 
* 
* 
T21   DEC 21
EADDR DEF ERTAB 
      SKP 
ERTAB EQU * 
*          100
      ASC 21, INVALID DATA SET NAME OR NUMBER.
*          101
      ASC 21, INVALID DATA ITEM NAME OR NUMBER. 
*          102
      ASC 21, INVALID OR MISSING SEARCH ITEM. 
*          103
      ASC 21, DATA BASE NOT OPENED. 
*          104
      ASC 21, OPEN MODE DOES NOT ALLOW THAT OPERATION.
*          105
      ASC 21, DETAIL DATA SET IS FULL.
*          106
      ASC 21, MASTER DATA SET IS FULL.
*          107
      ASC 21, NO MASTER ENTRY WITH KEY ITEM VALUE.
*          108
      ASC 21, REQUEST DIRECTED AT AN AUTOMATIC MASTER.
*          109
      ASC 21, ITEM NOT WRITE ENABLED. 
*          110
      ASC 21, A MASTER ENTRY WITH KEY VALUE EXISTS. 
*          111
      ASC 21, NO CURRENT CHAIN OR BAD RECORD NUMBER.
*          112
      ASC 21, CANNOT ALTER THE VALUE OF AN ITEM.
*          113
      ASC 21, ENTRY BEING DELETED HAS NON-EMPTY CHAINS. 
*          114
      ASC 21, RECORD IS EMPTY.
*          115
      ASC 21, INVALID MODE. 
*          116
      ASC 21, FILE SPECIFIED IS NOT A ROOT FILE.
*          117
      ASC 21, ILLEGAL SECURITY CODE.
*          118
      ASC 21, DATA SET IS NOT WRITE ENABLED.
*          119
      ASC 21, ROOT FILE CANNOT BE FOUND.
*          120
      ASC 21, DATA SET FOR OPERATION MUST BE A DETAIL.
*          121
      ASC 21, DETAIL DATA SET HAS NO PATHS. 
*          122
      ASC 21, CANNOT PERFORM A CHAIN READ.
*          123
      ASC 21, DATA SET FOR OPERATION MUST BE A MASTER.
*          124
      ASC 21, INVALID DBINF MODE. 
*          125
      ASC 21, BAD DATA SET OR DATA ITEM IN DBINF CALL.
*          128
      ASC 21, PARTITION IS TOO SMALL. 
*          129
      ASC 21, DATA BASE OPEN EXCLUSIVELY. 
*          131
      ASC 21, NO ROOM FOR DATA BASE ENTRY IN DBCOP. 
*          132
      ASC 21, NO RESURCE NUMBER AVAILABLE.
*          134
      ASC 21, DATA BASE NOT ENABLED FOR LOCKING.
*          135
      ASC 21, DATA BASE CANNOT BE CLOSED DUE TO LOCK. 
*          136
      ASC 21, DATA BASE ALREADY LOCKED TO ANOTHER USER. 
*          137
      ASC 21, DATA BASE RN IS BEING USED ILLEGALLY. 
*          140
      ASC 21, UNABLE TO SCHEDULE DBCOP. 
*          150
      ASC 21, DATA BASE ALREADY OPEN. 
*          152
      ASC 21, UNOBTAINABLE OPEN MODE. 
*          153
      ASC 21, DATA BASE INACCESSIBLE WITH THAT LEVEL. 
*          154
      ASC 21, DATA BASE CORRUPT - BAD CHAIN POINTER.
*          155
      ASC 21, BEGINNING OR END OF CHAIN ENCOUNTERED.
*          156
      ASC 21, DETAIL CHAIN IS EMPTY.
*          157
      ASC 21, NO CURRENT RECORD FOR OPERATION.
*          158
      ASC 21, DATA ITEM IS NOT PART OF GIVEN DATA SET.
*          159
      ASC 21, DATA BASE MUST BE LOCKED. 
*          160
      ASC 21, INTERNAL BUFFERS ARE CORRUPT. 
*          161
      ASC 21, INTERNAL DBCOP ERROR. 
*          162
      ASC 21, INTERNAL IMAGE CALL IS INVALID. 
      END 
                                                                                                                                                                                                