IDENTIFICATION DIVISION.
 PROGRAM-ID.    TestVariable. 
 AUTHOR.        Rildo Pragana.
 DATE-WRITTEN.  November 13, 1999.
* REMARKS.
*    This is to exercise variables, specially
*    qualifying as in: var of parentvar of grandparentvar ...
*
 ENVIRONMENT DIVISION.
 DATA DIVISION.
*
 WORKING-STORAGE SECTION.

 01         ARRAY-VAR     VALUE all "ABC".
   03       ARRAY-1     OCCURS 3.
    05      ARRAY-2     OCCURS 2.
      15    ITEM            PIC X.
      15    ITEM2           PIC XX.    
    05      ARRAY-2A    OCCURS 5.
      15    ITEM            PIC X.
 01         SOME-VALUES.
  03        V1      PIC 9(3)V99.
  03        V2      PIC X(30).
  03        A1      pic A(01).
  03        X6      pic X(06).
 * 03        N1      usage is computational-3 pic 9(5)V9(3) value 123.45.
 
 PROCEDURE DIVISION.
    
    move "35" to V1.
    display "35 -> 9(3)V99 ==>" V1 "<"
    stop run.
    
    DISPLAY "ARRAY-1 is " ARRAY-1
    MOVE "ABC" to V2
    display "'" V2 "'"
    MOVE HIGH-VALUES TO V1
    DISPLAY V1
    move all quotes to V2
    display V2
    move all "acbdef" to V2
    display V2
    move spaces  to V2
    display V2
 *   move low-values to V2
    display V2
 *   move all "-" to V2
    display V2
    stop run
    .