data test;
  retain x '$ 3' y 1 z . ;
  output;
run;

data _null_;
  set test;
   length name $32 type $3;
   name=' ';
   do i=1 to 99 until(name=' ');
      call vnext(name,type,length);
      if upcase(name) not in ('NAME', 'TYPE', 'I', 'LENGTH') then
      put i= name @40 type= length=;
   end;
run;