Is there a way to get compressed file sizes of entries in zip archive using ZIP filename engine?

[RichardDeVen]

I can get a list of files in a zip archive using DOPEN and DREAD.  However, when I try to MOPEN or FOPEN a compressed file, in order to use FINFO(id,"File size (bytes)"), the sysmsg() is "ERROR: Function execution error". 

Question: Is there a way to get the compressed sizes of the items in the zip file when using the ZIP engine?

Example:

%let zipfile = c:\temp\ziptest\transp\archive1.zip;

data members(keep=filename label='Entries in the zip archive');
  length fref $8 filename $1000;

  rc = filename(fref,symget('zipfile'),'ZIP');
  msg = sysmsg();

  if rc ^= 0 then put msg;
  if rc = 0;

  did = dopen(fref);
  msg = sysmsg();

  if did = 0 then put msg;

  if did then 
    do index = 1 to dnum(did);
      filename = dread(did,index);
      output;
    end;
run;

And then this step shows "ERROR: Function execution error"

data _null_;
  set members;
  length fref_source $8 msg $200;
  rc1 = filename (fref_source, "&zipfile", "ZIP", "member=" || quote(trim(filename)) || " recfm=N lrecl=65536");
  put 'NOTE: ' rc1= fref_source=;

  fid = fopen(fref_source);
  msg=sysmsg();
  put 'NOTE: FOPEN() ' fid= / msg;

  if fid then do;
    fsize_source = input(finfo(fid,'FILE SIZE (BYTES)'),best.);
    fid = fclose(fid);
  end;
  put fsize_source=;

  if rc1 = 0 then rc = filename (fref_source);
run;

[ChrisHemedinger · Accepted solution]

You can use FINFO with some special attributes to get the info. See this article for an example. Here's a snippet:

fId = fopen("&f","S");
if fID then
  do;
   infonum=foptnum(fid);
     do i=1 to infonum;
      infoname=foptname(fid,i);
      select (infoname);
       when ('Filename') filename=finfo(fid,infoname);
       when ('Member Name') membername=finfo(fid,infoname);
       when ('Size') filesize=input(finfo(fid,infoname),15.);
       when ('Compressed Size') compressedsize=input(finfo(fid,infoname),15.);
       when ('CRC-32') crc32=finfo(fid,infoname);
       when ('Date/Time') filetime=input(finfo(fid,infoname),anydtdtm.);
      end;    
   end;
 compressedratio = compressedsize / filesize;
 output;
 fId = fClose( fId );