p;     found := 0;

              for i in 1..batch_size loop

                     fetch CUR_R0BrdLib

                            into BoardType1(i),BoardName1(i);

                     if CUR_R0BrdLib%notfound then

                            close CUR_R0BrdLib;

                            done_fetch := 1;

                            exit;

                     else

                            found := found + 1;

      &nbs

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页