-- $Source: /commtar/monoBANK/CICS_INTF/exc.dat,v $ 
-- $Revision: 1.5 $ $Date: 88/03/31 14:42:49 $ $Author: chris $
with RTS_CICS_Exceptions; use RTS_CICS_Exceptions;
package CICS_Exceptions is

   -- Terminal Control Exceptions

   Invalid_Request : exception renames INVREQ;
	-- raised when the command is invalid.
   IG_ReqId : exception renames IGREQID;
	-- raised if the ReqId changes during a logical message.
   Return_Page : exception renames RETPAGE;
	-- raised if one or more pages are ready to output.
   Length_Error : exception renames LENGERR;
 	-- raised if the data is too big for the screen.
   Invalid_Map_Size : exception renames INVMPSZ;
	-- raised if the map is too big for the screen.
   Overflow : exception renames RTS_CICS_Exceptions.OVERFLOW;
	-- raised if more than one page is produced.
   MAPFAIL : exception renames RTS_CICS_Exceptions.MAPFAIL;
	-- raised if the map cannot be received.

   -- File Control Exceptions

   Not_Open : exception renames NOTOPEN;
	-- file is not open
   Not_Found : exception renames NOTFND;
	-- a record with the given key is not in file
   Duplicate_Key : exception renames DUPKEY;
 	-- two or more records with duplicate secondary keys are found
   Duplicate_Record : exception renames DUPREC;
	-- the key of the record to be added matches that of an existing record
   End_File : exception renames ENDFILE;
	-- end of file is reached when browsing
   Dataset_Id_Error : exception renames DSIDERR;
        -- invalid or non-existent data set.

   -- Task Control Exceptions"

   Enqueue_Busy : exception renames ENQBUSY;
	-- raised if the resource needed is not available.
   Program_Id_Error : exception renames PGMIDERR;
	-- raised if the Program_Name given to a command is invalid.
end CICS_Exceptions;
-- $Cprt start$
--  
-- Copyright (C) 1988 by Intermetrics, Inc. 
--  
--     This material may be used duplicated or disclosed by or for the 
-- U.S. Government pursuant to the copyright license under DAR clause 
-- 7-104.9(a) (May 1981). 
--  
--     This project was spnsored by the STARS Foundation 
--     Naval Research Laboratory, Washington DC 
--  
-- $Cprt end$