"Анри Бертьен. Стандартный набор операторов языка REXX (для OS/2) " - читать интересную книгу автора

If fileid='',
Then do;
'MSG Имя файла не указано...'; /* Выполняем команду 'MSG'
редактора. */
Exit 1;
End;
Address command 'ERASE' fileid; /* Выполним команду основной системы
- уничтожим указанный файл. */
If rc^=0 then do;
'MSG Файл 'fileid' удалить не удалось, rc='rc'.';
/* Выполним команду 'MSG' редактора. */
Exit 1;
End;
Else do;
'MSG Файл 'fileid' удалён.';
Exit 0;
End;

В особо сложных программах, когда используется большое число сред,
иногда полезно вообще не пользоваться средой по умолчанию, выдавая все
команды только при помощи оператора ADDRESS с явным указанием имени среды.
Когда имя среды заранее неизвестно и будет получено только в процессе
выполнения программы, установить его в качестве имени, используемого по
умолчанию, можно при помощи оператора ADDRESS следующего вида:

Формат 2:

Address [value] <выражение>

В этом случае ключевое слово 'VALUE' означает, что за ним следует
выражение (в простейшем случае - просто имя REXX-переменной), значение
которого следует использовать в качестве устанавливаемого имени среды (в
операторе ADDRESS формата 1 <имя среды> указывается ЯВНО).
Так, например, в программе

/* Иллюстрация различных форматов оператора ADDRESS */
Envir='COMMAND' /* Установим значение переменной ENVIR


(='COMMAND'). */

Address value envir; /* Установим имя среды равным значению
переменной ENVIR (т. е. 'COMMAND'). */
Address command; /* Установим имя среды ='COMMAND' */
Address envir; /* Установим имя среды ='ENVIR' */

первые два оператора ADDRESS функционально равнозначны, а вот третий
установит имя среды, равное 'ENVIR'. Признаться, мне неизвестна ни одна
среда с таким именем.