this is one way I do some zipping
%macro zipit;
ods package(zip) open nopf;
proc sql;
create table sasds as
select *
from dictionary.tables
where libname = 'WORK';
quit;
option nonotes;
%do %while (&sysnobs > 0);
data sasds;
set sasds;
if _N_ = 1 then call symputx('FN',memname);
else output;
run;
%put Archive %sysfunc(PATHNAME(mysas))\&fn..sas7bdat;
ods package(zip) add file="%sysfunc(PATHNAME(WORK))\&fn..sas7bdat";
%end;
option notes;
ods package(zip)
publish archive
properties (archive_name = "WORK.zip"
archive_path = "\\&mypath.");
ods package(zip) close;
%mend zipit;
%zipit;
... View more
