data menge2;
    format kopie $10.;
    set menge;

    kopie = substr(original,1,10);
run;