Hi All,
Is there any syntax without using X Copy to move files from 1 drive to another? Due to security reason IT security advised me not to use windows based command ( X copy). I have a new requirement now where in I have to transfer over 100 different formatted files (rtf,xls,txt,csv) in 1 go from 1 drive to another.
I did google search and got this code, this code is creating copies in same folder by adding _new to the original file names.
Not sure how to amend this code to dump all the files to in to another drive.
let source=P:\Projects\Submissions\DEET18;
%macro directorylisting
( path = , outdsn = dirlist , where = , after = 01Jan1960 ) ;
data &outdsn. ( keep = filename fullfilename created modified bytes ) ;
attrib
dref length = $8
fref length = $8
folder length = $256
filename length = $128 label = 'Filename'
fullfilename length = $256 label = 'Full Filename'
created length = 8 label = 'Created' format = datetime19.
modified length = 8 label = 'Modified' format = datetime19.
bytes length = 8 label = 'Bytes' format = comma15. ;
if fileexist( "&path." ) then do ;
folder = ifc( substr( "&path.", lengthn( "&path." ), 1 ) = "\"
, "&path.", cats( "&path.", "\" ) ) ;
rc = filename( dref, folder );
did = dopen( dref ) ;
dcount = dnum( did ) ;
do i = 1 to dcount ;
filename = dread( did, i ) ;
if find( filename, "&where.", 'i' ) > 0 then do ;
fullfilename = cats( folder, filename ) ;
rc = filename( fref, fullfilename ) ;
fid = fopen( fref ) ;
modified = input( finfo( fid, 'Last Modified' ), anydtdtm. ) ;
if datepart( modified ) >= "&after."d then do ;
created = input( finfo( fid, 'Create Time' ), anydtdtm. ) ;
bytes = input( finfo( fid, 'File Size (bytes)' ), 18. ) ;
output ;
end ;
fid = fclose( fid ) ;
rc = filename( fref, '' ) ;
end ;
end ;
did = dclose( did ) ;
rc = filename( dref, '' ) ;
end ;
else put "ERROR: The folder &path. does not exist." ;
run ;
%mend ;
%directorylisting(path=&source);
%macro aa;
data _null_;
set dirlist;
pos1=index(filename,'.');
fname1="&source"||'\'||filename;
new_fname="&source"||'\'||substr(filename,1,pos1-1)||'_new'||substr(filename,pos1);
call symput('file'||strip(_n_), '"'||strip(fname1)||'"');
call symput('new_file'||strip(_n_),'"'||strip(new_fname)||'"');
call symput('cnt1',_n_);
run;
%do ii = 1 %to &cnt1;
%put &&file&ii=;
%put &&new_file&ii=;
/* these IN and OUT filerefs can point to anything */
filename in &&fileⅈ
filename out &&new_fileⅈ
/* copy the file byte-for-byte */
data _null_;
length filein 8 fileid 8;
filein = fopen('in','I',1,'B');
fileid = fopen('out','O',1,'B');
rec = '20'x;
do while(fread(filein)=0);
rc = fget(filein,rec,1);
rc = fput(fileid, rec);
rc =fwrite(fileid);
end;
rc = fclose(filein);
rc = fclose(fileid);
run;
filename in clear;
filename out clear;
%mend;
%mend aa;
%aa;
Your help is much appreciated.
xcopy is part of the Windows operating system. If you don't trust it, get rid of Windows altogether.
Your so-called "security guys" seem to belong to the kind of people that Torvalds ranted about quite recently: https://plus.google.com/+LinusTorvalds/posts/PeFp4zYWY46
Hi,
I tried my best to educate them, but its of no use. only option left for me now is to amend it.
Well, if they only let you have a pocketknife instead of a spanner to change the wheels, let them do it and have all the fun.
It's my favorite method of disarming know-nothing loudmouth idiots: "If you know better, then show me!"
I really relish the ensuing sound of silence, and the sheepish looks.
Another question: do you have to do it in SAS?
Usually, such tasks should be handled by central scheduling and the datacenter people running it. If you do the selection logic in SAS, write a list to a flat file and let the DC people handle the copy/move.
Ask your IT security group to securely copy the files across for you. Its not really the job of analysis software to do operating system functions. Thats not to say you can't, but I wouldn't advise it:
You of course would then want to validate the copy to ensure it is identical etc. Whereas IT will have copy tools (life teracopy) which check the crc of the two files to ensure they are the same.
In much the same reason as your IT suggested it could be a security risk sending out OS commands (and I can understand that as copying the wrong files, or doing other inadvertent actions could damage your system), doing them through a tool not designed for it is also risky.
HI,
I will try this tom and will let you know. Thanks
SAS 9.4 also supports the FCOPY function, which might do the job. You still need to assemble the list of source/target files, but it's better than the byte-by-byte copy.
1. Get a list of files that need to be copied, stored in a data set
2. Use FCOPY to copy the file from one location to another
Step 1 is trivial and I think you can modify the code yourself, if not, check the SAS Macro appendix for a program to list all files in a folder.
Then use FCOPY to move the files over within a data step.
data move_demo;
set file_list; *list of files to be moved;
dir1='path to directory where files are stored';
dir2='path to directory where files are to be moved';
rc = fcopy(catx('\', dir1, filename1), catx('\', dir2, filename1));
run;
Build your skills. Make connections. Enjoy creative freedom. Maybe change the world. Registration is now open through August 30th. Visit the SAS Hackathon homepage.
Register today!Learn how use the CAT functions in SAS to join values from multiple variables into a single value.
Find more tutorials on the SAS Users YouTube channel.
Select SAS Training centers are offering in-person courses. View upcoming courses for: