A --> B --> C --> D      A is replaced by B     G is replaced by C 
    ^ ^         ^ ^           B is replaced by C     H is replaced by C 
    |  \        |  \          C is replaced by D     I is replaced by F 
    |   \       |   \         D has no replacement   J is replaced by F 
    |    \      |    \        E is replaced by A     K is replaced by H 
    |     F     |     H       F is replaced by A     L is replaced by H 
    |    ^ ^    |    ^ ^
    |   /   \   |   /   \
    E  I     J  G  K     L 
    
   $$GETRPLC(B) would return C 
    
   $$RPLCMNT(B) would return D 
    
   $$RPLCVALS(J) would return the requested field values from entry D 
    
   $$RPLCTRL(G) in both directions would return D and the output array would
   be set as follows: 
    
    OutArr(“BY”,A) = B                  OutArr(“FOR”,A,E) = “” 
    OutArr(“BY”,B) = C                  OutArr(“FOR”,A,F) = “” 
    OutArr(“BY”,C) = D                  OutArr(“FOR”,B,A) = “” 
    OutArr(“BY”,D) = “”                 OutArr(“FOR”,C,B) = “” 
    OutArr(“BY”,E) = A                  OutArr(“FOR”,C,G) = “” 
    OutArr(“BY”,F) = A                  OutArr(“FOR”,C,H) = “” 
    OutArr(“BY”,G) = C                  OutArr(“FOR”,D,C) = “” 
    OutArr(“BY”,H) = C                  OutArr(“FOR”,F,I) = “” 
    OutArr(“BY”,I) = F                  OutArr(“FOR”,F,J) = “” 
    OutArr(“BY”,J) = F                  OutArr(“FOR”,H,K) = “” 
    OutArr(“BY”,K) = H                  OutArr(“FOR”,H,L) = “” 
    OutArr(“BY”,L) = H 
    
   $$RPLCTRL(L) in the forward direction would return D and the output array
   would be set as follows: 
    
    OutArr(“BY”,C) = D                  OutArr(“FOR”,C,H) = “” 
    OutArr(“BY”,D) = “”                 OutArr(“FOR”,D,C) = “” 
    OutArr(“BY”,H) = C                  OutArr(“FOR”,H,L) = “” 
    OutArr(“BY”,L) = H 
    
   $$RPLCTRL(B) in the backward direction would return D and the output array
   would be set as follows: 
    
    OutArr(“BY”,A) = B                  OutArr(“FOR”,A,E) = “” 
    OutArr(“BY”,E) = A                  OutArr(“FOR”,A,F) = “” 
    OutArr(“BY”,F) = A                  OutArr(“FOR”,B,A) = “” 
    OutArr(“BY”,I) = F                  OutArr(“FOR”,F,I) = “” 
    OutArr(“BY”,J) = F                  OutArr(“FOR”,F,J) = “” 
    
   $$RPLCLST(G) in both directions would return D and the output array would
   be set as follows: 
    
    OutArr(1) = G ^ 0                   OutArr(“INDEX”,A) = 8 
    OutArr(2) = C ^ 0                   OutArr(“INDEX”,B) = 7 
    OutArr(3) = D ^ 1                   OutArr(“INDEX”,C) = 2 
    OutArr(4) = H ^ 0                   OutArr(“INDEX”,D) = 3 
    OutArr(5) = K ^ 0                   OutArr(“INDEX”,E) = 9 
    OutArr(6) = L ^ 0                   OutArr(“INDEX”,F) = 10 
    OutArr(7) = B ^ 0                   OutArr(“INDEX”,G) = 1 
    OutArr(8) = A ^ 0                   OutArr(“INDEX”,H) = 4 
    OutArr(9) = E ^ 0                   OutArr(“INDEX”,I) = 11 
    OutArr(10) = F ^ 0                  OutArr(“INDEX”,J) = 12 
    OutArr(11) = I ^ 0                  OutArr(“INDEX”,K) = 5 
    OutArr(12) = J ^ 0                  OutArr(“INDEX”,L) = 6 
    
   $$RPLCLST(L) in the forward direction would return D and the output array 
   would be set as follows if the status history was also included: 
    
    OutArr(1) = L ^ 0                   OutArr(“INDEX”,C) = 3 
    OutArr(1,3080101.0954) = 0          OutArr(“INDEX”,D) = 4 
    OutArr(2) = H ^ 0                   OutArr(“INDEX”,H) = 2 
    OutArr(2,3080101.1308) = 1          OutArr(“INDEX”,L) = 1 
    OutArr(2,3080105.09) = 0 
    OutArr(3) = C ^ 0 
    OutArr(3,3080105.0859) = 1 
    OutArr(3,3080112.1722) = 0 
    OutArr(4) = D ^ 1 
    OutArr(4,3080112.1723) = 1 
    
   $$RPLCLST(B) in the backward direction would return D and the output array
   would be set as follows: 
    
    OutArr(1) = A ^ 0                   OutArr(“INDEX”,A) = 1 
    OutArr(2) = E ^ 0                   OutArr(“INDEX”,E) = 2 
    OutArr(3) = F ^ 0                   OutArr(“INDEX”,F) = 3 
    OutArr(4) = I ^ 0                   OutArr(“INDEX”,I) = 4 
    OutArr(5) = J ^ 0                   OutArr(“INDEX”,J) = 5