SAS Macros

by Richard A. DeVenezia

This collection of SAS macros is part of my SAS programming toolbox. They have been categorized into groups based on typical usage.

They have not been peer tested for quality assurance and are presented as-is. Some macros may rely on host specific features. Use at your own risk.

Send questions or feedback to Richard A. DeVenezia.

How to use this page:

In the selection zone on the left side, a series of category headers are displayed. Each header lists how many items it contains. Click on a header to open the category and see its items.

When you roll the mouse over an item, some information about the item (purpose and notes) will appear in an information zone beneath the selection zone.

Click on an item to see the source code of the item. There will also be a download link.

What if the information zone contains a link you want to follow? Click on the item to lock the information. Then you can follow the links if desired.

The original index page is still available, but will not be updated.

This page generator last updated 08 December 2003.

DEFAULT; if ($search_term != "") { /* * perform searh and display the results */ print "

Search results

"; $results = ''; $n_found = 0; foreach ($navdata as $group => $items) { foreach ($items as $file => $info) { $contents = join ("", file($file)); if (@preg_match ("/$search_term/i", $contents)) { $n_found ++; $results .= "

$file"; } } } if ($n_found==0) { print "

No macros"; } else if ($n_found==1) { print "

One macro"; } else { print "

$n_found macros"; } print " matched the regular expression pattern.

"; print "

$results"; } else if ($item_num == -1) { // display welcome mat print $default; } else { /* * read in the macro source and prepare it for * being rendered as html */ $groups = array_keys($navdata); $group = $groups[$group_num]; $items = array_keys($navdata[$group]); $file = $items[$item_num]; $contents = join ("", file($file)); $contents = preg_replace ("/\r\n/", "\n", $contents); $contents = preg_replace ("/\n*\/\*-+\n(.*?)\*\/\n*/s", "\n\n", $contents); // strip macro info tags /* * split source on HTML comments, * emit HTML portion of special SAS HTML comment between splits */ $split = preg_split ("/\/\*\*HTML(.*?)\*\//si", $contents, -1, PREG_SPLIT_DELIM_CAPTURE); $pre = ''; for ($i=0; $i 1) { $pre = preg_replace ('/([^>])%macro /', '

$1%macro ', $pre);
		}

		/*
		 * embolden the macro name in it's declaration
		 */

		$pre = preg_replace ('/(%macro\s+)(\w+)(\s+|\(|\s*;)/', '$1$2$3', $pre);

		/*
		 * render a download icon
		 */

		print " $file";

		/*
		 * render the macro soure
		 */

		print $pre;
	}
?>