Or this:
%MACRO DELIM(LIB,DSN,OUT,DLM);
/* MACRO DELIM BUILDS AN OUTPUT FILE FROM INPUT VARS FOR EXCEL */
/* THIS MACRO WAS OBTAINED FROM SAS INSTITUTE */
PROC SQL NOPRINT;
SELECT NAME INTO :VARS SEPARATED BY ' +(-1) &DLM '
FROM DICTIONARY.COLUMNS
WHERE LIBNAME=%UPCASE("&LIB") AND MEMNAME=%UPCASE("&DSN");
SELECT "'"||TRIM(NAME)||"'" INTO :HEADER SEPARATED BY ' &DLM '
FROM DICTIONARY.COLUMNS WHERE LIBNAME=%UPCASE("&LIB")
AND MEMNAME=%UPCASE("&DSN");
QUIT;
DATA _NULL_;
FILE &OUT NOPRINT;
IF _N_=1 THEN
PUT &HEADER;
SET &LIB..&DSN;
PUT &VARS;
RUN;
%MEND DELIM;
________________________________
NOTICE: All information in and attached to the e-mails below may be
proprietary, confidential, privileged and otherwise protected from improper or
erroneous disclosure. If you are not the sender's intended recipient, you are
not authorized to intercept, read, print, retain, copy, forward, or disseminate
this message. If you have erroneously received this communication, please
notify the sender immediately by phone (704-758-1000) or by e-mail and destroy
all copies of this message electronic, paper, or otherwise. By transmitting
documents via this email: Users, Customers, Suppliers and Vendors collectively
acknowledge and agree the transmittal of information via email is voluntary, is
offered as a convenience, and is not a secured method of communication; Not to
transmit any payment information E.G. credit card, debit card, checking
account, wire transfer information, passwords, or sensitive and personal
information E.G. Driver's license, DOB, social security, or any other
information the user wishes to remain confidential; To transmit only
non-confidential information such as plans, pictures and drawings and to assume
all risk and liability for and indemnify Lowe's from any claims, losses or
damages that may arise from the transmittal of documents or including
non-confidential information in the body of an email transmittal. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
