m = {.};
i = 1;
dataloop sci dd1;
    extern m, i;
    vector cnst = i;
    select enrol $/= m;
    keep sex job cnst;
endata;