libname data00 '' server=shr2;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;

proc stb;
open ds=data00 testsm m=i options="where=(trim(left(rndgrp00)) not in ('00',''))";
info get all;
read op=bod;
point op=bod;
note porid poobs;
do i=1 to eof; read op=getseq; end;
echo <"Number of obs read: " i>;
close;