10: -- select from tabpart$
11: cursor tp_cursor is select tp.obj# from sys.tabpart$ tp
12: where bitand(tp.flags, 33554432) = 33554432;
13:
14: -- select from tabsubpart$
15: cursor tsp_cursor is select tsp.obj# from sys.tabsubpart$ tsp
16: where bitand(tsp.flags, 33554432) = 33554432;
17: BEGIN
18: -- initialize
11: cursor tp_cursor is select tp.obj# from sys.tabpart$ tp
12: where bitand(tp.flags, 33554432) = 33554432;
13:
14: -- select from tabsubpart$
15: cursor tsp_cursor is select tsp.obj# from sys.tabsubpart$ tsp
16: where bitand(tsp.flags, 33554432) = 33554432;
17: BEGIN
18: -- initialize
19: isAnyFragCompressed := 0;
25: from sys.tabpart$ where bitand(flags, 33554432) = 33554432;
26:
27: -- count subpartitions compressed through an online PMOP
28: select count(*) into subpartnFragsCompressed
29: from sys.tabsubpart$ where bitand(flags, 33554432) = 33554432;
30:
31: -- loop through tabpart$
32: if (partnFragsCompressed > 0) then
33: isAnyFragCompressed := 1;