-- $Source: /commtar/monoBANK/CICS_INTF/tc_c_2.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/26 18:33:33 $ $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_2
----------------
is
begin
Start_interactive_module("tc_c_2", "send message to terimnal and printer");
Start_interactive_test("tc_c_2_a", "Send message to terminal via Send_map");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Map_only);
End_interactive_test;
     
Start_interactive_test("tc_c_2_b", "Send message to terminal and printer via " &
    "Send_map");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Map_only, Print=>True);
End_interactive_test;
     
Start_interactive_test("tc_c_2_c", "Send terminal screen to printer via " &
    " Print command");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Map_only);
    Print;
End_interactive_test;
     
Start_interactive_test("tc_c_2_d", "Send accumulated message to terminal " &
    "and printer via Send_text");
    Send_text(From=>Msg(1), Accum=>True, Print=>True, Nl_EOM=>True);
    Send_text(From=>Msg(2), Accum=>True, Print=>True);
    Send_text(From=>Msg(3), Accum=>True, Print=>True);
    Send_page(Control=>Release);
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;