home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / mdbser.pli < prev    next >
Encoding:
Text File  |  1984-04-29  |  4.2 KB  |  158 lines
  1. /********************************************************
  2. *                   MDBS CALL INTERFACE            *
  3. *                            *
  4. *    THE FOLLOWING ARE THE CALL INTERFACE ROUTINES    *
  5. *  FOR THE PARTICULAR FUNCTIONS OF MDBS.  EACH ROUTINE  *
  6. *  INTERFACES TO THE COMMON ASSEMBLER ROUTINE 'MDBSCL'. *
  7. ********************************************************/
  8.  
  9.  
  10. /* * *  DISPLAY MDBS ERROR MESSAGE BASED ON RETURN CODE  * * */
  11. ERMDBS: PROC (RTNCOD);
  12.     DCL PUTERR ENTRY(CHAR(80) VARYING);
  13.     DCL RTNCOD BIN(7);    /* RETURN CODE FROM MDBS CALL */
  14.  
  15.     IF RTNCOD=-1 THEN
  16.        DO;
  17.           CALL PUTERR('*** END OF SET ***');
  18.           RETURN;
  19.        END;
  20.     GOTO MDBSER(RTNCOD);
  21.  
  22. MDBSER(01):
  23.     CALL PUTERR('*** DATA BASE NOT OPEN ***');
  24.     RETURN;
  25. MDBSER(02):
  26.     CALL PUTERR('*** INVALID SET-TYPE ***');
  27.         RETURN;
  28. MDBSER(03):
  29.     CALL PUTERR('*** INVALID RECORD-TYPE ***');
  30.     RETURN;
  31. MDBSER(04):
  32.     CALL PUTERR('*** INVALID ITEM-TYPE FOR THIS RECORD-TYPE ***');
  33.         RETURN;
  34. MDBSER(05):
  35.     CALL PUTERR('*** INVALID OWNER-TYPE FOR THIS SET-TYPE ***');
  36.     RETURN;
  37. MDBSER(06):
  38.     CALL PUTERR('*** INVALID MEMBER-TYPE FOR THIS SET-TYPE ***');
  39.         RETURN;
  40. MDBSER(07):
  41.     CALL PUTERR('*** INVALID DATA BASE KEY ***');
  42.     RETURN;
  43. MDBSER(08):
  44.     CALL PUTERR('*** NO CURRENT OWNER OF SET-TYPE ***');
  45.         RETURN;
  46. MDBSER(09):
  47.     CALL PUTERR('*** NO CURRENT MEMBER OF THIS SET-TYPE ***');
  48.     RETURN;
  49. MDBSER(10):
  50.     CALL PUTERR('*** NO CURRENT OF RECORD-TYPE ***');
  51.         RETURN;
  52. MDBSER(11):
  53.     CALL PUTERR('*** RECORD ALREADY MEMBER OF SET ***');
  54.     RETURN;
  55. MDBSER(12):
  56.     CALL PUTERR('*** RECORD NOT MEMBER OF SET ***');
  57.         RETURN;
  58. MDBSER(13):
  59.     CALL PUTERR('*** DEPENDING ON ITEM TOO LARGE OR NEGATIVE ***');
  60.     RETURN;
  61. MDBSER(14):
  62.     CALL PUTERR('*** DATA BASE ALREADY OPEN ***');
  63.         RETURN;
  64. MDBSER(15):
  65.     CALL PUTERR('*** DATA BASE NOT CLOSED PREVIOUSLY ***');
  66.     RETURN;
  67. MDBSER(16):
  68.     CALL PUTERR('*** NO CURRENT OF RUN UNIT ***');
  69.         RETURN;
  70. MDBSER(17):
  71.     CALL PUTERR('*** NO MORE SPACE IN DATA BASE ***');
  72.     RETURN;
  73. MDBSER(18):
  74.     CALL PUTERR('*** SET NOT SORTED ***');
  75.         RETURN;
  76. MDBSER(32):
  77.     CALL PUTERR('*** DATA BASE OPENED FOR READ ACCESS ONLY ***');
  78.     RETURN;
  79. MDBSER(33):
  80.     CALL PUTERR('*** RECORD SIZE TOO LARGE ***');
  81.         RETURN;
  82. MDBSER(36):
  83.     CALL PUTERR('*** IMPROPER PASSWORD ***');
  84.     RETURN;
  85. MDBSER(40):
  86.     CALL PUTERR('*** MAXIMUM VALUE OF DEPENDING ON ITEM IS 32767 ***');
  87.         RETURN;
  88. MDBSER(41):
  89.     CALL PUTERR('*** BINARY NUMBER TOO LARGE ***');
  90.     RETURN;
  91. MDBSER(89):
  92.     CALL PUTERR('*** VARIABLE LENGTH INCONSISTENCY ***');
  93.         RETURN;
  94. MDBSER(90):
  95.     CALL PUTERR('*** NO SUCH DMS ROUTINE ***');
  96.     RETURN;
  97. MDBSER(91):
  98.     CALL PUTERR('*** INSUFFICIENT ROOM IN MEMORY ***');
  99.         RETURN;
  100. MDBSER(92):
  101.     CALL PUTERR('*** INCORRECT NUMBER OF ARGUMENTS ***');
  102.     RETURN;
  103. MDBSER(93):
  104.     CALL PUTERR('*** DUPLICATE DATA-BLOCK NAME ***');
  105.         RETURN;
  106. MDBSER(94):
  107.     CALL PUTERR('*** BLOCK NAME NOT FOUND ***');
  108.     RETURN;
  109. MDBSER(95):
  110.     CALL PUTERR('*** INVALID DATA BLOCK NAME ***');
  111.         RETURN;
  112. MDBSER(96):
  113.     CALL PUTERR('*** INVALID NUMBER OF ARGUMENTS ***');
  114.     RETURN;
  115. MDBSER(97):
  116.     CALL PUTERR('*** CANNOT READ FROM DATA BASE FILES ***');
  117.         RETURN;
  118. MDBSER(99):
  119.     CALL PUTERR('*** CATASTROPHE ***');
  120.     RETURN;
  121. MDBSER(100):
  122.     CALL PUTERR('*** USER MAY NOT READ THIS RECORD ***');
  123.         RETURN;
  124. MDBSER(101):
  125.     CALL PUTERR('*** USER MAY NOT WRITE THIS RECORD ***');
  126.     RETURN;
  127. MDBSER(102):
  128.     CALL PUTERR('*** USER MAY NOT READ THIS ITEM ***');
  129.         RETURN;
  130. MDBSER(103):
  131.     CALL PUTERR('*** USER MAY NOT WRITE THIS ITEM ***');
  132.     RETURN;
  133. MDBSER(104):
  134.     CALL PUTERR('*** DISK IN WRONG DRIVE ***');
  135.         RETURN;
  136. MDBSER(105):
  137.     CALL PUTERR('*** DISK READ OR WRITE ERROR ***');
  138.     RETURN;
  139. MDBSER(106):
  140.     CALL PUTERR('*** CANNOT EXPAND FILE FOR NEW PAGE ***');
  141.         RETURN;
  142. MDBSER(107):
  143.     CALL PUTERR('*** FILE NOT PRESENT ***');
  144.     RETURN;
  145. MDBSER(108):
  146.     CALL PUTERR('*** USER MAY NOT READ THIS SET ***');
  147.         RETURN;
  148. MDBSER(109):
  149.     CALL PUTERR('*** USER MAY NOT WRITE THIS SET ***');
  150.     RETURN;
  151.  
  152.     END ERMDBS;
  153.  
  154.  
  155. /********************************************************
  156. *               END OF MDBS CALL INTERFACE        *
  157. ********************************************************/
  158.