AD: ArcaOS 5.1 Russian LIP Russian ARCAOS exists and it's available since the middle of 2017. All versions are supported: 5.1, 5.1.1. eCo Software is able to maintain OS/2 LIP packages for any other language (German, Dutch, Brazilian Portuguese, Spanish, Sweden, etc)

TITLE: Usage of REXX with IBM Works

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

AUTHOR: Timur Kazimirov

. ........., . ............ 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

Komentarze:

Komentarz artykuЁu.

Twoje ImiЙ i Nazwisko: TwСj E-Mail: CODE: 747313
TwСj Komentarz:

The development of software for eComStation is profitable: a) system API is effective and considered. b) The market is not so infinite as Windows. All eCS users know about your product. c) Every developer is influencing on the OS significantly.