[[ header START ]]

Welcome to OS2.GURU site! (eComStation.RU)

Select your language: Russian English Deutch Spanish Italian Portuguese Czech Polish French

Frequently asked questions and answers:
telegram

Форум обсуждение

telegram

Send message

telegram

[ +7-981-8529467 (Санкт-Петербург)

telegram

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:

POP3 Mail Checker Widget - widget aimed to check new mail

Comments:

Comment this article.


O seu Nome:

O seu E-Mail:

CODE:
......

  

O seu Comentаrio:


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

Artigos
Sistema Operativo
Software
Hardware
Para Desenvolvedores
MiscelГnea
Do Editor





Last active poll: What is the height of RPM barrier?

[Google]

IBM OS/2 Warp

 
For dummies
Database of 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 - 2021 eCo Software, All rights reserved
Сибирский Медведь технологическая компания
eComStation Serenity Systems International • OS/2 Warp IBM Corporation • ArcaOS Arca Noae