PROCEDURE p_xml_Transfer_Test
     (p_Local_File  IN VARCHAR2,
      p_uNix_File   IN VARCHAR2,
      p_Get_Put     IN VARCHAR2)
IS
  l_Local_File          Text_io.File_Type;
  l_uNix_File           utl_File.File_Type;
  l_Stripped_uNix_Name  VARCHAR2(300);
  l_Stripped_uNix_dir   VARCHAR2(1000);
  l_Line_Buffer         VARCHAR2(2000);
  Do_Nothing            EXCEPTION;
BEGIN
  l_Stripped_uNix_Name := Substr('/u/mstesttcs/abhi_test',Instr('/u/mstesttcs/abhi_test','/',- 1) + 1);
  l_Stripped_uNix_dir := Substr('/u/mstesttcs/abhi_test',1,Instr('/u/mstesttcs/abhi_test','/',- 1) - 1);
  
  IF p_Get_Put = 'GET' THEN
    l_uNix_File := utl_File.Fopen(l_Stripped_uNix_dir,l_Stripped_uNix_Name,
                                  'r');
    l_Local_File := Text_io.Fopen(p_Local_File,'w');
    
    BEGIN
      LOOP
        utl_File.Get_Line(l_uNix_File,l_Line_Buffer);
        Text_io.Put_Line(l_Local_File,l_Line_Buffer);
      END LOOP;
    EXCEPTION
      WHEN No_Data_Found THEN
        utl_File.fClose(l_uNix_File);
        Text_io.fClose(l_Local_File);
    END;
  ELSIF p_Get_Put = 'PUT' THEN
    l_Local_File := Text_io.Fopen(p_Local_File,'r');
    
    BEGIN
      l_uNix_File := utl_File.Fopen(l_Stripped_uNix_dir,l_Stripped_uNix_Name,
                                    'W');
    EXCEPTION
      WHEN OTHERS THEN
        Message('Unable to FTP file:'
                ||p_Local_File
                ||chr(10)
                ||'This file may already exists on server with read only permissions.');
        
        RAISE Do_Nothing;
    END;
    
    BEGIN
      LOOP
        Text_io.Get_Line(l_Local_File,l_Line_Buffer);
        utl_File.Put_Line(l_uNix_File,l_Line_Buffer);
      END LOOP;
    EXCEPTION
      WHEN No_Data_Found THEN
        utl_File.fClose(l_uNix_File);
        Text_io.fClose(l_Local_File);
      WHEN OTHERS THEN
        Message('Error at Stmt: '
                ||' Error:'
                ||SQLERRM);
    END;
  END IF;
EXCEPTION
  WHEN Do_Nothing THEN
    NULL;
  WHEN Value_Error THEN
    Message('The Line Size Exceeds Max Line Size');
    Message('The Line Size Exceeds Max Line Size');
    RAISE;
END;