do i=1to n;
                  if  xx[i,3]^=0 then do;
                        do j=1 to i;
                                if  -1<xx[j,4]-xx[i,3]<1 then do;
                                do p=q to j;
                                d[p]=xx[i,1]-xx[p,1];
                        end;
                        q=j;
                        end;
求助如何让此程序do循环结束的时候 q等于满足if条件的j