*3.17.3a ARRAY example by Viru;
DATA old_marks;
    INPUT ID Name $ m1 m2 m3;
    DATALINES;
101 Anu 65 70 75
102 Bob 55 60 65
103 Carol 85 90 95
;
RUN;

DATA new_marks;
SET old_marks;
ARRAY score{3} m1 m2 m3;
DO i = 1 TO 3;
   score{i} = score{i} + 5;
END;
RUN;

PROC PRINT DATA=old_marks;
RUN;

PROC PRINT DATA=new_marks;
RUN;