-- $Source: /commtar/monoBANK/CICS_INTF/tc_c_3.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/26 18:33:35 $ $Author: chris $ 
with CICS_test_reporter; use CICS_test_reporter;
with CICS_Terminal_Control_testing_utility; use CICS_Terminal_Control_testing_utility;
with CICS_Exceptions; use CICS_exceptions;
with CICS_Terminal_Control; use CICS_Terminal_Control;
----------------
procedure tc_c_3
----------------
is
    Send_screen_data : SS.Terminal_data;
    Respond_screen_data : RS.Terminal_data;
    View_screen_data : VS.Terminal_data;
begin
Start_interactive_module("tc_c_3", "Exercise terminal data operations (esp. " &
    "settting field attributes) that effect the terminal screen");
     
Start_interactive_test("tc_c_3_a", "assign field values (not all) and " &
  " display them (all) as protected fields" );
    VS.Set_field(View_screen_data, VS_pkg.Series_name, "CICS Test Suite");
    VS.Set_field(View_screen_data, VS_Pkg.Message_id, integer'image(2));
    VS.Set_field(View_screen_data, VS_Pkg.Date, "01/01/88");
    VS.Set_field(View_screen_data, VS_Pkg.From, "CICS_CHRIS");
    VS.Set_field(View_screen_data, VS_Pkg.To, "CICS_MCT");
    VS.Set_field(View_screen_data, VS_Pkg.Subj, "Location of Ada interface");
    VS.Set_field(View_screen_data, VS_Pkg.Message,
      "The spec for the Ada Interface is in file [cics.chris.source]cics.spec");
    VS.Set_field(View_screen_data, VS_pkg.Response_id, integer'image(1));
    VS.Set_field(View_screen_data, VS_pkg.Response, "The specs look good");
    VS.Set_attribute(View_screen_data, VS_pkg.Series_name, prot);
    VS.Set_attribute(View_screen_data, VS_pkg.Message_id, prot);
    VS.Set_attribute(View_screen_data, VS_pkg.Date, prot);
    VS.Set_attribute(View_screen_data, VS_pkg.From, prot);
    VS.Set_attribute(View_screen_data, VS_pkg.To, prot);
    VS.Set_attribute(View_screen_data, VS_pkg.Subj, prot);
    VS.Set_attribute(View_screen_data, VS_pkg.Message, prot);
    VS.Set_attribute(View_screen_data, VS_pkg.Response_id, prot);
    VS.Set_attribute(View_screen_data, VS_pkg.Response, prot);
    VS.Send_map(Map=>Mail_view, Mapset=>Mail, From=>View_screen_data,
        Erase=>Screen);
End_interactive_test;
     
Start_interactive_test("tc_c_3_b", "assign field values (not all) and " &
    "display assigned fields as protected, unassigned fields as unprotected");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "CICS Test Suite");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, Unprot);
    SS.Set_field (Send_screen_data, SS_pkg.Status, "Enter Message");
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
End_interactive_test;
     
Start_interactive_test("tc_c_3_c", "highlight and unprotect each field " &
    "from top to bottom");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "CICS Test Suite");
    SS.Set_field(Send_screen_data, SS_pkg.To, "CICS_MCT");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "Terminal Control");
    SS.Set_field(Send_screen_data, SS_pkg.Message,
        "The Ada spec is in file [cics.chris.source]cics.spec");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "sent to CICS_MCT");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, Unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, Unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, Unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
End_interactive_test;
     
Start_interactive_test("tc_c_3_d", "darken and protect each field from top " &
    " to bottom");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_drk);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_drk);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_attribute(Send_screen_data, SS_pkg.To, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_drk);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_drk);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_drk);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
End_interactive_test;
     
Start_interactive_test("tc_c_3_e", "place cursor at and brighten each field " &
    "from top to bottom");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen, Cursor=>SS.Field_position(SS_pkg.Series_name));
     
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, Unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen, Cursor=>SS.Field_position(SS_pkg.To));
     
    SS.Set_attribute(Send_screen_data, SS_pkg.To, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen, Cursor=>SS.Field_position(SS_pkg.Subj));
     
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, Unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen, Cursor=>SS.Field_position(SS_pkg.Message));
     
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, Unprot);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, Unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen, Cursor=>SS.Field_position(SS_pkg.Status));
End_interactive_test;
End_interactive_module;
exception
    when Invalid_request => Unexpected_exception("Invalid_request");
    when IG_ReqId => Unexpected_exception("IG_RegId");
    when Return_page => Unexpected_exception("Return_page");
    when Length_Error => Unexpected_exception("Length_Error");
    when Invalid_map_size => Unexpected_exception("Invalid_map_size");
    when Overflow => Unexpected_exception("Overflow");
    when Mapfail => Unexpected_exception("Mapfail");
end;