DECLARE
   IN_ROWID_TABLE            CHAR (14);
   IN_ROWID_SYSTEM           CHAR (14);
   IN_PKEY_SRC_OBJECT        VARCHAR2 (255);
   IN_TREE_UNMERGE_IND       NUMBER;
   IN_ROWID_JOB_CTL          CHAR (14);
   IN_INTERACTION_ID         NUMBER;
   IN_USER_NAME              VARCHAR2 (50);
   OUT_UNMERGED_ROWID        CHAR (14);
   OUT_TMP_TABLE_LIST        VARCHAR2 (32000);
   OUT_ERROR_MESSAGE         VARCHAR2 (1024);
   RC                        NUMBER;
   IN_UNMERGE_ALL_XREFS_IND  NUMBER;
BEGIN
   IN_ROWID_TABLE            := 'SVR1.8ZC';  
   IN_ROWID_SYSTEM           := 'SVR1.7NJ';
   IN_PKEY_SRC_OBJECT        := '6';
   IN_TREE_UNMERGE_IND       := 0;      -- Default 0, 1 for tree unmerge
   IN_ROWID_JOB_CTL          := NULL;
   IN_INTERACTION_ID         := NULL; 
   IN_USER_NAME              := 'XHE';
   OUT_UNMERGED_ROWID        := NULL;
   OUT_TMP_TABLE_LIST        := NULL;
   OUT_ERROR_MESSAGE         := NULL;
   RC                        := NULL;
   IN_UNMERGE_ALL_XREFS_IND := 0; -- default 0, 1 for unmerge_all
   CMXMM.UNMERGE ( IN_ROWID_TABLE, IN_ROWID_SYSTEM, IN_PKEY_SRC_OBJECT, IN_TREE_UNMERGE_IND, IN_ROWID_JOB_CTL, IN_INTERACTION_ID, IN_USER_NAME, OUT_UNMERGED_ROWID, OUT_TMP_TABLE_LIST, OUT_ERROR_MESSAGE, RC, IN_UNMERGE_ALL_XREFS_IND );
   DBMS_OUTPUT.PUT_LINE (' Return Code = ' || rc);
   DBMS_OUTPUT.PUT_LINE (' Message is = ' || out_error_message); 
   DBMS_OUTPUT.PUT_LINE ('OUT_ERROR_MESSAGE = ' || OUT_ERROR_MESSAGE); 
   DBMS_OUTPUT.PUT_LINE ('RC = ' || TO_CHAR(RC));
   IF RC < 0 THEN
      ROLLBACK;
   ELSE
      COMMIT;
   END IF;
   CMXUT.DROP_TABLE_IN_LIST(OUT_TMP_TABLE_LIST,OUT_ERROR_MESSAGE,RC); --Clean up temporary tables
END;