-- $Source: /commtar/monoBANK/RTS/tKcicsex.dat,v $ 
-- $Revision: 1.5 $ $Date: 88/03/15 14:39:35 $ $Author: callen $ 
package RTS_CICS_Exceptions is

    --| Here are all of the CICS conditions (exceptions) that can occur
    --| as a result of a CICS service request. After updating this file
    --| be sure to update the assembler code that converts CICS
    --| exceptions into Ada exceptions.
    
    pragma Link_Name (RTS_CICS_Exceptions, "#CICSEX");

    CBIDERR,
    DISABLED,
    DSIDERR,
    DSSTAT,
    DUPKEY,
    DUPREC,
    ENDDATA,
    ENDFILE,
    ENDINPT,
    ENQBUSY,
    ENVDEFERR,
    EOC,
    EODS,
    EOF,
    ERROR,
    EXPIRED,
    FUNCERR,
    IGREQCD,
    IGREQID,
    ILLOGIC,
    INBFMH,
    INVERRTERM,
    INVLDC,
    INVMPSZ,
    INVPARTN,
    INVPARTNSET,
    INVREQ,
    INVTSREQ,
    IOERR,
    ISCINVREQ,
    ITEMERR,
    JIDERR,
    LENGERR,
    MAPFAIL,
    NOJBUFSP,
    NONVAL,
    NOPASSBKRD,
    NOPASSBKWR,
    NOSPACE,
    NOSTART,
    NOSTG,
    NOTALLOC,
    NOTAUTH,
    NOTFND,
    NOTOPEN,
    OVERFLOW,
    PARTNFAIL,
    PGMIDERR,
    QBUSY,
    QIDERR,
    QZERO,
    RDATT,
    RETPAGE,
    ROLLEDBACK,
    RTEFAIL,
    RTESOME,
    SELNERR,
    SESSBUSY,
    SESSIONERR,
    SIGNAL,
    SYSBUSY,
    SYSIDERR,
    TERMERR,
    TERMIDERR,
    TRANSIDERR,
    TSIOERR,
    UNEXPIN,
    WRBRK:
      exception;

end RTS_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$