retain char

data test;


input x $ page_char $ ;

datalines;

xyz page

1 xcv

2 xfv

3 ggg

pqr page

4 dfg

5 ddd

6 ggg

;run;



data test1;

set test;

if page_char="page" then

page=_N_;else page=0;

run;



data test2;

set test1;

RETAIN Page_v1 0;

Page_v1 = SUM(Page_v1, page);

run;

proc sort data=test2;by page_v1;run;



data test3(keep=New page_char x);

retain NEW;

set test2;

by page_v1;



if first.page_v1 = 1 then NEW = x;

else NEW = trim(NEW);





put _all_;

run;