如何把一样观测拆成几行观测

data a(keep=a b d);
        infile cards dlm=' ' truncover;
        input a :$10. b :$10. c $100.;
        i=0;
        do until (flag=1);
        i+1;
        d=scan(c,i,' ');
        if missing(d) then flag=1;
                else output;
        end;
        cards;
天平座  120112010  旅游  天平座 逛街 美食达人
水瓶座  120113044  汽车  美妆 教育
金牛座  120234343  装修  读书  中欧商学院  金牛座  R语言  统计之都
;
run;