-- $Source: /commtar/monoBANK/RTS/tKtypes.dat,v $ 
-- $Revision: 1.1 $ $Date: 88/01/19 13:36:44 $ $Author: callen $ 
package RTS_CICS_Data_Types_Pkg is

    --| Overview
    --|
    --| This package defines a number of common types that will be
    --| used throughout the CICS runtime system and interface packages.
    --|
    --| The suggested renaming for this package is DT.

    subtype Byte_Number is Integer range 0..255;
    subtype Halfword_Number is Integer range -2**15..2**15-1;

    type Byte_Array is array (positive range <>) of Byte_Number;
    -- pragma Pack (Byte_Array);
end RTS_CICS_Data_Types_Pkg;
-- $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$