/* Rexx */

Call SysFileTree '*.txt', 'Files', 'FO'               /* Получаем список файлов, заполняя массив */

Do i = 1 to Files._                                   /* Просматриваем все элементы в массиве    */
 Say Files.i
;

...

Keys. = ''                                            /* Задаём значение по умолчанию            */
Keys.1 = 'A'                                          /* И настоящие значения                    */
Keys.2 = 'Z'

Stem->Keys.1 = 'ABC'                                  /* Задаём значение по ключу                */

If Stem->>Keys.1 then                                 /* Проверяем наличие ключа                 */
 Say Stem->Keys.1                                     /* Выбираем значение по ключу              */
 Say Stem->'A'                                        /* Или так...                              */
;

Do get Key from Stem                                  /* Перебираем ключи и значения             */
 Say Key "\t" Stem->Key
;

Do get Key, Value from Keys                           /* Или так...                              */
 Say Key "\t" Value
;