DATA grupe;
INPUT vardas $ lytis $ amzius svoris 21-22;
* 34567890123456789012345;
CARDS;
ASTA    M  20  174  70
EDITA   M  18  165  55
PETRAS  V  18  180  82
;
DATA duomenys;
 INPUT vardas $ lytis $ amzius ugis svoris;
* 34567890123456789012345;
CARDS;
RASA    M .  174 70
EDITA   M 20  .  57
PETRAS  V  . 120 .
;
RUN;

proc sort data=grupe; by vardas;
PROC PRINT; RUN;
proc sort data=duomenys; by vardas;
PROC PRINT; RUN;

DATA grupe;
 UPDATE grupe duomenys;
 BY vardas;
 DROP lytis;
PROC PRINT; RUN;
DATA skaite;
INPUT vardas $ diena knyga $12.;
* 34567890123456789012345;
CARDS;
EDITA     2  MATEMATIKA
EDITA     3  ANGLU
PETRAS    3  MATEMATIKA
ONA       4  FIZIKA
;
RUN;
PROC PRINT; RUN;
proc sort data=grupe; by vardas;
proc sort data=skaite; by vardas;
DATA grupe;
 MERGE grupe (drop=ugis svoris) skaite (obs=3);
 BY vardas;
 IF (diena>2);
RUN;
PROC PRINT; RUN;