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 "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
   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.
   03       ARRAY-3.
    05      ARRAY-4     OCCURS 4.
     10     ARRAY-5     OCCURS 5.
      15    ARRAY-6     OCCURS 3.
       20   V           PIC X.
   03       REDEFINED REDEFINES ARRAY-3 PIC X(60).
 01      I     PIC 99    VALUE  2.
 01      J     PIC 99    VALUE  3.
 01      K     PIC 99    VALUE  4.
 
 PROCEDURE DIVISION.
 
    MOVE "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-1234567890"
      TO ARRAY-3.
    PERFORM 100-TEST VARYING I FROM 1 BY 1 UNTIL I > 4.
 *   PERFORM 200-TEST
    DISPLAY "REDEFINED variable: " REDEFINED
    STOP RUN.
 100-TEST.
    PERFORM 110-TEST VARYING J FROM 1 BY 1 UNTIL J > 5.
 110-TEST.
    PERFORM 120-TEST VARYING K FROM 1 BY 1 UNTIL K > 3.
 120-TEST.
    DISPLAY "V (" I ", " J ", " K ") = " V (I, J, K)

 200-TEST.
    DISPLAY "ARRAY-1 (1):" ARRAY-1 (1)
    Display ARRAY-2A (1)
    DISPLAY "ITEM  (1, 1) = " ITEM  OF ARRAY-2A (1, 1)
    DISPLAY "ITEM  (1, 1) = " ITEM  OF ARRAY-2 (1, 1)
    DISPLAY "ITEM2 (1, 1) = " ITEM2 (1, 1)
    DISPLAY "ITEM  OF ARRAY-2 (1 2) = " ITEM  (1, 2)
    DISPLAY "ITEM2 (1, 2) = " ITEM2 (1, 2)
    DISPLAY "ITEM  OF ARRAY-2 (2, 1) = " ITEM  (2, 1)
    DISPLAY "ITEM2 (2, 1) = " ITEM2 (2, 1)
    DISPLAY "ITEM  OF ARRAY-2 (2, 2) = " ITEM  (2, 2)
    DISPLAY "ITEM2 (2, 2) = " ITEM2 (2, 2)
    DISPLAY "ITEM  OF ARRAY-2 (3, 1) = " ITEM  (3, 1)
    DISPLAY "ITEM2 (3, 2) = " ITEM2 (3, 2)

    display "ARRAY-VAR = " ARRAY-VAR
    MOVE SPACES to ITEM ( 1, 3)
    DISPLAY ARRAY-VAR