| set linesize 80 set verify off set feedback off set pause off; accept obj_owner prompt '对象属主(模式): ' accept inst_1_dblink prompt '第一个实例的数据库联接名称 (包括 @):' accept inst_2_dblink prompt '第一个实例的数据库联接名称 (包括 @):' clear breaks ttitle off set heading off column datetime noprint new_value datetime column inst_code1_name noprint new_value inst_code1_name column inst_code2_name noprint new_value inst_code2_name select to_char(sysdate,'MM/DD/YY') datetime from dual / select global_name inst_code1_name from global_name&inst_1_dblink / select global_name inst_code2_name from global_name&inst_2_dblink / set feedback on set heading on set newpage 0 ttitle col 25 '对象比较结果报告单' - col 53 '日期: ' datetime - skip 1 col 60 '页: ' sql.pno - skip 1 col 10 '属主: ' obj_owner - skip 1 center '对象在 &inst_code1_name 但不在 &inst_code2_name ' - skip 2 column object_type format a15 heading '对象类型'; column object_name format a35 heading '对象名称'; column status format a10 heading '状态'; SELECT OBJECT_NAME, OBJECT_TYPE, STATUS FROM ALL_OBJECTS&inst_1_dblink WHERE OWNER = UPPER('&OBJ_OWNER') AND OBJECT_TYPE != 'SYNONYM' MINUS SELECT OBJECT_NAME, OBJECT_TYPE, STATUS FROM ALL_OBJECTS&inst_2_dblink WHERE OWNER = UPPER('&OBJ_OWNER') AND OBJECT_TYPE != 'SYNONYM' ORDER BY 2,3 / ttitle col 25 '对象比较结果报告单' - col 53 '日期: ' datetime - skip 1 col 60 '页: ' sql.pno - skip 1 col 10 '属主: ' obj_owner - skip 1 center '对象在 &inst_code2_name 但不在 &inst_code1_name ' - skip 2 SELECT OBJECT_NAME, OBJECT_TYPE, STATUS FROM ALL_OBJECTS&inst_2_dblink WHERE OWNER = UPPER('&OBJ_OWNER') AND OBJECT_TYPE != 'SYNONYM' MINUS SELECT OBJECT_NAME, OBJECT_TYPE, STATUS FROM ALL_OBJECTS&inst_1_dblink WHERE OWNER = UPPER('&OBJ_OWNER') AND OBJECT_TYPE != 'SYNONYM' ORDER BY 2,3 / |
