/********************************************************
*                   MDBS CALL INTERFACE                 *
*                                                       *
*       THE FOLLOWING ARE THE CALL INTERFACE ROUTINES   *
*  FOR THE PARTICULAR FUNCTIONS OF MDBS.  EACH ROUTINE  *
*  INTERFACES TO THE COMMON ASSEMBLER ROUTINE 'MDBSCL'. *
********************************************************/


/* * *  DISPLAY MDBS ERROR MESSAGE BASED ON RETURN CODE  * * */
ERMDBS: PROC (RTNCOD);
       DCL PUTERR ENTRY(CHAR(80) VARYING);
       DCL RTNCOD BIN(7);      /* RETURN CODE FROM MDBS CALL */

       IF RTNCOD=-1 THEN
          DO;
             CALL PUTERR('*** END OF SET ***');
             RETURN;
          END;
       GOTO MDBSER(RTNCOD);

MDBSER(01):
       CALL PUTERR('*** DATA BASE NOT OPEN ***');
       RETURN;
MDBSER(02):
       CALL PUTERR('*** INVALID SET-TYPE ***');
       RETURN;
MDBSER(03):
       CALL PUTERR('*** INVALID RECORD-TYPE ***');
       RETURN;
MDBSER(04):
       CALL PUTERR('*** INVALID ITEM-TYPE FOR THIS RECORD-TYPE ***');
       RETURN;
MDBSER(05):
       CALL PUTERR('*** INVALID OWNER-TYPE FOR THIS SET-TYPE ***');
       RETURN;
MDBSER(06):
       CALL PUTERR('*** INVALID MEMBER-TYPE FOR THIS SET-TYPE ***');
       RETURN;
MDBSER(07):
       CALL PUTERR('*** INVALID DATA BASE KEY ***');
       RETURN;
MDBSER(08):
       CALL PUTERR('*** NO CURRENT OWNER OF SET-TYPE ***');
       RETURN;
MDBSER(09):
       CALL PUTERR('*** NO CURRENT MEMBER OF THIS SET-TYPE ***');
       RETURN;
MDBSER(10):
       CALL PUTERR('*** NO CURRENT OF RECORD-TYPE ***');
       RETURN;
MDBSER(11):
       CALL PUTERR('*** RECORD ALREADY MEMBER OF SET ***');
       RETURN;
MDBSER(12):
       CALL PUTERR('*** RECORD NOT MEMBER OF SET ***');
       RETURN;
MDBSER(13):
       CALL PUTERR('*** DEPENDING ON ITEM TOO LARGE OR NEGATIVE ***');
       RETURN;
MDBSER(14):
       CALL PUTERR('*** DATA BASE ALREADY OPEN ***');
       RETURN;
MDBSER(15):
       CALL PUTERR('*** DATA BASE NOT CLOSED PREVIOUSLY ***');
       RETURN;
MDBSER(16):
       CALL PUTERR('*** NO CURRENT OF RUN UNIT ***');
       RETURN;
MDBSER(17):
       CALL PUTERR('*** NO MORE SPACE IN DATA BASE ***');
       RETURN;
MDBSER(18):
       CALL PUTERR('*** SET NOT SORTED ***');
       RETURN;
MDBSER(32):
       CALL PUTERR('*** DATA BASE OPENED FOR READ ACCESS ONLY ***');
       RETURN;
MDBSER(33):
       CALL PUTERR('*** RECORD SIZE TOO LARGE ***');
       RETURN;
MDBSER(36):
       CALL PUTERR('*** IMPROPER PASSWORD ***');
       RETURN;
MDBSER(40):
       CALL PUTERR('*** MAXIMUM VALUE OF DEPENDING ON ITEM IS 32767 ***');
       RETURN;
MDBSER(41):
       CALL PUTERR('*** BINARY NUMBER TOO LARGE ***');
       RETURN;
MDBSER(89):
       CALL PUTERR('*** VARIABLE LENGTH INCONSISTENCY ***');
       RETURN;
MDBSER(90):
       CALL PUTERR('*** NO SUCH DMS ROUTINE ***');
       RETURN;
MDBSER(91):
       CALL PUTERR('*** INSUFFICIENT ROOM IN MEMORY ***');
       RETURN;
MDBSER(92):
       CALL PUTERR('*** INCORRECT NUMBER OF ARGUMENTS ***');
       RETURN;
MDBSER(93):
       CALL PUTERR('*** DUPLICATE DATA-BLOCK NAME ***');
       RETURN;
MDBSER(94):
       CALL PUTERR('*** BLOCK NAME NOT FOUND ***');
       RETURN;
MDBSER(95):
       CALL PUTERR('*** INVALID DATA BLOCK NAME ***');
       RETURN;
MDBSER(96):
       CALL PUTERR('*** INVALID NUMBER OF ARGUMENTS ***');
       RETURN;
MDBSER(97):
       CALL PUTERR('*** CANNOT READ FROM DATA BASE FILES ***');
       RETURN;
MDBSER(99):
       CALL PUTERR('*** CATASTROPHE ***');
       RETURN;
MDBSER(100):
       CALL PUTERR('*** USER MAY NOT READ THIS RECORD ***');
       RETURN;
MDBSER(101):
       CALL PUTERR('*** USER MAY NOT WRITE THIS RECORD ***');
       RETURN;
MDBSER(102):
       CALL PUTERR('*** USER MAY NOT READ THIS ITEM ***');
       RETURN;
MDBSER(103):
       CALL PUTERR('*** USER MAY NOT WRITE THIS ITEM ***');
       RETURN;
MDBSER(104):
       CALL PUTERR('*** DISK IN WRONG DRIVE ***');
       RETURN;
MDBSER(105):
       CALL PUTERR('*** DISK READ OR WRITE ERROR ***');
       RETURN;
MDBSER(106):
       CALL PUTERR('*** CANNOT EXPAND FILE FOR NEW PAGE ***');
       RETURN;
MDBSER(107):
       CALL PUTERR('*** FILE NOT PRESENT ***');
       RETURN;
MDBSER(108):
       CALL PUTERR('*** USER MAY NOT READ THIS SET ***');
       RETURN;
MDBSER(109):
       CALL PUTERR('*** USER MAY NOT WRITE THIS SET ***');
       RETURN;

       END ERMDBS;


/********************************************************
*               END OF MDBS CALL INTERFACE              *
********************************************************/