Date:         Fri, 29 Jan 2010 03:09:07 -0800
Reply-To:     TheSharpOne <sharp131@HOTMAIL.CO.UK>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         TheSharpOne <sharp131@HOTMAIL.CO.UK>
Organization: http://groups.google.com
Subject:      Re: Multiply
Comments: To: sas-l@uga.edu
Content-Type: text/plain; charset=ISO-8859-1

it won't be pretty but you could try something likethe code below.
Just replace WORK with your library name and SAMPLE with your table
name:
Proc SQL NoPrint;
  Select Trim(Name)!!' = '!!Trim(Name)!!'*-1;' INTO : varlist
separated by ' '
  From Dictionary.columns
  Where libname = 'WORK' AND memname = 'SAMPLE'
  ;
Quit;

Data x1;
  set x;
  &varlist;
Run;