-- $Source: /commtar/monoBANK/CICS_INTF/tc_c_6.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/26 18:33:38 $ $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_6
----------------
is
    View_screen_data : VS.Terminal_data;
    Respond_screen_data : RS.Terminal_data;
    Send_screen_data : SS.Terminal_data;
    Data : string(1..80);
begin
Start_interactive_module("tc_c_6", "Set up conversational modes of operations");
     
Start_interactive_test("tc_c_6_a", "Converse via converse command");
    Converse(From=>"This prompt was displayed via a converse command" & CR &
        "Please enter data (< 80 characters) that is to be redisplayed",
        Into=>Data);
    Converse(From=>"This is the redisplay of the entered data" & CR & Data,
        Into=>Data);
End_interactive_test;
     
Start_interactive_test("tc_c_6_b", "Converse via Send_map & Receive_map " & CR
    & "Please follow instructions displayed in Status field of upcoming maps");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "conversational mode");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_fset);
    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 To, Subj, Message");
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_fset);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Receive_map(Map=>Mail_send, Mapset=>Mail, Into=>Send_screen_data);
    SS.Set_field(Send_screen_data, SS_pkg.Status, "Message received by " &
        SS.Field(Send_screen_data, SS_pkg.To) );
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Source => Data_only);
     
    RS.Set_field(Respond_screen_data, RS_pkg.Series_name,
        SS.Field(Send_screen_data,SS_pkg.Series_name));
    RS.Set_field(Respond_screen_data, RS_pkg.To,
        SS.Field(Send_screen_data,SS_pkg.To));
    RS.Set_field(Respond_screen_data, RS_pkg.Subj,
        "re: " & SS.Field(Send_screen_data,SS_pkg.Subj));
    RS.Set_field (Respond_screen_data, RS_pkg.Message,
        SS.Field(Send_screen_data,SS_pkg.Message));
    RS.Set_field (Respond_screen_data, RS_pkg.Status,
        "Enter Response");
    RS.Set_attribute(Respond_screen_data, RS_pkg.Series_name, Prot_fset);
    RS.Set_attribute(Respond_screen_data, RS_pkg.To, Prot_fset);
    RS.Set_attribute(Respond_screen_data, RS_pkg.Subj, Prot_fset);
    RS.Set_attribute(Respond_screen_data, RS_pkg.Message, Prot_fset);
    RS.Set_attribute(Respond_screen_data, RS_pkg.Response, Unprot);
    RS.Set_attribute(Respond_screen_data, RS_pkg.Status, Prot_fset);
    RS.Send_map(Map=>Mail_respond, Mapset=>Mail, From=>Respond_screen_data,
        Erase=>Screen);
     
    RS.Receive_map(Map=>Mail_respond, Mapset=>Mail, Into=>Respond_screen_data);
    RS.Set_field(Respond_screen_data, RS_pkg.Status, "Message received by " &
        SS.Field(Send_screen_data, SS_pkg.To) );
    RS.Send_map(Map=>Mail_respond, Mapset=>Mail, From=>Respond_screen_data,
        Source => Data_only);
     
    VS.Set_field(View_screen_data, VS_pkg.Series_name,
        RS.Field(Respond_screen_data, RS_pkg.Series_name));
    VS.Set_field(View_screen_data, VS_Pkg.Message_id, integer'image(0101));
    VS.Set_field(View_screen_data, VS_Pkg.Date, "01/01/88");
    VS.Set_field(View_screen_data, VS_Pkg.From, "Me");
    VS.Set_field(View_screen_data, VS_Pkg.To,
        SS.Field(Send_screen_data, SS_pkg.To ));
    VS.Set_field(View_screen_data, VS_Pkg.Subj,
        RS.Field(Respond_screen_data, RS_pkg.Subj ));
    VS.Set_field(View_screen_data, VS_Pkg.Message,
        RS.Field(Respond_screen_data, RS_pkg.Message ));
    VS.Set_field(View_screen_data, VS_pkg.Response_id, integer'image(1010));
    VS.Set_field(View_screen_data, VS_pkg.Response,
        RS.Field(Respond_screen_data, RS_pkg.Response));
    VS.Set_attribute(View_screen_data, VS_pkg.Series_name, Prot_fset);
    VS.Set_attribute(View_screen_data, VS_pkg.Message_id, Prot_fset);
    VS.Set_attribute(View_screen_data, VS_pkg.Date, Prot_fset);
    VS.Set_attribute(View_screen_data, VS_pkg.From, Prot_fset);
    VS.Set_attribute(View_screen_data, VS_pkg.To, Prot_fset);
    VS.Set_attribute(View_screen_data, VS_pkg.Subj, Prot_fset);
    VS.Set_attribute(View_screen_data, VS_pkg.Message, Prot_fset);
    VS.Set_attribute(View_screen_data, VS_pkg.Response_id, Prot_fset);
    VS.Set_attribute(View_screen_data, VS_pkg.Response, Prot_fset);
    VS.Send_map(Map=>Mail_view, Mapset=>Mail, From=>View_screen_data,
        Erase=>Screen);
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;