/* Richard A. DeVenezia
 * SUGI 29 - "Greetings from the Edge"
 * www.devenezia.com/papers
 */

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

data _null_;
  dcl javaobj j ('Example10', 'foobar.file');
  length s $1000;
  j.callStringMethod ('getExceptionMessage', s);
  if s ne '' then %putln (s)
run;