Files in ftp folder

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
  • Verified Answer

    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