/* there is no value for sum   */
/*    sum = ?   */

/* try this */
%let sum=1;
data shifts;
  set a;
  by sample;
  array _n[5] _temporary_(1:5);
  array _s[5] _temporary_(1:5);

if first.sample then do;
               do i = 1 to dim(_s);
               call missing(_s(i)) ;
               end; end;

  do k =1 to dim(_n);
          put '_C_   ' _all_;
          put '  ';
        if _s[k] <1 then if (&sum ge (0.2+0.01*(_n[k]-1))) then do;
          put '_D_   ' _all_;         
          put ' ';
      _s[k] =1; n =_n[k]; cat ='shifts';
      output shifts;
    end;
  end;
  keep sample n i cat;
run;