topic Re: IMPORT 1/2/3/4/5/6/7/8/9/10 days before if file doesn't exist in SAS Programming

IMPORT 1/2/3/4/5/6/7/8/9/10 days before if file doesn't exist

Ronein — Tue, 14 Jan 2020 12:00:40 GMT

Hello

I have list of dates and I need to import files with these dates.

For example:

For the dates 190125+191117+191214 I need to import 3 files: RawTbl1901025, RawTbl191117,RawTbl191214

The problem is that sometimes the file doesn't exists and then I need to import the file one day before and if not exists then two days before etc....

Let's say that the loop should Run until 10 days before( because it is impossible that the file doesn't exist more than 10 days before..)

What is the way to do it please?

Please note that the dates can be in macro var or in data set

%let vector=190125+191117+191214; 
%let n=3;

/*OR in data set*/
Data datesTbl;
input date $;
cards;
190125
191117
191214
;
run;


%macro import; 
%do j=1 %to 3;
%let YYMMDD=%scan(&vector.,&j.,+);
data RawTbl&YYMMDD; 
infile  "/pth/ttbl&YYMMDD..TXT" recfm=f LRECL=25;
input 
 Branch s370fib2.
 customerID s370fib4.
 KOD s370fib2.
 Team s370fib2.  
 Type  $ebcdic2. 
;
snif_amt=compress(snif);
date=&YYMMDD;
run;
%mend import;
%import;

Re: IMPORT 1/2/3/4/5/6/7/8/9/10 days before if file doesn't exist

PaigeMiller — Tue, 14 Jan 2020 11:43:45 GMT

We always advise you to handle dates as integers representing the number of days since 1/1/1960. That way, it becomes very easy to figure out what day is 10 days before 03MAR19, using the INTNX function, or even simpler by plain subtraction of 10.

You need to go back and re-formulate your solution to do the calculations using actual SAS date values and subtraction. Use formatting to turn the result into something like 1901025.

By the way, what does that 7 digit string 1901025 represent anyway?

Re: IMPORT 1/2/3/4/5/6/7/8/9/10 days before if file doesn't exist

Ronein — Tue, 14 Jan 2020 12:01:28 GMT

Sorry, it is 1901025 (YYMMDD )

Re: IMPORT 1/2/3/4/5/6/7/8/9/10 days before if file doesn't exist

Kurt_Bremser — Tue, 14 Jan 2020 12:15:58 GMT

Once again, no macro needed, only one macro variable:

Data datesTbl;
input date :yymmdd6.;
format date yymmddn6.;
cards;
190125
191117
191214
;
run;

proc sql noprint;
select quote('/pth/ttbl'!!put(date,yymmddn6.)!!'.TXT')
into :infiles separated by ','
from datestbl;
quit;
%put &infiles; /* just for checking */

filename infiles (&infiles) recfm=f lrecl=25;

data RawTbl;
length fname $256;
infile infiles filename=fname;
input 
 Branch s370fib2.
 customerID s370fib4.
 KOD s370fib2.
 Team s370fib2.  
 Type  $ebcdic2. 
;
snif_amt=compress(snif);
date = input(substr(fname,length(fname-9),6),yymmdd6.);
run;

and all data goes into one dataset automatically.

Re: IMPORT 1/2/3/4/5/6/7/8/9/10 days before if file doesn't exist

PaigeMiller — Tue, 14 Jan 2020 13:15:58 GMT

@Ronein wrote:

Sorry, it is 1901025 (YYMMDD )

That's still 7 digits, and it is NOT YYMMDD