-- $Source: /commtar/monoBANK/CICS_INTF/tc_c_5.ada,v $ 
-- $Revision: 1.1 $ $Date: 88/03/26 18:33:37 $ $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_5
----------------
is
    Send_screen_data : SS.Terminal_data;
    Null_screen_data : NS.Terminal_data;
begin
Start_interactive_module("tc_c_5", "Receive data and manipulate field values");
     
Start_interactive_test("tc_c_5_a_1", "Send map and lock keyboard");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Map_only,
        Free_Keyboard=>False);
End_interactive_test;
     
Start_interactive_test("tc_c_5_a_2", "Send map and unlock keyboard");
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, Source=>Map_only,
        Free_Keyboard=>True);
End_interactive_test;
     
     
Start_interactive_test("tc_c_5_b", "Send and Receive default terminal data");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "Series_name");
    SS.Set_field(Send_screen_data, SS_pkg.To, "To");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "Subj");
    SS.Set_field(Send_screen_data, SS_pkg.Message, "Message");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "Status");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, prot_fset);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Receive_map(Map=>Mail_send, Mapset=>Mail, As_is=>True);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail);
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, " ");
    SS.Set_field(Send_screen_data, SS_pkg.To, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Message, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Status, " ");
    SS.Receive_map(Map=>Mail_send, Mapset=>Mail, Into=>Send_screen_data,
        As_is=>False);
     
    if SS.Field(Send_screen_data, SS_pkg.Series_name) = "Series_name" then
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.To) = "To" then
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Subj) = "Subj" then
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Message) = "Message" then
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Status) = "Status" then
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
End_interactive_test;
     
Start_interactive_test("tc_c_5_c_1", "Fields mark as modified are " &
    "read via Recive_map");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "Series_name");
    SS.Set_field(Send_screen_data, SS_pkg.To, "To");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "Subj");
    SS.Set_field(Send_screen_data, SS_pkg.Message, "Message");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "Status");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, prot_fset);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, " ");
    SS.Set_field(Send_screen_data, SS_pkg.To, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Message, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Status, " ");
    SS.Receive_map(Map=>Mail_send, Mapset=>Mail, Into=>Send_screen_data,
        As_is=>True);
     
    if SS.Field(Send_screen_data, SS_pkg.Series_name) = "Series_name" then
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.To) = "To" then
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Subj) = "Subj" then
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Message) = "Message" then
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Status) = "Status" then
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
End_interactive_test;
     
Start_interactive_test("tc_c_5_c_2", "Fields mark as unmodified are not " &
    "read via Recive_map unless the user enters data into them");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "Series_name");
    SS.Set_field(Send_screen_data, SS_pkg.To, "To");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "Subj");
    SS.Set_field(Send_screen_data, SS_pkg.Message, "Message");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "Status");
    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, prot);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, " ");
    SS.Set_field(Send_screen_data, SS_pkg.To, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Message, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Status, " ");
    SS.Receive_map(Map=>Mail_send, Mapset=>Mail, Into=>Send_screen_data,
        As_is=>True);
     
    if SS.Field(Send_screen_data, SS_pkg.Series_name) = " " then
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.To) = " " then
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Subj) = " " then
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Message) = " " then
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Status) = " " then
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
End_interactive_test;
     
Start_interactive_test("tc_c_5_d", "Values read via Receive_map are " &
    "capitalized when As_is is set to False");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "Series_name");
    SS.Set_field(Send_screen_data, SS_pkg.To, "To");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "Subj");
    SS.Set_field(Send_screen_data, SS_pkg.Message, "Message");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "Status");
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.To, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Subj, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Message, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Status, prot_fset);
    SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, prot_fset);
    SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
        Erase=>Screen);
     
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, " ");
    SS.Set_field(Send_screen_data, SS_pkg.To, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Message, " ");
    SS.Set_field(Send_screen_data, SS_pkg.Status, " ");
    SS.Receive_map(Map=>Mail_send, Mapset=>Mail, Into=>Send_screen_data,
        As_is=>False);
     
    if SS.Field(Send_screen_data, SS_pkg.Series_name) = "SERIES_NAME" then
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.To) = "TO" then
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Subj) = "SUBJ" then
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Message) = "MESSAGE" then
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Field(Send_screen_data, SS_pkg.Status) = "Status" then
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
End_interactive_test;
     
Start_interactive_test("tc_c_5_e", "Check lengths of terminal " &
    " fields as specified in instantiation of terminal data package");
    if SS.Length(SS_pkg.Series_name) = 40 then
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** Length=40 ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Series_name, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Series_name, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Length(SS_pkg.To) = 10 then
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.To, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.To, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Length(SS_pkg.Subj) = 40 then
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Subj, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Subj, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Length(SS_pkg.Message) = 120 then
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Message, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Message, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
     
    if SS.Length(SS_pkg.Status) = 40 then
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** OK ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
    else
        SS.Set_field(Send_screen_data, SS_pkg.Status, "*** FAIL ***");
        SS.Set_attribute(Send_screen_data, SS_pkg.Status, Prot_brt);
        SS.Send_map(Map=>Mail_send, Mapset=>Mail, From=>Send_screen_data,
            Erase=>Screen);
        Fail_test;
    end if;
End_interactive_test;
     
Start_interactive_test("tc_c_5_f_1", "Receive 0 length input by receiving " &
    "fields that are not modified and therefore not read");
    SS.Set_field(Send_screen_data, SS_pkg.Series_name, "");
    SS.Set_field(Send_screen_data, SS_pkg.To, "");
    SS.Set_field(Send_screen_data, SS_pkg.Subj, "");
    SS.Set_field(Send_screen_data, SS_pkg.Message, "");
    SS.Set_field(Send_screen_data, SS_pkg.Status, "");
    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.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);
End_interactive_test;
     
Start_interactive_test("tc_c_5_f_2", "Receive 0 length input by receiving " &
    "map that has no data entry fields");
     NS.Send_map(Map=>Mail_null, Mapset=>mail, From=>Null_screen_data,
        Erase=>Screen);
     NS.Receive_map(Map=>Mail_null, Mapset=>Mail, Into=>Null_screen_data);
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;