I need to convert this FTP Folder routine to Cobol, can anyone help? Thank you!

            FtpWebRequest fwrr = (FtpWebRequest)FtpWebRequest.Create(new Uri("ftp://"   server   path));
            fwrr.Credentials = new NetworkCredential(user,pass);
            fwrr.Method = WebRequestMethods.Ftp.ListDirectory;  
            StreamReader srr = new StreamReader(fwrr.GetResponse().GetResponseStream());
            string str = srr.ReadLine();
            List<string> strList = new List<string>();
            while (str != null)
            {
                strList.Add(str);
                //strList.Add(string.Format("ftp://{0}/{1}/{2}",server,path,str));
                str = srr.ReadLine();
            }

            foreach (var item in strList)
            {
                Console.WriteLine(item.ToString());
            }
            Console.ReadLine();

I also need to download a file that is on ftp

This would translate to COBOL as something like the following:

           declare server path #user pass as string
           declare fwrr as type FtpWebRequest = type FtpWebRequest::Create(new type Uri("ftp://" & server & path)) as type FtpWebRequest
           set fwrr::Credentials = new NetworkCredential(#user, pass)
           set fwrr::Method to type WebRequestMethods Ftp::ListDirectory
           declare srr as type  StreamReader = new StreamReader(fwrr::GetResponse()::GetResponseStream())
           declare str as  string = srr::ReadLine
           declare strList as type  List[string]  = new type List[string]
           perform until str = null
              invoke strList::Add(str)
                *>strList.Add(string.Format("ftp://{0}/{1}/{2}",server,path,str));
              set str = srr::ReadLine
           end-perform
           perform varying item as string thru strList 
              invoke type Console::WriteLine(item::ToString)
           end-perform
           invoke type Console::ReadLine