with Io;
with Make_Mvs_Tape;
with Directory_Tools;
package body Ibm_Tape_Utility is

    function Get_Name (R1000_Name : String) return String is
    begin
        Io.Put_Line (Directory_Tools.Naming.Part_Attribute (R1000_Name));
        return Directory_Tools.Naming.Simple_Name (R1000_Name);-- & Suffix;
    end Get_Name;

    procedure Truncate (Source, Dest : String) is
        Ada_File, Temp_File : Io.File_Type;
        Buffer : String (1 .. 80);
        Length : Natural := 0;
    begin
        Io.Open (Ada_File, Io.In_File, Source);
        Io.Create (Temp_File, Io.Out_File, Dest);

        while not Io.End_Of_File (Ada_File) loop
            Io.Get_Line (Ada_File, Buffer, Length);
            Io.Put_Line (Temp_File, Buffer (1 .. Length));
        end loop;
        Io.Close (Ada_File);
        Io.Close (Temp_File);
    end Truncate;

end Ibm_Tape_Utility;