-- $Source: /commtar/monoBANK/CICS_INTF/tc_c_4.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_4
----------------
is
    Send_screen_data : SS.Terminal_data;
begin
Start_interactive_module("tc_c_4", "Exercise send-erase sequences");
Start_interactive_test("tc_c_4_a", "Erase screen and display map only via " &
    "Send_map");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Map_only, Erase=>Screen);
End_interactive_test;
     
Start_interactive_test("tc_c_4_b", "Erase screen and display data only via " &
    "Send_map");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "**data only**");
    SS.Set_field(Send_screen_data, SS_pkg.To, "**data only**");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "**data only**");
    SS.Set_field(Send_screen_data, SS_pkg.Message, "**data only**");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "**data only**");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, unprot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, unprot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, unprot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, unprot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, unprot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, unprot_brt);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Data_only,
        Erase=>Screen);
End_interactive_test;
     
Start_interactive_test("tc_c_4_c", "Erase screen and display map and data " &
    "via Send_map");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, prot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, unprot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, prot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, unprot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, prot_brt);
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, unprot_brt);
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "protected");
    SS.Set_field(Send_screen_data, SS_pkg.To, "unprotected");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "protected");
    SS.Set_field(Send_screen_data, SS_pkg.Message, "unprotected");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "protected");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Merged, Erase=>Screen);
End_interactive_test;
     
Start_interactive_test("tc_c_4_d", "Erase unprotected data via " &
    "Erase_unprotected");
    Erase_unprotected;
End_interactive_test;
     
Start_interactive_test("tc_c_4_e", "Display data only in displayed map " &
    "(no erase) via Send_map");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "**unpro data only**");
    SS.Set_field(Send_screen_data, SS_pkg.To, "**pro data only**");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "**unpro data only**");
    SS.Set_field(Send_screen_data, SS_pkg.Message, "**pro data only**");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "**unpro data only**");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Data_only,
        Erase=>Nothing);
End_interactive_test;
     
Start_interactive_test("tc_c_4_f", "Display data only in displayed map " &
    "erasing unprotected field only via Send_map");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "**new unpro data **");
    SS.Set_field(Send_screen_data, SS_pkg.To, "**pro data only**");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "**new unpro data **");
    SS.Set_field(Send_screen_data, SS_pkg.Message, "**pro data only**");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "**new unpro data **");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Data_only,
        Erase => Unprotected);
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;