putln.sas

%macro putln(char_expression,newline='0a'x);
  if ''=resolve('%put ' || tranwrd(&char_expression,&newline,'; %put ')) then ;
%mend;

Sample code

/*
data _null_;
  text = 'Line 1' || '0a'x || 'Line 2' || '0a'x || 'Line 3';
  %putln (text);
run;
*/