Stream is not working

Question

I am just following the below link. Any help is greatly appreicated.
http://www.oracle-base.com/articles/9i/Streams9i.php
Here is the Oracle version
Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production
PL/SQL Release 9.2.0.1.0 - Production
CORE 9.2.0.1.0 Production
TNS for 32-bit Windows: Version 9.2.0.1.0 - Production
NLSRTL Version 9.2.0.1.0 - Production
The data are not replicating... Here are the scripts.
I have two instance. dba1 & dba2. I am trying to replicate the data from scott.dept@dba1 to scott.dept@dba2.
Here are the relevant parameters in source and target database paramters
compatible 9.2.0.0.0
log_parallelism 1
global_names TRUE
job_queue_processes 10
aq_tm_processes 1
Stream Administrator Setup
SQL> CONN sys/password@DBA1 AS SYSDBA
Connected.
SQL>
SQL> CREATE USER strmadmin IDENTIFIED BY strmadminpw
2 DEFAULT TABLESPACE users QUOTA UNLIMITED ON users;
User created.
SQL>
SQL> GRANT CONNECT, RESOURCE, SELECT_CATALOG_ROLE TO strmadmin;
Grant succeeded.
SQL>
SQL> GRANT EXECUTE ON DBMS_AQADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_CAPTURE_ADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_PROPAGATION_ADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_STREAMS_ADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_APPLY_ADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_FLASHBACK TO strmadmin;
Grant succeeded.
SQL>
SQL> BEGIN
2 DBMS_RULE_ADM.GRANT_SYSTEM_PRIVILEGE(
3 privilege => DBMS_RULE_ADM.CREATE_RULE_SET_OBJ,
4 grantee => 'strmadmin',
5 grant_option => FALSE);
6 END;
7 /
PL/SQL procedure successfully completed.
SQL> BEGIN
2 DBMS_RULE_ADM.GRANT_SYSTEM_PRIVILEGE(
3 privilege => DBMS_RULE_ADM.CREATE_RULE_OBJ,
4 grantee => 'strmadmin',
5 grant_option => FALSE);
6 END;
7 /
PL/SQL procedure successfully completed.
SQL> CONNECT strmadmin/strmadminpw@DBA1
Connected.
SQL> EXEC DBMS_STREAMS_ADM.SET_UP_QUEUE();
PL/SQL procedure successfully completed.
SQL>
SQL> CREATE DATABASE LINK dba2 CONNECT TO strmadmin IDENTIFIED BY strmadminpw USING 'DBA2';
Database link created.
SQL>
SQL> connect sys/password@dba2 as sysdba
Connected.
SQL> CREATE USER strmadmin IDENTIFIED BY strmadminpw
2 DEFAULT TABLESPACE users QUOTA UNLIMITED ON users;
User created.
SQL>
SQL> GRANT CONNECT, RESOURCE, SELECT_CATALOG_ROLE TO strmadmin;
Grant succeeded.
SQL>
SQL> GRANT EXECUTE ON DBMS_AQADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_CAPTURE_ADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_PROPAGATION_ADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_STREAMS_ADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_APPLY_ADM TO strmadmin;
Grant succeeded.
SQL> GRANT EXECUTE ON DBMS_FLASHBACK TO strmadmin;
Grant succeeded.
SQL>
SQL> BEGIN
2 DBMS_RULE_ADM.GRANT_SYSTEM_PRIVILEGE(
3 privilege => DBMS_RULE_ADM.CREATE_RULE_SET_OBJ,
4 grantee => 'strmadmin',
5 grant_option => FALSE);
6 END;
7 /
PL/SQL procedure successfully completed.
SQL>
SQL> BEGIN
2 DBMS_RULE_ADM.GRANT_SYSTEM_PRIVILEGE(
3 privilege => DBMS_RULE_ADM.CREATE_RULE_OBJ,
4 grantee => 'strmadmin',
5 grant_option => FALSE);
6 END;
7 /
PL/SQL procedure successfully completed.
SQL>
SQL> CONNECT strmadmin/strmadminpw@dba2
Connected.
SQL> EXEC DBMS_STREAMS_ADM.SET_UP_QUEUE();
PL/SQL procedure successfully completed.
SQL> connect sys/password@dba2 as sysdba
Connected.
SQL> GRANT ALL ON scott.dept TO strmadmin;
Grant succeeded.
SQL>
LogMinor Tablespace Setup
SQL> CONN sys/password@DBA1 AS SYSDBA
Connected.
SQL>
SQL> CREATE TABLESPACE logmnr_ts DATAFILE 'h:/dba1/data/logmnr01.dbf'
2 SIZE 25 M REUSE AUTOEXTEND ON MAXSIZE UNLIMITED;
Tablespace created.
SQL> EXECUTE DBMS_LOGMNR_D.SET_TABLESPACE('logmnr_ts');
PL/SQL procedure successfully completed.
SQL>
Supplemental Logging
SQL> CONN sys/password@DBA1 AS SYSDBA
Connected.
SQL>
SQL> ALTER TABLE scott.dept ADD SUPPLEMENTAL LOG GROUP log_group_dept_pk (deptno) ALWAYS;
Table altered.
SQL>
Configure Propagation Process
SQL> CONNECT strmadmin/strmadminpw@DBA1
Connected.
SQL> BEGIN
2 DBMS_STREAMS_ADM.ADD_TABLE_PROPAGATION_RULES(
3 table_name => 'scott.dept',
4 streams_name => 'dba1_to_dba2',
5 source_queue_name => 'strmadmin.streams_queue',
6 destination_queue_name => 'strmadmin.streams_queue@dba2',
7 include_dml => true,
8 include_ddl => true,
9 source_database => 'dba1');
10 END;
11 /
PL/SQL procedure successfully completed.
SQL>
Configure Capture Process
SQL> CONNECT strmadmin/strmadminpw@DBA1
Connected.
SQL> BEGIN
2 DBMS_STREAMS_ADM.ADD_TABLE_RULES(
3 table_name => 'scott.dept',
4 streams_type => 'capture',
5 streams_name => 'capture_simp',
6 queue_name => 'strmadmin.streams_queue',
7 include_dml => true,
8 include_ddl => true);
9 END;
10 /
PL/SQL procedure successfully completed.
SQL>
Configure Apply Process
SQL> CONNECT strmadmin/strmadminpw@DBA2
Connected.
SQL> BEGIN
2 DBMS_STREAMS_ADM.ADD_TABLE_RULES(
3 table_name => 'scott.dept',
4 streams_type => 'apply',
5 streams_name => 'apply_simp',
6 queue_name => 'strmadmin.streams_queue',
7 include_dml => true,
8 include_ddl => true,
9 source_database => 'dba1');
10 END;
11 /
PL/SQL procedure successfully completed.
SQL>
Start Apply Process
SQL> CONNECT strmadmin/strmadminpw@DBA2
Connected.
SQL> BEGIN
2 DBMS_APPLY_ADM.SET_PARAMETER(
3 apply_name => 'apply_simp',
4 parameter => 'disable_on_error',
5 value => 'n');
6
7 DBMS_APPLY_ADM.START_APPLY(
8 apply_name => 'apply_simp');
9 END;
10 /
PL/SQL procedure successfully completed.
SQL>
Start Capture Process
SQL> CONNECT strmadmin/strmadminpw@DBA1
Connected.
SQL> BEGIN
2 DBMS_CAPTURE_ADM.START_CAPTURE(
3 capture_name => 'capture_simp');
4 END;
5 /
PL/SQL procedure successfully completed.
SQL>
I inserted one record in scott.dept@dba1. It should propagate to scott.dept@dba2. But it is not propagating...
SQL> CONNECT scott/tiger@dba1
Connected.
SQL> INSERT INTO dept (deptno, dname, loc) VALUES (99, 'Test Dept', 'UK');
1 row created.
SQL> commit;
SQL> connect scott/tiger@dba2
Connected.
SQL> select * from dept;
no rows selected
SQL>
Here is the log in dba2 instance.
SQL> connect strmadmin/strmadminpw@DBA2
Connected.
SQL> set serveroutput on
SQL> SET SERVEROUTPUT ON
SQL> DECLARE
2 v_anydata SYS.ANYDATA;
3 v_lcr SYS.LCR$_ROW_RECORD;
4 v_row_list SYS.LCR$_ROW_LIST;
5 v_result PLS_INTEGER;
6 BEGIN
7
8 SELECT user_data
9 INTO v_anydata
10 FROM strmadmin.streams_queue_table
11 WHERE rownum < 2;
12
13 v_result := ANYDATA.GetObject(
14 self => v_anydata,
15 obj => v_lcr);
16
17 DBMS_OUTPUT.PUT_LINE('Command Type : ' || v_lcr.Get_Command_Type);
18 DBMS_OUTPUT.PUT_LINE('Object Owner : ' || v_lcr.Get_Object_Owner);
19 DBMS_OUTPUT.PUT_LINE('Object Name : ' || v_lcr.Get_Object_Name);
20 DBMS_OUTPUT.PUT_LINE('Source Database Name : ' || v_lcr.Get_Source_Database_Name);
21 END;
22 /
Command Type : INSERT
Object Owner : SCOTT
Object Name : DEPT
Source Database Name : DBA1.US.ORACLE.COM
PL/SQL procedure successfully completed.

Answer 1

My first recommendation would be to patch to 9.2.0.8 keeping in mind that 9i is in desupport mode and new development should be done in 10gR2 or 11gR1.
But the fact that the records are not replicating could be due to a number of factors.
Start by looking at the data dictionary views in your version (it is so old I no longer have a copy installed) related to streams, AQ, and propagation. Also look at the alert log. There are some very good Streams debugging docs in the Knowledge Base at metalink.