data sasuser.loadlist (drop=imagesav) ; retain imagesav ;

    /*the firstobs=3 option skips the two header lines*/
      infile '[
               /* mydir.loadlist */
                                   ]eisload.lis' firstobs=3 ;
      input image $  size ;

      if ( image = imagesav ) then
         return;

      imagesav = image ;

    /*convert file size units to blocks */
      size = size / 512 ;
      output ;

   options nodate nonumber;
   proc print noobs;
   run;