CALL LABELルーチン

data new;
   set old;
      /* lab is not in either array */ 
   length lab $256;        
      /* all character variables in old */ 
   array abc{*} _character_;  
      /* all numeric variables in old */ 
   array def{*} _numeric_;     
   do i=1 to dim(abc);
         /* get label of character variable */ 
      call label(abc{i},lab); 
         /* write label to an observation */ 
      output;                 
   end;
   do j=1 to dim(def);
         /* get label of numeric variable */ 
      call label(def{j},lab); 
         /* write label to an observation */ 
      output;                 
   end;
   stop;
   keep lab;
run;