Providing software solutions since 1976

• Log in
• Create profile
• Welcome
  [Log out]
• Edit profile

• Print  |
• Feedback  |
• Share

  • E-mail

  
  
  

  E-mail This Page

  Your Name:*
  Your E-mail:*
  Recipient E-mail:*
  Send a copy to me
  Personal Message:
  
  

  * indicates a required field

This sample uses a macro to print all data sets that exist in a directory that you specify.

This macro searches for data sets with an extension of SAS7BDAT. If your data sets are from an earlier version of SAS the macro will have to be modified. An example of this is changing SAS7BDAT to SD2.

When invoking the macro, the parameter value should contain the name of the directory (without the quotation marks) that contains your SAS data sets.

---

These sample files and code examples are provided by SAS Institute Inc. "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and fitness for a particular purpose. Recipients acknowledge and agree that SAS Institute shall not be liable for any damages whatsoever arising out of their use of this material. In addition, SAS Institute will provide no support for the materials contained herein.

options mprint;
%macro drive(dir);

 /* Creates a fileref */
 %let filrf=mydir;

 /* Creates a libref */
 %let librf=temp;

 /* Assigns the libref of temp to the directory you passed in */
 %let lib=%sysfunc(libname(&librf,&dir));

 /* Assigns the fileref of mydir to the directory you passed in */
 %let rc=%sysfunc(filename(filrf,&dir));

 /* Opens the directory to be read */
 %let did=%sysfunc(dopen(&filrf));

 /* Returns the number of members in the directory you passed in */
 %let memcnt=%sysfunc(dnum(&did));

 %let cnt=0;
 %do i = 1 %to &memcnt;

  /* Return the extension of the dataset found */
  %let lname=%qupcase(%qscan(%sysfunc(dread(&did,&i)),2,.));

  /* Return the first name of the dataset found */
  %let fname=%qscan(%qsysfunc(dread(&did,&i)),1,.);

  /* Check to see if file has a dataset extension of SAS7BDAT */
  /* SAS7BDAT may need to be changed based on the version of  */
  /* the SAS data set you are looking for.                    */
  %if %upcase(&lname) = SAS7BDAT %then %do;
   proc print data=&librf..&fname;
   run;
  %end;
 %end;

 /* Close the directory */
 %let rc=%sysfunc(dclose(&did));

%mend drive;

/* Replace c:\test below with your own directory */
%drive(c:\test)

---

These sample files and code examples are provided by SAS Institute Inc. "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and fitness for a particular purpose. Recipients acknowledge and agree that SAS Institute shall not be liable for any damages whatsoever arising out of their use of this material. In addition, SAS Institute will provide no support for the materials contained herein.

Operating System and Release Information