eCo Software
doesn't receive
payments from USA

 
Update
NeoWPS extenders - upgrade eComStation desktop

 
Applications
ReFormat utility aimed to format USB flashdisks and USB HDD, and make compatible with OS/2

 
Advantages:
Strong platform: You can run eComStation on real hardware. (No need to run it inside virtual machines). Check the list of tested PC hardware.

 
For developer:
XObject - WPS object for self-editing, self-visualization of complex data structures, with API for C and REXX (Review)

 
(Пайпы программ)

 
Companies:
SQLite library is available in every eComStation now (eCo Software runtime)

 
History:
Changes of eComStation user interface - history

 
(Бонусы)

 
Advice:
Report: Hardware supported by eComStation: Summer of 2014

 
(Барьеры и решения)

 
Technologies:
SQLite library is available in every OS/2 now (eCo Software runtime)

 
(Применение в науке, лаборатории, ..)

 

 
Solutions
Multi-media center based on OS/2 (russian text)

 
New eComStation:
eComStation 2.2: Activation of widescreen modes is integrated to the video driver (Intel and ATI/AMD)

 
Future:
eComStation Third Generation (list of tasks)

 
(Ссылки на другие сайты)

 
(Картинка дня)

 
OS/2 artefacts:
Lotus SmartSuite for IBM OS/2 Warp

 
Gadgets:
Lotus SmartSuite for IBM OS/2 Warp

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./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:

Where can I find utilities aimed to collect system information? SysInfo homepage.

Komentarze:

Komentarz artykuЁu.


Twoje ImiЙ i Nazwisko:

TwСj E-Mail:

CODE:
746373......

  

TwСj Komentarz:


eComStation 2.0 can (automatically) switch between WiFi and Ethernet without headache. eCS 2.0 what's new?

ArtykuЁy
Systemy operacyjne
Software
Hardware
Dla developerСw
RС©ne
Od autorСw





Ostatnie gЁosowanie: What is the height of RPM barrier?

[Google]

IBM OS/2 Warp

 
For dummies
How to organize the collection of movies / audio-tracks / photos

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
  
 
© 2001 - 2025 eCo Software, All rights reserved
Сибирский Медведь **********
eComStation Serenity Systems International • OS/2 Warp IBM Corporation • ArcaOS Arca Noae