CALL VNAMEルーチン

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