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

USB Dock - shows devices plugged into PC

Comments:

Comment this article.

How to prevent data loss? a) don't use old version of JFS driver. b) Don't boot from old eCS CD1 (if you take eCS 2.0 CD1, then disable its disk checker else it can kill your partitions), Advice how to use JFS filesystem

хlАnky

OperaХnМ systИm
Software
Hardware
Pro programАtory
OstatnМ
Od editora

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