/* I add a few spaces before the second and the third lines */

data a00;
   informat title $char60.;
   format title $char60.;
    input title & $char60.;
    if substr(title, 1, 8) = "<JDname>" or substr(title, 1, 7) = "<Files>" then title = "   "||title;   
datalines;
<JD Version="2013">
   <JDname>aaaaaaaaaaaaaa test bbbbbbbbbbbbbb</JDname>
   <Files>
run;
proc print data=a01; title 'a00'; run;


data _null_;
           file 'F:\MySAS\title.txt';
    if _n_ = 1 then do;
                     put '                  Title';
           end;
       set a00;
           len =length(title);
       put title $varying. len;
run;

$varying.len，学习了。谢谢。

谢谢yongyitian同学，很好的解决了问题。