/* nov17.ex1  **corrected**           */
 /*  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" firstobs=8 ;
    input x1 $ x2 $ x3 $ x4 $ fname ;  * read fields ;
    if( f2 eq 'File(s)' ) 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;