读入这样的文本，第一行以“>”开始，读入为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;