[[ 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

eComStation.RU 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:

Upgrade ArcaOS to NeoWPS level

Install original PNG icons drawed by designer, specialized at OS/2 adornation.
Install eSchemes 2018 to change colors and buttons on desktop.

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:

We re-packed many applications to WarpIn format. Easy to download, easy to install using eCo Market.

Comments:

Comment this article.

New widgets were developed for eComStation 2.0 (indicators of information) + new window PM-controls. It's more comfortable to use the system now. eCS 2.0 what's new?

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

Database of 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?430059' alt='RLE Banner Network' border=0 height=60 width=468></a>