קטגוריה

תיאור

filename in 'path to files';
filename out zip 'filename of new zip file';
data _null_;
length fname mname $256 ;
infile in('*') filename=fname ;
input;
mname = scan(fname,-1,'/\');
file out MEMVAR=mname ;
put _infile_;
run;

במידה וישנה תקלה, ניתן להשתמש גם בקוד הבא ולקבל את רשימת הקבצים במקום:

filename indir '/home/u…/sasmacs2';
filename out zip '/home/u…/sasmacs2.zip';
data _null_;
    length fname mname $256 ;
    did=dopen('indir');
    putlog did=;
    do i=1 to dnum(did) ;
        mname=dread(did,i);
        if scan(mname,-1,'.')='sas' then do;
            n+1;
            putlog n= mname= ;
            fname=catx('/',pathname('indir'),mname);
            infile dummy filevar=fname end=eof;
            file out memvar=mname;
            do while (not eof);
                input ;
                put _infile_;
            end;
        end;
    end;
    did=dclose(did);
run