/* nov17.ex1                          */
 /*  revisions of oct02.ex3, oct03.ex1 */
 /*                                    */
 /* create list of current files and   */
 /*  get station names, lat, lon, etc  */
 /*                                    */
  options ls=80 ;
 /* call operating system              */
  x "dir J:\unity.ncsu.edu\lockers\dept\stat\courses\monahan\st590g\newsnow c:\temp\todaylist" ;
  data a ;
    length fname $30 stname $15 ;
    infile "c:\temp\todaylist" ;
    input @38 fname ;
 ***or input x1 x2 x3 $ x4 fname ;******
    if( left(fname) eq 'bytes' ) then stop ;
    stname = scan(fname,1) ;           * first word ;
    call symputx('howmany',put(_n_,4.)) ;
 run ;
 /* what does macro variable hold      */
  %put _user_ ;
 /*                                    */
 /* print file                         */
  proc print data=a ;
    title 'first step' ;
 run;