data test;
do i=1 to 300;
j=i;
output;
end;
run;

data testpage;
set test nobs=NUM;
pagen=ceil(_N_/15);
call symput('pagesum',ceil(NUM/15));
run;

options nodate;
proc print data=testpage rows=page noobs;
   by pagen;
   title 'page #byval(pagen) of ' &pagesum. 'pages';
run;