/*
/ Program : allocw.sas / Version : 1.0 / Author : Roland Rashleigh-Berry / Date : 30-Jul-2007 / SAS version : 9.1.3 / Client : xenuyama / Office : tokyo / Drug : DRUG001 / Protocol : DRUG001C3001 / Increment : 24weeks / Purpose : Spectre (Clinical) example macro to allocate data libraries and / formats in write mode. / SubMacros : none / Notes : This is just an example macro / Usage : %allocw / /=============================================================================== / PARAMETERS: /-------name------- -------------------------description------------------------ / /=============================================================================== / AMENDMENT HISTORY: / init --date-- mod-id ----------------------description------------------------ / /=============================================================================*/ %macro allocw; %*- declare which libref to use for the "protocol" and "titles" dataset -; %global _ptlibref_; %let _ptlibref_=der; libname raw "C:\pharma\xenuyama\tokyo\DRUG001\DRUG001C3001\24weeks\data\raw" access=readonly; libname der "C:\pharma\xenuyama\tokyo\DRUG001\DRUG001C3001\24weeks\data\derived"; libname stats "C:\pharma\xenuyama\tokyo\DRUG001\DRUG001C3001\24weeks\data\analysis"; *- assign format libraries for increment, protocol, drug, office and client -; libname iformats "C:\pharma\xenuyama\tokyo\DRUG001\DRUG001C3001\24weeks\formats"; libname pformats "C:\pharma\xenuyama\tokyo\DRUG001\DRUG001C3001\formats"; libname dformats "C:\pharma\xenuyama\tokyo\DRUG001\formats"; libname oformats "C:\pharma\xenuyama\tokyo\formats"; libname cformats "C:\pharma\xenuyama\formats"; options fmtsearch=(iformats.formats pformats.formats dformats.formats oformats.formats cformats.formats); run; %put NOTE: fmtsearch=%sysfunc(getoption(fmtsearch)); %mend;