Print one variable on each line

%macro print_one_var_per_line(ds,w);
   options formchar="|----|+|---+=|-/\<>*";
   title "&ds, &w";

   data;
      set &ds;
      _OBS_ = _n_;
   run;
 
   data _null_;
      set;
      where &w;
      file print;
      put  _page_;  /* start a new page for each record */
      put (_all_) (= /);
   run;
%mend print_one_var_per_line;

/* This macro is handy for printing a small number of observations when you have many variables or variables with a long length */
%print_one_var_per_line(scbcrse);