data b;
         set a;
         difference=abs(value-lag(value));
run;

如果不用LAG 同abs function 可以怎寫

data a;
        input type $ Value ;
cards;
A 50
B 75
C 78
D 65
run;
proc transpose data=a(drop=type) out=b(drop=_name_);
run;
data c;
        set b;
        array num {*} _numeric_;
        array num1{*} n1-n4;
                do i=1 to dim(num);
                        if i=1 then num1{i}=num{i}-num{i};
                                else num1{i}=num{i}-num{i-1};
                        if num1{i}<0 then num1{i}=0-num1{i};
                end;
        output;
        drop col1-col4 i;
run;
proc transpose data=c out=d(drop=_name_ rename=(col1=difference));
run;
data e;
        merge a d;
        if difference=0 then difference=.;
run;