[[ header START ]]

Welcome to OS2.GURU site! (eComStation.RU)

Select your language:

Russian

English

Frequently asked questions and answers:

Main site of eComStation - www.ecomstation.com
History of eComStation, relation to IBM OS/2 Warp
List of eCo Software applications

Форум обсуждение

Send message

[ +7-981-8529467 (Санкт-Петербург)

t.me/os2_guru

OS/2 GURU ru · en · de · es · it · pt · cz · pl · fr	OS/2 is a greatly different operating system for PC (ArcaOS, eComStation, IBM OS/2 Warp) Applications, news, reviews, support of users, hardware, questions and answers.

[What is OS/2? News Install Update

Usage Future Community Projects

How to buy
russian OS/2 apps?

The concept of
OS/2 development

Update

Applications

Advantages:

For developer:

(Пайпы программ)

Companies:

History:

(Бонусы)

Advice:

(Барьеры и решения)

Technologies:

(Применение в науке, лаборатории, ..)

Solutions

New eComStation:

Future:

(Ссылки на другие сайты)

(Картинка дня)

OS/2 artefacts:

Gadgets:

ArcaOS 5.0 Russian
Russian ARCAOS exists and it's available since the middle of 2017. All versions are supported: 5.0, 5.0.1, 5.0.2.

eCo Software is able release OS/2 LIP packages for any other language (German, Dutch, Brazilian Portuguese, Spanish, Sweden, etc)

Usage of REXX with IBM Works

TITLE: Usage of REXX with IBM Works

DATE: 2002-01-04 23:31:34

AUTHOR: Timur Kazimirov

Please use online translator
go to http://translate.google.com
and request the translation of http://ru.ecomstation./showarticle.php?id=37
to your language

. ........., . ............ IBM Works .. ...... ...... .. .., ... ... ...... . ......... IBM Works ..... ......... . ............ .... ........... ......., .......... .. REXX. ....... ...... ........ ..... ....... . ........ IBM Works, . ....... ..... ....... ....... ..... ....... (........, .... RANDOM.FNC) - .. .......... . .......... ......... ... ....... ... ... ...... ...... . ...... . IBM, .. ... ...... ......... . ............, ....... .......... ........ .. ..... ....... ...., ... .. ... ... ...........

...... ...... ........... .......

... ... ........ ....... . ...... ...... ....... .......:

=rexx("... .....", ... ......, ...-.. .........., ...... ..........)

... ...., . ........... .. ............ ........ ....... ........... ......, ..... .............. ....... ... ..... . ....... (... ....... ........., ... . .....). .. ........., .... ... ......... .. ....... ...... '......', .. .... ..... ............ ..... . ........ ...... ..... (.. .... ......):

=rexx("C:\USER\.... .. .........RXX";0;1;A1)

.....:

"... ....."

........ ..... *. ....... ........* . ..... ..... ........ ..... ....... ...... .... ... ............. (............ ........, . ....... ......... ......... IBM Works). .......... ..... .... .. ....... ... ..... ..... ......... ........

... ......

... ......... ..... .... ...:
0 - .... ......... ..... ....... ..... ......;
1 - .... ............ ...... (...... 1 ..... ...... ..... ......, ........ .. .... .....).

.......... ..........

....., ..........., ....... .......... .. ......... ..... ........ .... ....... .. ....... .........., .. ....... .....

...... ..........

.... ........., ............ . .... ........ .. .......... ...... .... ..... .., ..... .. ... ....... . .......... ........., . ......... ...... .. ........ ......... .. ....... ... ........ ..... .........., .. ... ..... ....:

..... . ............ . ........ ............. ........... (........, ..... 16,4). .... .......... ... ......
...... .......... . ....... ......... .......: "......1", "Narrow->"
........ ...... . .... ...... . ....... ..... ....... ........., ............ . ......... ....... . ........., ...... ........ ........ ...... ......... ..... ..... .... ... .........., ... . .............. .......: A1, $B$8
.......... ....... ... ..... ........., ..... .... ......... ..... ....... . .... ........ . .......... ..... ........... ........ ..... (... .........., ... . .............).

...... .......... ...... .......

...... .......... ..... ......... ..... ........... ........... ARG.... ............ '......', ....... ..... ........... .. ...., ....... . ............. ............ ... .. ...., REXX ....... . .......... ..... ......., ...... .... ... ............ . ..... "xxx.yyy", . .... .. ......... ... ....... ..... "12,6" (........ ....... . ......, .... ....... ...... - ......), .. . .... ....... .... ... .... ......... - ........ ........ TRANSLATE, .. ....

argvar = TRANSLATE(argvar, ".", ",")

...... ........: IBM Works ........ ......... ... ..... ........, .... . ...... B1, ....... ..... .......... ... ..... ......., ..... ..... 12, .. ...... ........... ...... ... ........ . ............ .. ..... .... '12,00..', .. ........ ........ ....... '12,00.' (.. ..... ........... .............). ..... ... ........, ........ B1 .. ........ .. ....:

=rexx("myfunc.fnc";0;1;B1)

.... ........ ..

=rexx("myfunc.fnc";0;1;B1*1)

.... ..... ......... . . ........... ............. ...... .......... ....... ... . . ..., ... .... .............. ... ....., ...... .... . ...... ..... "28.....01", .. . . .... ....... ..... ........ ...... ... ......, . .. "37253.661". .... .. ...... ........ ........ ............. ...., .. ........ .... .. ........ ......, ... . .... ....... ... ..... ......... ... ... ....... ....... .. ...... .., . .... ... ... ... ...... .. ........, .. ....... ............ ......... ............. ..... (... . ...... . .....).

.... ....... . ............ ........

.... ....... - ... ....... ......... .. REXX (.... ...... .......... . ........... /*.......*/). ...... ..... ....... .. ...... ....... ... ... ... ....... - .. ........ ............, .. ......... .......... RxSock, ............ HTTP-.......... . ....... ......-.... ....... . ...-........ . ......... ....... ............ ... ...... - ..... RETURN ......... .. .......... ....... ...... EXIT - ... ..... ........ . .......... .............

.........., .... .... ....... ........ ....., .. ....... ...-.. ........... (....... .....-.. ........., ......... ........ ....... . ....). . ...., .. ... ..., .. ....... .. . ........... ...., .., ...... ....., ......, ..... 100% ........ .......... .. .. ........ . ......... '.........' ... IBMWORKS, ... .. ...... ..........

....... ......

. .......... ....... ...... ....... ........... ........ ..... .......:

/*      ...... ........... .......               */
/*                                               */
/* ............ ..... ......... ....... ..:      */
/*                                               */
/* TotalCost - ......... ........... .........;  */
/* AgrLen - .... ......... (........);           */
/* LeasePerc - .......... .......;               */
/* PeriodCount - ............. ........ ........ */
/*                                               */
Parse Arg TotalCost, AgrLen, LeasePerc, PeriodCount
TotalCost=Translate(TotalCost, ".", ",")
AgrLen=Translate(AgrLen, ".", ",")
LeasePerc=Translate(LeasePerc, ".", ",")
PeriodCount=Translate(PeriodCount, ".", ",")
tmp1 = LeasePerc / PeriodCount
tmp2 = (1 + tmp1)**(PeriodCount*AgrLen)
answ = TotalCost * tmp1 * tmp2 / (tmp2 - 1)
Return answ

. ... .., ... .. ........ . ..........:

..... ......: Timur Kazimirov

...... ..........: http://ns.rnlease.snc.ru/~timur/os2/rxworks.shtml

........: Eugene Gorbunoff

Test the program:

Widescreen activator - enable widescreen for ATI

Comments:

Comment this article.

If eComStation PC doesn't work properly (USB troubles / network is slow / can't run with 2 CPUs / applications crash) then make some efforts, analyze the problems and setup the system. eCSFAQ Frequently asked questions and answers

Articles

Operating System
Software
Hardware
For developer
Misc
From editor

Last active poll: What is the height of RPM barrier?

[Google]

IBM OS/2 Warp

For dummies

Report: OS/2 compatible hardware

Reviews

Why eComStation?
Features
Advantages
Usage
Clips and screenshots

eComStation for
for businessmen
for students and engineers
for reselles of computers
community of users

Developer
Distribute the program
Description of API, libraries
Start new project
Competition

Applications
On-line catalogue
Select from eCo Market

Support service
Contact the web-master
Buy eComStation
Frequently asked questions
for Beginners



<a href='http://www.linkexchange.ru/users/058620/goto.map' target=_top> <img src='http://www.linkexchange.ru/cgi-bin/rle.cgi?58620?123812' alt='RLE Banner Network' border=0 height=60 width=468></a>