key1       key2      key3
---------------------------
data11   data12   data13
data21   data22   data23

data.key1.1='data11'
data.key1.2='data21'
data.key2.1='data12'
data.key2.2='data22'
data.key3.1='data13'
data.key3.2='data23'

column1.1 = 'data11'
column1.2 = 'data21'
column2.1 = 'data12'
column2.2 = 'data22'
column3.1 = 'data13'
column3.2 = 'data23'

DROP column2.

DO i OVER column2.
   SAY column2.i
END

mystem.name = "Jeff"
mystem.1 = 100
mystem.first.second = "Some string"
DO i OVER mystem.
   SAY mystem.i
END

DO i OVER data.
   SAY data.i
END

DROP data.key2.

data.key2. = "Empty"

DO i OVER data.key2.
   SAY data.key2.i
END

/* DROP all variables that use data.key2. as their root */
DO i OVER data.key2.
   DROP data.key2.i
END

/* Assign "empty" to all variables that use data.key2. as their root */
DO i OVER data.key2.
   data.key2.i = 'empty'
END

/* Test if the first 4 columns of row one are empty */
DO i = 1 TO 4
   INTERPRET "test = SYMBOL('data.key2." || i || "')"
   IF test == 'VAR' THEN SAY "Cell is not empty"
   ELSE SAY "Cell is empty"
END

/* Test which cells are empty in the first row. totalRows is how many rows there are */
DO i = 1 TO totalrows
   INTERPRET "test = SYMBOL('data.key" || i || ".1')"
   IF test == 'VAR' THEN SAY "Cell is not empty"
   ELSE SAY "Cell is empty"
END

data.key1.1='data11'
data.key1.2='data21'
data.key2.1='data12'
data.key2.2='data22'
data.key3.1='data13'
data.key3.2='data23'

DO i OVER data.
 DO j OVER i. /* or: do j over data.i. ? */
  SAY i j data.i.j
 END
END

/* Here's our array */
data.1.1='data11'
data.1.2='data21'
data.2.1='data12'
data.2.2='data22'
data.3.1='data13'
data.3.2='data23'

/* Get the column number to enumerate */
SAY "Which column would you like to list (1, 2, or 3)?"
PULL col

/* Enumerate the values of the cells in that column */
DO i OVER data.col.
   SAY data.col.i
END

/* ================================= */
/* Get the row number to enumerate */
SAY "Which row would you like to list (1, 2, or 3)?"
PULL row

/* Form the tail name */
row = '.' || row
LENGTH = LENGTH(row)

/* We have to go through all items in our grid */
DO i OVER data.

   /* We have another cell. See if this is in the row we desire. We can
    * check this by inspecting the value of "i" (ie, the variable name).
    * If it's the row we want, then its last tail name will match "row"
    */
   IF RIGHT(i, length) = row THEN SAY data.i

END

/* If we know how many columns and rows we have, we can
 * dispense with DO OVER, and enumerate the cells ourselves.
 * The advantage here is that they are listed in a specific
 * order.
 */
numofrows = 3
numofcols = 2

DO i = 1 TO numofcols

   DO j = 1 TO numofrows

      CALL CHAROUT(,data.j.i)
      CALL CHAROUT(,"   ")

   END /* numofrows */

   CALL CHAROUT(,"0D0A"x)

END /* numofcols */

EXIT

/* Here's our array */
data.key1.1='data11'
data.key1.2='data21'
data.key2.1='data12'
data.key2.2='data22'
data.key3.1='data13'
data.key3.2='data23'

/* Get the column number to enumerate */
again:
SAY "Which column would you like to list (1, 2, or 3)?"
PULL col
IF DATATYPE(col, 'W') == 1 THEN DO
   SAY "You didn't follow the instructions. I said to enter a number."
   SIGNAL again
END
col = "KEY" || col

/* Enumerate the values of the cells in that column */
DO i OVER data.col.
   SAY data.col.i
END
EXIT

col = "KEY" || col

data.key1.1 = 'data11'

data.key1.1 = 'data11'

DO i OVER data.
   PARSE VAR i subdata '.'
   DO j OVER data.subdata.
      SAY data.subdata.j
   END
END

data.key1.1='data11'
data.key1.2='data21'
data.keygg2.1='data12'
data.keygg2.2='data22'
data.keytat3.1='data13'
data.keytat3.2='data23'

/* Let's say we want to enumerate the column named 'keygg2" */
col = "KEYGG2"

/* Enumerate the values of the cells in that column */
DO i OVER data.col.
   SAY data.col.i
END
EXIT

$data['key1'][1]='data11';
$data['key1'][2]='data21';
$data['keygg2'][1]='data12';
$data['keygg2'][2]='data22';
$data['keytat3'][1]='data13';
$data['keytat3'][2]='data23';

foreach ($data as $i) // here $i will be a one-dim sub-array WITH 2 elements inside
{
   foreach ($i as $j)
   {
      echo $j;
   }
}

foreach ($data as $key => $i)
{
   IF ($key=='keygg2') unset($data[$key]);
}

foreach ($data as $key1 => $i)
{
   foreach ($i as $key2 => $j)
   {
      IF ($key2==2) unset($data[$key1][$key2]);
   }
}

data.key1.1      = 'data11'
data.key1.2      = 'data21'
data.keygg2.1  = 'data12'
data.keygg2.2  = 'data22'
data.keytat3.1 = 'data13'
data.keytat3.2 = 'data23'

/* Delete column "keygg2" */
colname = "KEYGG2"
DO i OVER data.colname.
   DROP data.colname.i
END

data.key1.1      = 'data11'
data.key1.2    = 'data21'
data.keygg2.1  = 'data12'
data.keygg2.2  = 'data22'
data.keytat3.1 = 'data13'
data.keytat3.2 = 'data23'

/* Delete row "2" */
rowname = 2
DO i OVER data.
   PARSE VAR i col '.' row '.' .
   IF row == rowname THEN DROP data.i
END

data.key1.1       = 'data11'
data.key1.myrow    = 'data21'
data.keygg2.1       = 'data12'
data.keygg2.myrow  = 'data22'
data.keytat3.1      = 'data13'
data.keytat3.myrow = 'data23'

/* Delete row "MyRow" */
DO i OVER data.
   PARSE VAR i col '.' row '.' .
   IF row == myrow THEN DROP data.i
END