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

Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас

Тема:

> Вопрос к знатокам Rexx...
> 
> в чем облажался?
> 
> при выполнении ошибка:
> 
> REX0040: Error 40 running add_ip.cmd, line 19: Incorrect call to routine
> 
> запуск: pmrexx add_ip.cmd
> 
> 3 *-*   Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs';
>   >>>     "1"
>   +++   Interactive trace. "Trace Off" to end debug, ENTER to Continue.
> 4 *-*   Call SysLoadFuncs;
>   >>>     ""
> 6 *-*   configfile = 'add_ip.cfg';
>   >>>     "add_ip.cfg"
> 7 *-*   Call stream configfile, 'command', 'open read';
>   >>>     "READY:"
> 8 *-*   injoy_home = linein(configfile);
>   >>>     "D:\in-joy\"
> 9 *-*   datafiles_home = linein(configfile);
>   >>>     "D:\usr\www\add_ip"
> 10 *-*   Call stream configfile, 'command', 'close';
>    >>>     "READY:"
> 12 *-*   userfile = datafiles_home'\users.lst';
>    >>>     "D:\usr\www\add_ip\users.lst"
> 14 *-*   Parse Arg userinfo;
>    >>>     ""
> 17 *-*   nextpos1 = pos('=', userinfo);
>    >>>     "0"
> 18 *-*   nextpos2 = pos('username=', userinfo);
>    >>>     "0"
> 19 *-*   user_IP = substr(userinfo, nextpos1 + 1, nextpos2 - nextpos1 - 1);
> 19 +++   user_IP = substr(userinfo, nextpos1 + 1, nextpos2 - nextpos1 - 1);
>

_, _, _, / \ (_ / ~ ) \ / , ) / / ~ ~ ~~~