****************************************
      * Program name: int.cbl
      * This program demonstrate the use of
      * the INITIALIZE command.
      * Numeric varible are initialized to
      * zeros, and alphanumeric variables
      * are initialized to spaces.
      *
      * Copyright 2000 Deskware, Inc.
      ****************************************                                                             
      * Syntax: INITIALIZE .
      *                                                               
       1 var1                      PIC 9(02).
       1 var2                      PIC X(04).
        
       DISPLAY `This program demonstrates the use of the `.
       DISPLAY `INITIALIZE command. `.
       DISPLAY ``.

       MOVE 32     TO var1.
       MOVE `%%%%` TO var2.

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

       INITIALIZE var1.
       INITIALIZE var2.

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