It s bizzare, i think that i posted my codes, 1. /*==== Preparation ===*/ %let input_folder=H:; %let archive_folder=H:\Archive; %let tab_history=libname.tabname; 2. /*==== Delete files aged over 30 days in Archive ===*/ filename filesA PIPE "dir /B &archive_folder"; data file_in_A; infile filesA; input filename :$50.; run; option noxwait; data _null_; set file_in_A(where=(lowcase(filename) like "onlineusers%.txt")); over30=put(date()-30,yymmddn.); datefile=substr(filename,12,8); if datefile le over30 then do; call system(cat("del /f /q ","&archive_folder.\",filename)); end; run; 3. /*==== Copy lasted file ====*/ filename filesI PIPE "dir /B &input_folder"; data file_in_I; infile filesI; input filename :$50.; run; data _null_; set file_in_I(where=(lowcase(filename) like "onlineusers%.txt")) end=eof; if eof then do; call symputx("last_file",filename); call system(cat("copy ","&input_folder.\",filename," &archive_folder")); end; run; %let nomtab=%SCAN(&last_file,1,"."); 4. /*==== import to table SAS====*/ data &nomtab; infile "&input_folder.\&last_file." ......; input .....; run; /*==== append with table history ====*/ proc append data=&nomtab base=&tab_history; quit; ... View more

/*===============Preparation================*/ %let input_folder=H:; %let archi_folder=H:\archive; %let output_folder=H:\output; %let name_table_history=lib.xxx; /*====delete file in archive folder ====*/ /*list of file in folder archive folder*/ Filename filesarc PIPE "dir /b &archi_folder"; data list_file_A_folder; infile filesarc; input namefile :$ 50.; run; /*delete*/ options noxwait; data _null_; set list_file_A_folder(where=(lowcase(namefile) like "onlineusers%.txt")); _over30=put(date()-30,yymmddN.); /*date over 30*/ _dte=substr(namefile,12,8);/*date in filename*/ if _dte le _over30 then CALL SYSTEM(CAT("del /f /q"," ","&archi_folder.\",namefile)); run; /*=======extract the name of lasted file onlineusers .txt end copy to archive folder======*/ /*list of file in folder input folder*/ Filename filesin PIPE "dir /b &input_folder"; data list_file_I_folder; infile filesin; input namefile :$ 50.; run; /*last file*/ data _null_; set list_file_I_folder(where=(lowcase(namefile) like "onlineusers%.txt")) end=eof; if eof then do; call symput("lasted_file",cats(namefile)); call SYSTEM(cat("copy /y &input_folder.\",namefile," &archi_folder")); end; run; %put &lasted_file; %let nametab=%SCAN(&lasted_file,1,"."); %put &nametab; Filename lastfile "&input_folder\&lasted_file"; /*==== import to table SAS ======*/ data &nametab; infile lastfile dsd missover <other options ….>; input Username $ /*add the informat in your data source*/ Forename $ Surname $ Lastlogindate $; run; /*====append with the table SAS of history====*/ PROC APPEND data=&nametab base=&name_table_history ; QUIT; Can you test it? ... View more

So 1- in your input folder, you have many txt like "OnlineUsersxxxxxx.txt" (in Windows) 2- you want to import the lasted into a table SAS (in SAS) and create an copy and move to archived folder (in Windows) 3- with the table sas imported , you want to append with a table SAS historique existed (in SAS) 4- you want to delete the file externe aged over 30 day in the archived folder? (in Windows) It s that you want? Thanks ... View more

Hello, It s on Linux/Unix or Windows ? Thanks. ... View more

Hello, It doesn't work because you forgot to put semicolons following the instructions (before end) and it must change first.patient_id /last.patient_id instead of first.time / last.time P/s: the loop "do...end" is not necessary if there is only one instruction. i think "by time" is not necessary too. Have a nice day. ... View more

data want; set have; by accident_id; retain outcome; if first.accident_id then do; if road_user_type eq "Vulnerable" then outcome=1; else if road_user_type eq "MVO" then outcome=2; else if road_user_type eq "" then outcome=.; else outcome=3; end; run; Hello, it s my proposition. I saw in the case accident_id = 2, road_user_type =. >>> outcome =. >>> then I add a case where outcome =. So we have 4 cases: outcome =., 1,2,3 Have a nice day. ... View more

data want; set have; length y $200; y= prxchange('s/\[/strip(/',-1, x); y= prxchange('s/\]/),/',-1, y); y=prxchange('s/\(values=/VAR=COALESCE(/',-1, y); y=prxchange('s/" *s/",s/',-1, y); y=prxchange('s/, *\)/)/',-1, y); run; a little modification ... View more

data have; length x $200; x="(values=[DECOD] [TEXT])"; output; x='(values=[DECOD] [TEXT] "NOT REPORTED")'; output; x='(values= "NOT REPORTED" [DECOD] "Zero data" [TEXT] )';output; x='(values= [TEXT] "Not Reported,NOW" [DECOD] )';output; ; run; data want; set have; length y $200; y= prxchange('s/\[/strip(/',-1, x); y= prxchange('s/\]/),/',-1, y); y=prxchange('s/\(values=/VAR=COALESCEC(/',-1, y); y=prxchange('s/" s/",s/',-1, y); y=prxchange('s/,\)/)/',-1, y); y=prxchange('s/, \)/)/',-1, y); y=prxchange('s/, \)/)/',-1, y); run; Hope can help you ... View more