RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Rexx


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Aleksey Tarasow, 2:5053/57, librexx.ru, behind-mirror.ru
To : All
Subj : Rexx
Просьба ко всем, запустить скрипт и сообщить, что будет выведено на экран.

===
/*
*/
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

BDNames='TestTest'
call value 'Base.'BDNames'.Test1', 'Test1 Test2'

say Base.BDNames.Test1
BDNames=translate(BDNames)
say Base.BDNames.Test1

exit
===

Sun 16 Oct 2016 00:28 Mozilla/5.0 (Windows NT 6.3; WOW64; rv:49.0) Gecko/20100101



Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.