-- $Source: /commtar/monoBANK/CICS_INTF/tctutil.ada,v $ -- $Revision: 1.1 $ $Date: 88/03/26 18:33:45 $ $Author: chris $ with CICS_Terminal_Control; use CICS_Terminal_Control; ---------------------------------------- package CICS_Terminal_Control_testing_utility ---------------------------------------- is ------------------- -- Field attributes ------------------- 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_brt : Attribute_character :=(Field_kind=>Unprotected_Alphanumeric, Intensity=>Bright_Pen_Detectable, Modified=>False); unprot_drk : 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_brt : Attribute_character := (Field_kind=>Unprotected_Numeric, Intensity=>Bright_Pen_Detectable, Modified=>False); num_drk : 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_brt : Attribute_character :=(Field_kind=>Protected_Autoskip, Intensity=>Bright_Pen_Detectable, Modified=>False); askip_drk : 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_brt : Attribute_character :=(Field_kind=>Protected_Noskip, Intensity=>Bright_Pen_Detectable, Modified=>False); prot_drk : Attribute_character :=(Field_kind=>Protected_Noskip, Intensity=>Invisible, Modified=>False); unprot_pen_fset : Attribute_character := (Field_kind=>Unprotected_Alphanumeric, Intensity=>Normal_Pen_Detectable, Modified=>True); unprot_fset : Attribute_character := (Field_kind=>Unprotected_Alphanumeric, Intensity=>Normal_Not_Pen_Detectable, Modified=>True); unprot_brt_fset : Attribute_character :=(Field_kind=>Unprotected_Alphanumeric, Intensity=>Bright_Pen_Detectable, Modified=>True); unprot_drk_fset : Attribute_character :=(Field_kind=>Unprotected_Alphanumeric, Intensity=>Invisible, Modified=>True); num_pen_fset : Attribute_character := (Field_kind=>Unprotected_Numeric, Intensity=>Normal_Pen_Detectable, Modified=>True); num_fset : Attribute_character := (Field_kind=>Unprotected_Numeric, Intensity=>Normal_Not_Pen_Detectable, Modified=>True); num_brt_fset : Attribute_character := (Field_kind=>Unprotected_Numeric, Intensity=>Bright_Pen_Detectable, Modified=>True); num_drk_fset : Attribute_character := (Field_kind=>Unprotected_Numeric, Intensity=>Invisible, Modified=>True); askip_pen_fset : Attribute_character := (Field_kind=>Protected_Autoskip, Intensity=>Normal_Pen_Detectable, Modified=>True); askip_fset : Attribute_character := (Field_kind=>Protected_Autoskip, Intensity=>Normal_Not_Pen_Detectable, Modified=>True); askip_brt_fset : Attribute_character :=(Field_kind=>Protected_Autoskip, Intensity=>Bright_Pen_Detectable, Modified=>True); askip_drk_fset : Attribute_character :=(Field_kind=>Protected_Autoskip, Intensity=>Invisible, Modified=>True); prot_pen_fset : Attribute_character := (Field_kind=>Protected_Noskip, Intensity=>Normal_Pen_Detectable, Modified=>True); prot_fset : Attribute_character := (Field_kind=>Protected_Noskip, Intensity=>Normal_Not_Pen_Detectable, Modified=>True); prot_brt_fset : Attribute_character :=(Field_kind=>Protected_Noskip, Intensity=>Bright_Pen_Detectable, Modified=>True); prot_drk_fset : Attribute_character :=(Field_kind=>Protected_Noskip, Intensity=>Invisible, Modified=>True); --------------- -- Test Message --------------- CR : constant character := Ascii.CR; type Array_of_strings is array (integer range <>) of string(1..264); msg1 : string(1..264) := "Semaphores have some disadvantages for use in high-level- " & "language programming of tasks:(1) a task can wait for only " & "one semaphore at a time, but often it is desirable to allow " & "a task to wait for several signals" & " "; Msg2 : string(1..264) := "(2) if the task fails to signal at the appropriate point " & "(e.g., because of a coding error), the entire system of " & "tasks may deadlock-- that is the tasks may each be waiting " & "in a semaphore queue for some other task to signal, so that " & "not task remains executing, and "; Msg3 : string(1..264) := "(3) programs involving several tasks and semaphores become " & "increasingly difficult to understand, debug, and verify. In " & "essence, the semaphore is a relatively low_level " & "synchronization construct that is adequate primarily in " & "simple situations." & " "; Msg : constant Array_of_strings (1..3) := (1=> Msg1, 2=> Msg2, 3=> Msg3); -- -- Maps should leave three lines at top of screen for test messages -- -- ---- -- MAIL -- ---- -- -- -- series name: cics testing string -- message id: 10 integer -- (response to: 9 integer in file) -- date: 01/11/88 string -- from: cics_mct string -- to: cics_cg string -- subj: terminal control string -- message: @file name or actual text string -- Status: enter message, return to sender, address unknown string -- Response id: 9 integer -- Response: @file name or actual text string -- ----------------------- package Send_screen_pkg ----------------------- is -- terminal data for map= "Mail.Send" type Field_enum is (Series_name, To, Subj, Message, Status); type Field_lens is array(Field_enum) of integer; package Send_screen is new Terminal_data_pkg (Field_enum, Field_lens, (Series_name=>40, To=>10, Subj=>40, Message=>120, Status=>40)); end; --------------------------- package Respond_screen_pkg --------------------------- is -- terminal data for map= "Mail.Respond" type Field_enum is (Series_name, To, Subj, Message, Response, Status); type Field_lens is array(Field_enum) of integer; package Respond_screen is new Terminal_data_pkg (Field_enum, Field_lens, (Series_name=>40, To=>10, Subj=>40, Message=>120, Response=>120, Status=>40)); end; --------------------------- package View_screen_pkg --------------------------- is -- terminal data for map= "Mail.View" type Field_enum is (Series_name, Message_id, Date, From, To, Subj, Message, Response_id, Response); type Field_lens is array(Field_enum) of integer; package View_screen is new Terminal_data_pkg (Field_enum, Field_lens, (Series_name=>40, Message_id=>4, Date=>8, From=>10, To=>10, Subj=>40, Message=>120, Response_id=>4, Response=>120)); end; ----------------------- package Null_screen_pkg ----------------------- is -- terminal data for map= "Mail.Null" type Field_enum is (Null_field); type Field_lens is array(Field_enum) of integer; package Null_screen is new Terminal_data_pkg (Field_enum, Field_lens, (Null_field=>0)); end; --------------------------- package Toolong_screen_pkg --------------------------- is -- terminal data for map= "Mail.Toolong" type Field_enum is (Toolong_field); type Field_lens is array(Field_enum) of integer; package Toolong_screen is new Terminal_data_pkg (Field_enum, Field_lens, (Toolong_field=>10000)); end; package SS_pkg renames Send_screen_pkg; package RS_pkg renames Respond_screen_pkg; package VS_pkg renames View_screen_pkg; package NS_pkg renames Null_screen_pkg; package TS_pkg renames Toolong_screen_pkg; package SS renames Send_screen_pkg.Send_screen; package RS renames Respond_screen_pkg.Respond_screen; package VS renames View_screen_pkg.View_screen; package NS renames Null_screen_pkg.Null_screen; package TS renames Toolong_screen_pkg.Toolong_screen; Mail_send : constant string := "Send"; Mail_respond : constant string := "Respond"; Mail_view : constant string := "View"; Mail_null : constant string := "Null"; Mail_Toolong : constant string := "Toolong"; Mail : constant string := "Mail"; end CICS_Terminal_Control_testing_utility;