//S

      L     P##S_W_No
      LAR1  

      L     W [AR1,P#0.0]
      T     #S_DB_No                    // Source DB NUMBER

      L     #Repl_No
      L     1
      -I    
      L     2
      *I    
      SLW   3
      L     D [AR1,P#2.0]
      +D    
      LAR1                              // Source End Address

//D
      L     P##D_W_No
      LAR2  

      L     W [AR2,P#0.0]
      T     #D_DB_No                    // Destination DB NUMBER

      L     #Repl_No
      L     1
      -I    
      L     2
      *I    
      SLW   3
      L     D [AR2,P#2.0]
      +D    
      LAR2                              // Destination End Address

      OPN   DB [#S_DB_No]
      OPN   DI [#D_DB_No]

      L     #Repl_No
next: T     #Loop_Count                 // REPLICATION FACTOR

      L     W [AR1,P#0.0]
      T     W [AR2,P#0.0]

      TAR1  
      L     P#2.0
      -D    
      LAR1  

      TAR2  
      L     P#2.0
      -D    
      LAR2  

      L     #Loop_Count
      LOOP  next