-- $Source: /commtar/monoBANK/CICS_INTF/term_att.dat,v $ 
-- $Revision: 1.1 $ $Date: 88/03/07 18:14:31 $ $Author: chris $ 
with CICS_Terminal_Control; Use CICS_Terminal_Control;
---------------------------------
package Terminal_field_attributes
---------------------------------
is
   unprot_pen : Attribute_character := (Field_kind=>Unprotected_Alphanumeric,
        Intensity=>Normal_Pen_Detectable, Modified=>False);
   unprot : Attribute_character := (Field_kind=>Unprotected_Alphanumeric,
        Intensity=>Normal_Not_Pen_Detectable, Modified=>False);
   unprot_bright : Attribute_character :=(Field_kind=>Unprotected_Alphanumeric,
        Intensity=>Bright_Pen_Detectable, Modified=>False);
   unprot_dark : Attribute_character :=(Field_kind=>Unprotected_Alphanumeric,
        Intensity=>Invisible, Modified=>False);
     
   num_pen : Attribute_character := (Field_kind=>Unprotected_Numeric,
         Intensity=>Normal_Pen_Detectable, Modified=>False);
   num : Attribute_character := (Field_kind=>Unprotected_Numeric,
         Intensity=>Normal_Not_Pen_Detectable, Modified=>False);
   num_bright : Attribute_character := (Field_kind=>Unprotected_Numeric,
         Intensity=>Bright_Pen_Detectable, Modified=>False);
   num_dark : Attribute_character := (Field_kind=>Unprotected_Numeric,
         Intensity=>Invisible, Modified=>False);
     
   askip_pen : Attribute_character := (Field_kind=>Protected_Autoskip,
         Intensity=>Normal_Pen_Detectable, Modified=>False);
   askip : Attribute_character := (Field_kind=>Protected_Autoskip,
         Intensity=>Normal_Not_Pen_Detectable, Modified=>False);
   askip_bright : Attribute_character :=(Field_kind=>Protected_Autoskip,
        Intensity=>Bright_Pen_Detectable, Modified=>False);
   askip_dark : Attribute_character :=(Field_kind=>Protected_Autoskip,
        Intensity=>Invisible, Modified=>False);
     
   prot_pen : Attribute_character := (Field_kind=>Protected_Noskip,
         Intensity=>Normal_Pen_Detectable, Modified=>False);
   prot : Attribute_character := (Field_kind=>Protected_Noskip,
         Intensity=>Normal_Not_Pen_Detectable, Modified=>False);
   prot_bright : Attribute_character :=(Field_kind=>Protected_Noskip,
        Intensity=>Bright_Pen_Detectable, Modified=>False);
   prot_dark : Attribute_character :=(Field_kind=>Protected_Noskip,
        Intensity=>Invisible, Modified=>False);
     
   unprot_pen_mod : Attribute_character := (Field_kind=>Unprotected_Alphanumeric
,
        Intensity=>Normal_Pen_Detectable, Modified=>True);
   unprot_mod : Attribute_character := (Field_kind=>Unprotected_Alphanumeric,
        Intensity=>Normal_Not_Pen_Detectable, Modified=>True);
   unprot_bright_mod : Attribute_character
        :=(Field_kind=>Unprotected_Alphanumeric,
          Intensity=>Bright_Pen_Detectable, Modified=>True);
   unprot_dark_mod : Attribute_character
        :=(Field_kind=>Unprotected_Alphanumeric,
          Intensity=>Invisible, Modified=>True);
     
   num_pen_mod : Attribute_character := (Field_kind=>Unprotected_Numeric,
         Intensity=>Normal_Pen_Detectable, Modified=>True);
   num_mod : Attribute_character := (Field_kind=>Unprotected_Numeric,
         Intensity=>Normal_Not_Pen_Detectable, Modified=>True);
   num_bright_mod : Attribute_character := (Field_kind=>Unprotected_Numeric,
         Intensity=>Bright_Pen_Detectable, Modified=>True);
   num_dark_mod : Attribute_character := (Field_kind=>Unprotected_Numeric,
         Intensity=>Invisible, Modified=>True);
     
   askip_pen_mod : Attribute_character := (Field_kind=>Protected_Autoskip,
         Intensity=>Normal_Pen_Detectable, Modified=>True);
   askip_mod : Attribute_character := (Field_kind=>Protected_Autoskip,
         Intensity=>Normal_Not_Pen_Detectable, Modified=>True);
   askip_bright_mod : Attribute_character :=(Field_kind=>Protected_Autoskip,
        Intensity=>Bright_Pen_Detectable, Modified=>True);
   askip_dark_mod : Attribute_character :=(Field_kind=>Protected_Autoskip,
        Intensity=>Invisible, Modified=>True);
     
   prot_pen_mod : Attribute_character := (Field_kind=>Protected_Noskip,
         Intensity=>Normal_Pen_Detectable, Modified=>True);
   prot_mod : Attribute_character := (Field_kind=>Protected_Noskip,
         Intensity=>Normal_Not_Pen_Detectable, Modified=>True);
   prot_bright_mod : Attribute_character :=(Field_kind=>Protected_Noskip,
        Intensity=>Bright_Pen_Detectable, Modified=>True);
   prot_dark_mod : Attribute_character :=(Field_kind=>Protected_Noskip,
        Intensity=>Invisible, Modified=>True);
end;
     
-- $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$