НОВОЕ: OS/2 GURU - Вопросы и ответы

12345

Reviews / articles about OS/2

Operating systems:
ArcaOS, eComStation, IBM OS/2 Warp
eComStation myths 

Latest  
 
 

Unsorted

 

 

AD: Upgrade ArcaOS to NeoWPS level

  • Install original PNG icons drawed by designer, specialized at OS/2 adornation.
  • Install eSchemes 2019 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./projects/reviews/index.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 Intel

Comments:

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.

 


 

 

ArcaOS 5.1.1 whatsnew - PNG icons

PNG icons on Desktop

PNG icons on Desktop. (instead of ancient .ico designed in 1994)

ACPI для OS/2

eCo Software have started the development of ACPI driver in 2005

// надо на ENG!!
Blonde Guy

Buy OS/2 application: OS/2 Doctor to analyze what is broken in OS/2 (15$)

Warpstock Europe 2017

Warpstock Europe 2017 conference was in Rotterdam (Netherlands). Meeting of OS/2 users and developers. Report (russian text):

 

(C) OS2.GURU 2001 -- 2025