/******************************************************************************
 * Programme : Schlanke Datasets in SAS: So optimieren Sie Ihren Code mit der KEEP-Anweisung
 * Reference : KEEPAN3819
 * Source    : https://www.wearecas.eu/en/sampleCode/KEEPAN3819
 ******************************************************************************/

/* --- BLOC 1 --- */
data employees;
    input name $ address $ city $ state $ zip $ phone $;
    datalines;
John Doe 123 Main St Anytown CA 90210 555-1234
Jane Smith 456 Oak Ave Othercity NY 10001 555-5678
;
run;

data employees_subset;
    set employees;
    keep name address city state zip phone;
run;

/* --- BLOC 2 --- */
data scores;
    input name $ score1-score20;
    datalines;
Alice 85 90 78 92 88 76 95 89 80 82 77 91 85 93 86 79 90 84 87 94
Bob 70 65 72 75 68 80 73 78 71 76 69 81 74 79 70 82 75 77 71 80
;
run;

data average;
    set scores;
    keep name avg;
    avg=mean(of score1-score20);
run;