Agreed with Flip - it's very easy to check date-ranges using the INTNX function within a DO / END loop, such as:
DATA _NULL_;
FORMAT START_DT END_DT TEST_DT YOUR_DATE_VAR DATE9. ;
START_DT = INTNX('WEEK',TODAY(),-53);
END_DT = INTNX('WEEK',TODAY(),+53);
YOUR_DATE_VAR = MDY(1,1,2010);
DO TEST_DT = START_DT TO END_DT BY 7;
IF ( INTNX('WEEK',TEST_DT,0,'S') LE YOUR_DATE_VAR LE INTNX('WEEK',TEST_DT,0,'E') ) THEN DO;
* DO THIS CODE PARAGRAPH WHEN WITHIN WEEK-RANGE. ;
PUTLOG _ALL_;
END;
END;
RUN;
Scott Barry
SBBWorks, Inc.