FUNCTION: SYS.OEMGETNEXTEXTEND

Source

1 FUNCTION OemGetNextExtend
2   (ext IN NUMBER, pct_inc IN NUMBER, blksize IN NUMBER, ntimes IN NUMBER)
3 
4   RETURN NUMBER IS
5 
6   blocks NUMBER;
7   retval NUMBER;
8   factor NUMBER;
9   niter  NUMBER;
10 
11 BEGIN
12   blocks  := CEIL(ext / blksize);
13   retval  := blocks * blksize;
14   factor  := 1 + (pct_inc / 100);
15   niter   := ntimes;
16 
17   WHILE niter > 1 LOOP
18     blocks := CEIL(blocks * factor);
19     retval := retval + blocks * blksize;
20     niter  := niter - 1;
21   END LOOP;
22 
23   RETURN retval;
24 END;