/* Some new functions: LAG, PUT, INPUT */ data one ; input x y $ ; lx = lag(x) ; charx = 'case' || put(x,3.0) ; charx2 = 'case' || left(put(x,3.0)) ; numy = input(substr(y,2,3),3.0) ; cards ; 1 J002 2 S003 3 J012 4 S014 ; proc print ; run ;