data _NULL_;
         if today() le '13Dec2012'd;
         Id='No.21';
         Do until(Id='No.1');
         put 'Chase Technics';
         X=substr(ID,4)-1;
         Id='No.'||compress(X);end;
run;