-- $Source: /commtar/monoBANK/CICS_INTF/tc_c_1.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/26 18:35:43 $ $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_1
----------------
is
    Hdr : constant string := "Page %%";
    Trl : constant string := "Trailer";
begin
Start_interactive_module("tc_c_1", "send message to paging buffer");
Start_interactive_test("tc_c_1_a", "accumulate message in paging buffer " &
    "via Send_text " & CR & "enter ""terminal operator paging transaction"" "
    & CR & "pages have trailers and page number headers ");
    Send_text(From=>Msg(1), Destination=>Paging_Buffer, Accum=>True,
        Header=>Hdr, Trailer=>Trl);
    Send_text(From=>Msg(2), Destination=>Paging_Buffer, Accum=>True,
        Header=>Hdr, Trailer=>Trl);
    Send_text(From=>Msg(3), Destination=>Paging_Buffer, Accum=>True,
        Header=>Hdr, Trailer=>Trl);
    Send_page(Control=>Release);
End_interactive_test;
     
Start_interactive_test("tc_c_1_b", "accumulate message in buffer via Send_map"
    & CR & "enter ""terminal operator paging transaction"" ");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Accum=>True,
        Destination=>Paging_buffer, Source=>Map_only, Req_id=>"Review_screens");
    RS.Send_map(Map=>Mail_respond, Mapset=>Mail, Accum=>True,
        Destination=>Paging_buffer, Source=>Map_only, Req_id=>"Review_screens");
    VS.Send_map(Map=>Mail_view, Mapset=>Mail, Accum=>True,
        Destination=>Paging_buffer, Source=>Map_only, Req_id=>"Review_screens");
    Send_page(Control=>Release);
End_interactive_test;
     
Start_interactive_test("tc_c_1_c", "page through buffers without operator " &
    "intervention via Send_page (autopage does not apply to 3270 terminals)");
    Send_text(From=>Msg(1), Destination=>Paging_Buffer, Accum=>True,
        Header=>Hdr, Trailer=>Trl);
    Send_text(From=>Msg(2), Destination=>Paging_Buffer, Accum=>True,
        Header=>Hdr, Trailer=>Trl);
    Send_text(From=>Msg(3), Destination=>Paging_Buffer, Accum=>True,
        Header=>Hdr, Trailer=>Trl);
    Send_page(Control=>Release, Paging=>Auto_page);
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;