-- $Source: /commtar/monoBANK/CICS_INTF/sel_menu.dat,v $ 
-- $Revision: 1.5 $ $Date: 88/05/16 13:16:51 $ $Author: chris $ 
     
	 
with CICS_Terminal_control; use CICS_Terminal_Control;
--------------------------
package Selection_menu_pkg
--------------------------
is
    type Field_enum is (
	Menut, Trans1, Trans2, Trans3, Trans4, Trans5, Trans6,
	Trans7, Trans8, Stam1, Stam2, Stam3, Stam4, Stam5, Stam6,
	Stam7, Stam8, Stam9, Stam10, Deii, Dqry, Updt, Notused,
	Selection, Userid, Userout, Errmsg);
     
    type Field_lens is array(Field_enum) of integer;
    package Selection_menu is new Terminal_data_pkg(
      Field_enum, Field_Lens,
      (1, 4, 4, 4, 4, 4, 4, 4, 4, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
       4, 4, 4, 4, 2, 8, 8, 65));
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$