*DECK REPLDON 
          PROC REPLDON; 
#**       REPLDON - TURN OFF ANY REPLACE PROCESSING DONE TO SOURCE     #
#                                                                      #
#     CALLING FORM-                                                    #
#         REPLDON:                                                     #
#                                                                      #
#     GIVEN - NOTHING                                                  #
#                                                                      #
#     DOES - IF REPLACE PROCESSING                                     #
#            THEN RELEASE CMM BLOCKS AND SET KEY REPLACE VARIABLES     #
#            ELSE NOTHING                                              #
#                                                                      #
          BEGIN 
  
          XREF
              BEGIN 
              PROC CMM$FGR;             # FREE GROUP OF CMM BLOCKS     #
              ITEM RGROUP$REPL  I;      # GRP-ID FOR REPLACE STMT BLKS #
              ITEM REPLAC$MODE  B;      # TRUE - REPLACE STMT ACTIVE   #
              ITEM RPLGRPNOTFRE B;      # TRUE IF REPLACE GROUP ACTIVE #
              ITEM RSTATE       I;      # REPLACE STATE                #
              ITEM TKNREADY     B;      #TRU IF RPLC HAS TKN FOR POLISH#
              END 
  
*CALL REPLBLK 
  
          IF REPLAC$MODE
          THEN
              BEGIN 
              REPLAC$MODE = FALSE;
              RSTATE = 2;   # INITIALIZE$ STATE                        #
              TKNREADY = TRUE;
              FREE$CMMBLKS
              END 
          RETURN; 
          END  #REPLDON#
  
          TERM
