|
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:
|
Virtual keyboard - on-screen virtual keyboard (useful for touchscreens, to input special characters)
|
Comments: Comment this article.
|
eCo Software is a group of russian developers. How to support eCo Software? (you can send us some computers. Maybe you don't use the device but it may be useful for the developers). We have the mailboxes in USA, Netherlands, China and Hong Kong. |
|
|
|
IBM OS/2 Warp
|