OS2.GURU - Usage of REXX with IBM WorksOS2.GURU - Usage of REXX with IBM Works

Welcome to eComStation.RU site!

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

Frequently asked questions and answers:

eComStation.RU

+7-981-8529467 (-)
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?NewsInstallUpdateUsageFutureCommunityBuy    
**
(Map of the site)

 
 
Database of OS/2 compatible hardware

 
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:

General network utilities - universal tools to maintain local network.

Komentarze:

Komentarz artykuu.


Twoje Imi i Nazwisko:

Twj E-Mail:

CODE:
......

  

Twj Komentarz:


Do you have problems with Network (slow, no connection, ..), Audio (hangs, clicks, ..), USB (attached devices are not visible, slow work, etc)? Start point: Configuring ACPI driver for eComStation 2.0 + Latest updates ACPI Frequently Asked Questions and Answers in 2011

Artykuy

Systemy operacyjne
Software
Hardware
Dla developerw
Rne
Od autorw





Ostatnie gosowanie: 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 - 2020 eCo Software, All rights reserved
eComStation is a registered trademark of Serenity Systems International
OS/2 Warp is a registered trademark of IBM Corporation
 

 

 
Picture of the day: