Copy a ZIP file from the Internet and then read a member

filename dane url
'http://www.parkiet.com:80/dane/danesesji/bazytxt/akcje/zywiec.zip'
         proxy='http://slcpx01:8080';

filename zipcopy  "d:\temp\zywiec.zip";
filename zipfile  SASZIPAM "d:\temp\zywiec.zip";

data _null_;
   nbyte=-1;
   infile dane nbyte=nbyte recfm=s;
   input;
   file zipcopy recfm=n;
   put _infile_;
run;

data _null_;
   infile zipfile(ZYWIEC.txt);
   input;
   put _infile_;
   if _n_ > 10 then stop;
run;