/******************************************************** * 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 * ********************************************************/