********************************
      * Program name: replica.cbl
      * Replica variable demonstration
      * 
      * Copyright 2000 Deskware, Inc.
      ********************************
       1 group_variable_1.
        5  component_1   PIC XXX VALUE `mS1`.
        5  ` has a dollar value of `.
        5  component_2   PIC $,999.99 value 125.99. 

       1 group_variable_2.
        5 `The value in the component_1 replica variable is: `.
        5  component_1   REPLICA.

       DISPLAY group_variable_1.
       DISPLAY group_variable_2.
 
       MOVE `q72` TO component_1.
       DISPLAY group_variable_1.
       DISPLAY group_variable_2.