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;