data a b;

input group $ age @@; if age<20 then output a;

cards;

 x 23 y 10 x 7 y 22 x 8 y 4

 x 21 y 12 x 9 y 22 x 6 y 2   ;

run; proc print data=a; run;

data  u v w;

input x 1-3 y 4-7 z 8-10 num$ 1-11; if (x>134 and x<139 or x in(150,151,152,157,158,159,188)) then output u; if(x in (130,131,132,155,15)) then output v; if (x in (133,153,180,189)) then output w; cards; 1508320464X 1313654836X 1510291126X 1351425709X 1339644156X 1303612231X 1532464828X 1383824855X 1365721647X 1522322763X 1523105754X 1357851051X 1592624347X 1508311759X 1331237668X 1327313520X 1370048578X 1556443719X 1507244457X 1804346016X 1321246707X 1513441713X 1368464734X 1308279203X 1394913242X 1897876466X ; run;

data mess;

set u v w; keep x y;

run;

data stu1 x y z; input name$ sexnum group score1 score2 score3 @@; sum=score1+score2+score3; if group=1 then output x; if group=2 then output y; if group=3 then output z; cards; wangdong 1 1 90 70 60 xueping 2 2 85 95 88       zhouhua 1 1 77 84 69 heyan 1 2 95 78 88       sunhong 2 3 89 97 87 zhaobin 2 3 66 98 86       huangshan 2 3 67 75 76 hufang 1 2 78 77 69       lili 2 2 70 82 63 zhaoli 2 3 95 90 91       zhangqun 1 1 93 91 89 iping 1 3 59 88 93       liyun 1 1 89 96 76 liyu 2 1 79 89 87       huajin 2 2 89 97 80   ; run; proc print data=x; run; proc print data=y; run; proc print data=z; run;

 

data sushu;

a=1333333; f=1; do i=2 to a/2 by 1; if mod(a,i)=0 then do f=0;end; end; if f=0 then put "no"; else put "ok"; run;