SET WEEKFIRST=ISO

TABLE FILE CAR
PRINT
COMPUTE TODAY/HYYMDS = HGETC(8, TODAY);
COMPUTE WEEKNR/I3 = HPART(TODAY, 'WEEK', 'I3');
BY COUNTRY
END

  -SET &TODAY_DT= &YYMD;
-SET &YEAR = EDIT(&TODAY_DT,'9999$$$$$$$$') ;
-SET &WEEK = HPART(HDTTM(DATECVT(&TODAY_DT, I8YYMD, YYMD), 8, 'HYYMDs'), 'WEEK', 'I2');
-SET &WEEK_OF_YEAR=&WEEK+1;
-SET &YEAR_AND_WEEK=&YEAR|| '-' || &WEEK_OF_YEAR;

-SET &WEEKSTART_DT=DATECVT(DATEADD(DATEMOV(DATECVT(&TODAY_DT, 'I8YYMD','YYMD'), 'BOW'), 'D', -1), 'YYMD', 'A8YYMD');
-SET &WEEKEND_DT=DATECVT(DATEADD(DATEMOV(DATECVT(&TODAY_DT, 'I8YYMD','YYMD'), 'EOW'), 'D', 1), 'YYMD', 'A8YYMD');
-SET &START_DATE =  EDIT(&WEEKSTART_DT,'$$$$$$99')|| '/' ||EDIT(&WEEKSTART_DT,'$$$$99$$$$')|| '/' || EDIT(&WEEKSTART_DT,'9999$$$$$$$$');
-SET &END_DATE =  EDIT(&WEEKEND_DT,'$$$$$$99')|| '/' ||EDIT(&WEEKEND_DT,'$$$$99$$$$')|| '/' || EDIT(&WEEKEND_DT,'9999$$$$$$$$');

-TYPE &YEAR_AND_WEEK
-TYPE &START_DATE 
-TYPE &END_DATE