filename pwfile 'My Documents\passwd';

proc pwencode in='mypass1' out=pwfile;
run;

  options symbolgen;

  data _null_;
   infile pwfile obs=1 length=l;
   input @;
   input @1 line $varying1024. l;
   call symput('dbpass',substr(line,1,l));
run;

%put "&dbpass";