****************************************
      * Program name: set.cbl
      * This program demonstrates the use
      * of the SET command.
      *
      * Copyright 2000 Deskware, Inc.
      ****************************************                                                             
      * Syntax: SET  TO 
      *                                                               
       1 var1                      PIC X(04).
       1 var2                      PIC X(04).

       DISPLAY `This program demonstrates the use of the `.
       DISPLAY `SET command. `.
       DISPLAY ``.
       DISPLAY `var1: <` & var1  & `>`.
       DISPLAY `var2: <`  & var2  & `>`.

       SET var1 TO `AAAA`.
       SET var2 TO var1.

       DISPLAY `var1: <`  & var1  & `>`.
       DISPLAY `var2: <`  & var2  & `>`.