/*MOD */
/* Returns the remainder from the division of */
/* the first argument by the second argument*/
data jb;
set hi;
md=mod(x1,2);
mds=mod(x1,3);
run;

/*every 3rd value by mod*/
data nth;
set sashelp.class;
new=mod(_n_,3) eq 0;
/*if new=1 then output;*/
run;