[Home] [Help]
6: patch_COBI boolean;
7: patch_BV boolean;
8: patch_XDBHI boolean;
9: begin
10: select attr_no into attr_no_RCL from DBA_TYPE_ATTRS
11: where owner = 'XDB' and TYPE_NAME = 'XDB$RESOURCE_T'
12: and ATTR_NAME = 'RCLIST';
13: select attr_no into attr_no_COBI from DBA_TYPE_ATTRS
14: where owner = 'XDB' and TYPE_NAME = 'XDB$RESOURCE_T'
9: begin
10: select attr_no into attr_no_RCL from DBA_TYPE_ATTRS
11: where owner = 'XDB' and TYPE_NAME = 'XDB$RESOURCE_T'
12: and ATTR_NAME = 'RCLIST';
13: select attr_no into attr_no_COBI from DBA_TYPE_ATTRS
14: where owner = 'XDB' and TYPE_NAME = 'XDB$RESOURCE_T'
15: and ATTR_NAME = 'CHECKEDOUTBYID';
16: select attr_no into attr_no_BV from DBA_TYPE_ATTRS
17: where owner = 'XDB' and TYPE_NAME = 'XDB$RESOURCE_T'
12: and ATTR_NAME = 'RCLIST';
13: select attr_no into attr_no_COBI from DBA_TYPE_ATTRS
14: where owner = 'XDB' and TYPE_NAME = 'XDB$RESOURCE_T'
15: and ATTR_NAME = 'CHECKEDOUTBYID';
16: select attr_no into attr_no_BV from DBA_TYPE_ATTRS
17: where owner = 'XDB' and TYPE_NAME = 'XDB$RESOURCE_T'
18: and ATTR_NAME = 'BASEVERSION';
19: select count(*) into found_XDBHI from DBA_INDEXES
20: where owner = 'XDB' and TABLE_NAME = 'XDB$RESOURCE'