读入这样的文本，第一行以“>”开始，读入为name,最后一行都以“//”结束，读入为sequence.
当这段文本总长度不超过32767时，hopewell提供的代码非常有效！
但当总长度超过约50000时，如何修改下面代码，使得第一行读入为name,文本第二行到“ORIGIN”读入为note,“ORIGIN”到“//”之间读入为sequence;
filename testdata 'd:\testdata.txt';
data raw;
length name $10 sequence $10000;
retain name sequence;
infile testdata;
input;
if substr(_infile_,1,1)='>' then name=substr(_infile_,2);
else if _infile_='//' then do;
output;
call missing(sequence);
end;
else sequence=cats(sequence,_infile_);
run;