proc printto log="./xx1.txt" new; data temp; input a b c; cards; A 1 8 A 2 7 A 3 8 A 4 9 ; run; proc printto log="./xx2.txt" new; data temp1; set temp; f= lag(c); d= dif(c);