|
The REXX Resource – Directory & Links
From Mainframes.in – Home of Legacy & Mainframes Online
|
|
The REXX Programming section of Mainframes.in provides a listing of WWW resources for REXX programming language. Mainframes.in is a comprehensive online resource for legacy and mainframe systems.
..
..
Add Links: If you have a web site that you wish to include in this directory, do let us know the details by sending a note about your URL to narsi@esource.in. We’ll quickly review the web site, and if found relevant, add it to the database. We look forward to web site owners and link exchange partners to submit URL. Thanks!
Content derived from Wikipedia article on REXX
REXX From Wikipedia, the free encyclopedia
REXX Paradigm: multi-paradigm: object-oriented, procedural, structured Appeared in: 1979 Designed by: Mike Cowlishaw Developer: Mike Cowlishaw & IBM Typing discipline: dynamic, everything is a string Major implementations: IBM NetREXX, Open Object Rexx, Regina, others Dialects: Open Object REXX, NetRexx Influenced by: PL/I, EXEC 2, BASIC
REXX (REstructured eXtended eXecutor) is an interpreted programming language which was developed at IBM. It is a structured high-level programming language which was designed to be both easy to learn and easy to read. Both commercial and open source interpreters for REXX are available on a wide range of computing platforms, and compilers are available for IBM mainframes.
Contents
1 Features 2 History 2.1 Spelling 3 Syntax 3.1 Looping 3.2 Conditionals 3.3 Testing for multiple conditions 3.4 Simple Variables 3.5 Compound variables 3.6 Keyword instructions 3.6.1 PARSE 3.6.2 INTERPRET 3.6.3 NUMERIC 3.6.4 SIGNAL 3.7 Error handling and exceptions 3.7.1 Conditions 4 See also 5 References 6 Books 7 External links 7.1 Classic interpreters 7.2 Other interpreters 7.3 Compilers 7.4 Newsgroups 7.5 Tutorials
Features REXX has the following characteristics and features:
character string basis dynamic data typing (no declarations) no reserved keywords (except in local context) arbitrary numerical precision decimal arithmetic (floating-point) a rich selection of built-in functions (especially string and word processing) automatic storage management crash protection content-addressable data structures straightforward access to system commands and facilities simple error-handling, and built-in tracing and debugger few artificial limitations simplified I/O facilities. REXX has just twenty-three, largely self-evident, instructions (e.g., call, parse, and select) with minimal punctuation and formatting requirements. It is essentially an almost free-form language with only one data-type, the character string; this philosophy means that all data are visible (symbolic) and debugging and tracing are simplified.
REXX syntax looks similar to PL/I, but has fewer notations; this makes it harder to parse (by program) but easier to use.
History REXX was designed and first implemented as an ‘own-time’ project between 20 March 1979 and mid-1982 by Mike Cowlishaw of IBM, originally as a scripting programming language to replace the languages EXEC and EXEC 2[1]. It was designed to be a macro or scripting language for any system. As such, REXX is considered a precursor to Tcl and Python.
It was first described in public at the SHARE 56 conference in Houston, Texas, in 1981[2], where customer reaction, championed by Ted Johnston of SLAC, led to it being shipped as an IBM product in 1982.
Over the years IBM included REXX in almost all of its operating systems (VM/CMS, VM/GCS, MVS TSO/E, AS/400, VSE/ESA, AIX, CICS/ESA, PC-DOS, and OS/2), and has made versions available for Novell NetWare, Windows, Java, and Linux.
The first non-IBM version was written for PC-DOS by Charles Daney in 1984/5. Other versions have also been developed for Atari, Amiga, Unix (many variants), Solaris, DEC, Windows, Windows CE, PocketPC, MS-DOS, Palm OS, QNX, OS/2, Linux, BeOS, EPOC32, AtheOS, OpenVMS, OpenEdition, Macintosh, and Mac OS X. [3]
The Amiga version of Rexx, called ARexx was included with AmigaOS 2 onwards and was popular for scripting as well as application control. Many Amiga applications have "ARexx ports" built into them which allows control of the application via a user defined script.
Several freeware versions of Rexx are available. In 1992, the two most widely-used open-source ports appeared: Ian Collier's REXX/imc for Unix and Anders Christensen's Regina (later adopted by Mark Hessling) for Windows and Linux. BREXX is well-known for WinCE and PocketPC platforms.
In 1996 ANSI published a standard for REXX: ANSI X3.274–1996 “Information Technology – Programming Language REXX”. More than two dozen books on REXX have been published since 1985.
Since the mid-1990s, two newer variants of REXX have appeared:
NetRexx – which compiles to Java byte-code via Java source code; this has no reserved keywords at all, and uses the Java object model, and is therefore not upwards-compatible with ‘classic’ REXX. Object Rexx – which is an object-oriented upwards-compatible version of REXX. In 1990, Cathy Dager of SLAC organized the first independent REXX symposium, which led to the forming of the REXX Language Association. Symposiums are held annually.
Rexx marked its 25th anniversary on 20 March 2004, which was celebrated at the REXX Language Association’s 15th International REXX Symposium in Böblingen, Germany, in May 2004.
On October 12, 2004, IBM announced their plan to release their Object Rexx implementation under the Common Public License.
On February 22, 2005, the first public release of ooRexx (Open Object Rexx) was announced.
Spelling In plain text, Cowlishaw seems to prefer Rexx, whereas IBM documents and the majority of the web uses REXX. The ANSI standard uses the form preferred by the standardization committee, which has small capitals for the final three letters: REXX. This style is also used on the cover pages of "The Rexx Language" TRL and "The NetRexx Language" written by Michael Cowlishaw. Originally it was just called "Rex" because the author liked how it sounded, the extra "x" was added to avoid collisions with other products' names. The expansion of Rexx to the Restructured Extended Executor is a bacronym.
Syntax
Looping The loop control structure in Rexx always begins with a DO and ends with an END but comes in several varieties.
Traditional forms:
do until [condition] [instructions] end do while [condition] [instructions] end With an index variable:
do i = x [to y [[by z]] [instructions] end The step increment (z above) may be omitted and defaults to 1. The upper limit (y above) can also be omitted, which makes the loop continue forever. You can also loop forever without an index variable with this:
do forever [instructions] end A program can break out of the current loop with the leave instruction (which is the normal way to exit a "forever" loop), or can short-circuit it with the iterate instruction. The do while and do until forms are equivalent to:
do forever if [condition] then leave [instructions] end and:
do forever [instructions] if [condition] then leave end
Conditionals Testing conditions with IF
if [condition] then do [instructions] end else do [instructions] end For single instructions, DO and END can also be omitted:
if [condition] then [instruction] else [instruction]
Testing for multiple conditions SELECT is REXX's CASE structure, like many other constructs derived from PL/I:
select when [condition] then [instruction] when [condition] then do [instructions] end otherwise [instructions] or NOP end NOP indicates no instruction is to be executed.
Simple Variables Variables in REXX are typeless, and initially are evaluated as their names, in upper case. Thus a variable's type can vary with its use in the program:
say hello /* => HELLO */ hello = 25 say hello /* => 25 */ hello = "say 5 + 3" say hello /* => say 5 + 3 */ interpret hello /* => 8 */ drop hello say hello /* => HELLO */
Compound variables Unlike many other programming languages, classic REXX has no direct support for arrays of variables addressed by a numerical index. Instead it provides compound variables. A compound variable consists of a stem followed by a tail. A . (dot) is used to join the stem to the tail. If the tails used are numeric, it is easy to produce the same effect as an array.
do i = 1 to 10 stem.i = 10 - i end Afterwards the following variables with the following values exist: stem.1 = 9, stem.2 = 8, stem.3 = 7...
Unlike arrays, the index for a stem variable is not required to have an integer value. For example, the following code is valid:
i = 'Monday' stem.i = 2 In Rexx it is also possible to set a default value for a stem.
stem. = 'Unknown' stem.1 = 'USA' stem.44 = 'UK' stem.33 = 'France' After these assignments the term stem.3 would produce 'Unknown'.
The whole stem can also be erased with the DROP statement.
drop stem. This also has the effect of removing any default value set previously.
By convention (and not as part of the language) the compound stem.0 is often used to keep track of how many items are in a stem, for example a procedure to add a word to a list might be coded like this:
add_word: procedure expose dictionary. parse arg w n = dictionary.0 + 1 dictionary.n = w dictionary.0 = n return It is also possible to have multiple elements in the tail of a compound variable. For example:
m = 'July' d = 15 y = 2005 day.y.m.d = 'Friday' Multiple numerical tail elements can be used to provide the effect of a multi-dimensional array.
Features similar to Rexx compound variables are found in many other languages (associative arrays in AWK, hashes in Perl, Vectors in Java, etc). Most of these languages provide an instruction to iterate over all the keys (or tails in Rexx terms) of such a construct, but this is lacking in classic Rexx. Instead it is necessary to keep auxiliary lists of tail values as appropriate. For example in a program to count words the following procedure might be used to record each occurrence of a word.
add_word: procedure expose count. word_list parse arg w . count.w = count.w + 1 /* assume count. has been set to 0 */ if count.w = 1 then word_list = word_list w return and then later
do i = 1 to words(word_list) w = word(word_list,i) say w count.w end At the cost of some opacity it is possible to combine these techniques into a single stem.
add_word: procedure expose dictionary. parse arg w . dictionary.w = dictionary.w + 1 if dictionary.w = 1 /* assume dictionary. = 0 */ then do n = dictionary.0+1 dictionary.n = w dictionary.0 = n end
return and later
do i = 1 to dictionary.0 w = dictionary.i say i w dictionary.w end However Rexx provides no safety net here, so if one of your words happens to be a whole number less than dictionary.0 the above technique will fail mysteriously.
Recent implementations of Rexx, include IBM's Object Rexx and the open source implementations like Regina and OORexx include a new language construct to simplify iteration over the value of a stem.
do i over stem. say i '-->' stem.i end
Keyword instructions
PARSE The PARSE instruction is particularly powerful; it combines some useful string-handling functions. Its syntax is:
parse [upper] origin template where origin specifies the source:
arg (arguments, at top level tail of command line) linein (standard input, e.g. keyboard) pull (REXX data queue or standard input) source (info on how program was executed) value (an expression) with the keyword with is required to indicate where the expression ends var (a variable) version (version/release number) and template can be:
list of variables column number delimiters literal delimiters upper is optional; it you specify it, data will be converted to upper case.
Examples:
Using a list of variables as template
myVar = "John Smith" parse var MyVar firstName lastName say "First name is:" firstName say "Last name is:" lastName displays the following
First name is: John Last name is: Smith Using a delimiter as template:
myVar = "Smith, John" parse var MyVar LastName "," FirstName say "First name is:" firstName say "Last name is:" lastName also displays the following
First name is: John Last name is: Smith Using column number delimiters:
myVar = "(202) 123-1234" parse var MyVar 2 AreaCode 5 7 SubNumber say "Area code is:" AreaCode say "Subscriber number is:" SubNumber displays the following
Area code is: 202 Subscriber number is: 123-1234 A template can use a combination of variables, literal delimiters, and column number delimiters.
INTERPRET The INTERPRET instruction is very powerful and one of the two reasons why writing REXX compilers isn't trivial (the other reason is REXX's decimal arbitrary precision arithmetic):
/* a touch of LISP */ X = 'square' interpret 'say' X || '(4) ; exit' SQUARE: return arg(1) * arg(1) This displays 16 and exits. Because anything in REXX are strings, even rational numbers with exponents, and last but not least complete programs, REXX offers to interpret strings as programs.
This feature was used to implement something like function parameters, e.g. passing SIN, COS, etc. to a procedure SIMPSON to calculate integrals.
Note that REXX offers only basic math. functions like ABS, DIGITS, MAX, MIN, SIGN, RANDOM, and a complete set of hex. plus binary conversions with bit operations, anything else like SIN has to be implemented from scratch or using external libraries. The latter typically don't support arbitrary precision.
Later versions (non-classic) support CALL variable constructs, together with the built-in function VALUE this allows to avoid many cases of INTERPRET. This is a classic program:
/* terminated by input "exit" or similar */ do forever ; interpret linein() ; end A slightly more sophisticated REXX calculator:
X = 'input BYE to quit' do until X = 'BYE' ; interpret 'say' X ; pull X ; end PULL is a shorthand for parse upper pull like ARG for parse upper arg.
NUMERIC say digits() fuzz() form() /* => 9 0 SCIENTIFIC */ say 999999999 + 1 /* => 1.000000000E+9 */ numeric digits 10 /* only limited by available memory */ say 999999999 + 1 /* => 1000000000 */ say 0.9999999999 = 1 /* => 0 (false) */ numeric fuzz 3 say 0.99999999 = 1 /* => 1 (true) */ say 0.99999999 == 1 /* => 0 (false) */ say 100 * 123456789 /* => 1.23456789E+10 */ numeric form engineering say 100 * 123456789 /* => 12.34567890E+9 */
SIGNAL The REXX SIGNAL instruction is intended for abnormal changes in the flow of control (see the next section), however, it can be misused and treated like the GOTO in other languages (although it is not strictly equivalent, because it terminates loops and other constructs). This can produce difficult to read code.
Error handling and exceptions It is possible in REXX to intercept and deal with errors and other exceptions, using the SIGNAL instruction. There are seven system conditions: ERROR, FAILURE, HALT, NOVALUE, NOTREADY, LOSTDIGITS and SYNTAX. Handling of each can be switched on and off in the source code as desired.
This example will run until stopped by the user:
signal on halt; do a = 1 say a do 100000 /* a delay */ end end halt: say "The program was stopped by the user" exit Virtually all serious REXX programs contain signal on novalue or a similar statement. This disables the "feature", where undefined variables get their own (upper case) name as value. The status of a variable can be checked with the built-in function SYMBOL returning VAR for defined variables.
Function VALUE can be used to get the value of variables without triggering a NOVALUE condition, but its main purpose is to read and set environment variables - similar to POSIX getenv and putenv.
Conditions ERROR Positive RC from a system command FAILURE Negative RC for a system command (e.g. command doesn't exist) HALT Abnormal termination (see above) NOVALUE An unset variable was referenced (see above) NOTREADY Input or output error (e.g. read attempts beyond end of file) SYNTAX Invalid program syntax, or some error condition not covered above LOSTDIGITS Significant digits are lost (ANSI REXX, not in TRL second edition)
When a condition is handled by SIGNAL ON, the SIGL and RC system variables can be analyzed to understand the situation. RC contains the REXX error code and SIGL contains the line number where the error arose.
Beginning with REXX version 4 conditions can get names, and there's also a CALL ON construct. That's handy if external functions do not necessarily exist:
CHCP: procedure /* protect SIGNAL settings */ signal on syntax name CHCP.TRAP return SysQueryProcessCodePage() CHCP.TRAP: return 1004 /* windows-1252 on OS/2 */
See also XEDIT - text editor(s) with native REXX support
References ^ Cowlishaw, Mike. IBM REXX Brief History. IBM. Retrieved on 2006-08-15. ^ Cowlishaw, Mike (1981-02-18). REX -- A Command Programming Language. SHARE. Retrieved on 2006-08-15. ^ Rexx Implementations. RexxLA. Retrieved on 2006-08-15.
Books The Rexx Language: A Practical Approach to Programming ( Prentice Hall, 1990), by Michael Cowlishaw, ISBN 0-13-780651-5 The NetRexx Language ( Prentice Hall, 1997), by Michael Cowlishaw, ISBN 0-13-806332-X Programming in REXX (McGraw-Hill, 1990), by Charles Daney, ISBN 0-07-015305-1 REXX with OS/2, TSO, & CMS Features (M V S Training, 1999), by Gabriel Gargiulo, ISBN 1-892559-03-X Down to Earth Rexx (Perfect Niche Software, 2000), by William Schindler, ISBN 0-9677590-0-5 Rexx Programmer's Reference (Wiley/Wrox, 2005), by Howard Fosdick, ISBN 0-7645-7996-7 [http://www.amazon.de REXX Grundlagen für die z/OS Praxis by Johannes Deuring 2005, Germany ISBN 3-486-20025-9 Complete list of 49 books through 2000
External links Mike Cowlishaw at IBM REXX language page at IBM REXX Language Association REXX Information-- Downloads, tools, tutorials, reference materials, etc. The Script Library
Classic interpreters Regina: open-source (LGPL) interpreter for Linux, BSD, Windows, etc. REXX/imc: open-source (nonstandard license) interpreter for Unix and Linux systems. BREXX: open-source (GPL) interpreter for DOS, Linux, Windows CE, etc. Reginald: free interpreter for Windows. roo!: free (Kilowatt Software) interpreter for Windows with object-oriented extensions. r4: free (Kilowatt Software) interpreter for Windows. REXX for Palm OS: shareware (Jaxo Inc.) interpreter for Palm OS. Personal REXX: commercial (Quercus Systems) interpreter for Windows, OS/2 and DOS. S/REXX: commercial (Benaroya) interpreter for UNIX and Windows. uni-REXX: commercial (The Workstation Group Ltd.) interpreter for UNIX.
Other interpreters Open Object Rexx web site IBM NetREXX web site
Compilers IBM Compiler and Library for REXX on zSeries
Newsgroups comp.lang.rexx
Tutorials Rexx for everyone: An introduction by David Mertz for IBM developerWorks. Vladimir Zabrodsky's Album of Algorithms and Techniques for Standard Rexx Vladimir Zabrodsky's An Introduction to the Rexx Programming Language PLEAC-REXX: Programming Language Examples Alike Cookbook for REXX Tips & tricks 3.60 by Bernd Schemmer (OS/2 INF format, 755 KB ZIP, 2004) Rexx Frequently Asked Questions (FAQ) Introductory Rexx Tutorial - SHARE, Spring 1997 Retrieved from http://en.wikipedia.org/wiki/REXX
End of Wikipedia content, http://en.wikipedia.org/wiki/REXX
REXX Programming Directory & Resources @ Mainframes.in
..
..
Main Sections @ Mainframes.in
Legacy Operating Systems > Midrange, Mainframe Legacy Databases > DB2, IMS DB/DC, VSAM, CA/IDMS, Unidata Legacy Programming & Development
Legacy Hardware > Mainframe Hardware, Midrange Hardware
Legacy & Non-legacy > Legacy & Contemporary OS, Legacy & Contemporary Databases, Legacy & Networking, Legacy & Contemporary Programming Languages, Legacy & Mainframe Migration
Other IT Resources
eIT.in – IT & Software Directory & Resources
Software > Operating Systems, Databases, Programming & Development, Mainframe & Legacy, Internet & Web
Hardware, Networking & Communications, IT Strategy & Design, IT in Industries, IT in Functions, IT Infrastructure, Tech Support, IT Industry & Trade Network, IT News & Updates
Mainframes.in provides directory and web links resources for the legacy, mainframes and midrange systems. It is intended to be useful for mainframe programmers & developers, midrange programmer & developer, legacy & mainframe databases software development, administrators & DBAs, application developers, mainframe strategy architect, legacy design specialists and architects, mainframe & legacy migration consultants and analysts, administration, maintenance & support professionals, mainframe & legacy outsourcing consultant, legacy solutions programming developers & coders, project management & functional analyst, and for mainframe, midrange, system administrators, testing & quality control engineers. It will make an effort to provide resources on tutorial/tutorials, guide/guides, tips, faq/faqs on these mainframe and legacy topics.
Reference
GeoDig – Get Local!
Have you checked out the GeoDig directories for over 30 countries? GeoDig provides useful local and regional web resources for over 200 cities around the world. See the list of cities and countries for which GeoDig provides locality-specific web resources.
North America USA - Alabama (AL) > Birmingham; Alaska; Arkansas (AR) > Little Rock; Arizona (AZ) > Phoenix, Las Vegas, Tucson; California (CA) > Los Angeles, San Francisco, Sacramento, Fresno, Bakersfield; Colorado, CO > Denver; Connecticut, CT > Hartford; District of Columbia, DC > Washington DC; Delaware (DE) > Wilmington; Florida > Miami, Orlando, Tampa, Orlando, Sarasota, West Palm Beach, Jacksonville; Georgia > Atlanta; Hawaii > Honolulu; Idaho; Illinois > Chicago; Indiana > Indianapolis; Iowa; Kansas (KS); Kentucky (KY) > Louisville; Louisiana (LA) > New Orleans, Baton Rouge; Maine; Maryland (MD) > Baltimore; Massachusetts > Boston, Springfield; Michigan > Detroit, Grand Rapids; Minnesota > Minneapolis-St. Paul; Mississippi (MS); Missouri (MO) > Kansas City, St. Louis; Montana; Nebraska (NE) > Omaha; Nevada (NV) > Las Vegas; New Hampshire; New Jersey (NJ) > Jersey City, Newark; New Mexico (NM) > Albuquerque; New York > New York, Buffalo, Rochester, Albany, Syracuse; North Carolina (NC) > Raleigh-Durham, Charlotte, Greensboro; North Dakota; Ohio> Columbus, Cincinnati, Cleveland, Toledo, Youngstown, Dayton; Oklahoma (OK) > Oklahoma City, Tulsa; Oregon > Portland; Pennsylvania > Philadelphia, Allentown, Pittsburgh, Harrisburg, Scranton, ; Rhode Island (RI) > Providence; South Carolina (SC) > Greenville; South Dakota; Tennessee (TN) > Knoxville, Memphis, Nashville; Texas > Austin, Dallas, Houston, San Antonio, El Paso, Austin, McAllen; Utah (UT) > Salt Lake City; Vermont; Virginia (VA) > Norfolk, Richmond; Washington > Seattle; West Virginia; Wisconsin (WI) > Milwaukee; Wyoming Canada - Vancouver, Montreal, Toronto, Calgary, Ottawa-Gatineau, Edmonton, Quebec City, Winnipeg, Hamilton, London
Europe - UK - London, Glasgow, Manchester, Birmingham, Liverpool, Sheffield, Leeds, Bristol, Edinburgh, Leicester; France - Paris, Marseille, Lyon, Toulouse, Nice, Nantes, Strasbourg, Montpellier, Bordeaux; Germany - Frankfurt (Frankfurt am Main), Munich (München), Berlin, Düsseldorf, Hamburg, Cologne (Köln), Essen, Dortmund, Stuttgart, Bremen, Duisburg, Hannover, Nürnberg (Nuremberg), Dresden, Leipzig; Italy - Milan (Milano), Rome (Roma), Napoli (Naples), Torino (Turin), Palermo, Bologna, Firenze (Florence), Genova (Genoa); Spain - Madrid, Barcelona, Valencia, Sevilla, Zaragoza, Malaga, Murcia, Las Palmas, Bilbao; Scandinavia - Finland - Helsinki (Helsingin), Espoo, Tampere (Tampereen), Vantaa, Turku, Oulu, Sweden - Stockholm, Goteborg (Göteborg), Malmo (Malmö), Uppsala, Vasteras (Västerås), Denmark - Copenhagen (Københavns), Aarhus (Århus), Odense, Aalborg (Ålborg), Norway - Oslo, Bergen, Stavanger, Trondheim; Benelux - Belgium - Brussels (Brussel), Antwerp (Antwerpen), Ghent (Gent, Gand), Charleroi, Liège (Liege), Netherlands - Amsterdam, Rotterdam, Utrecht, Eindhoven, Tilburg, ‘s-Gravenhage (sGravenhage), Groningen, Luxembourg - Luxembourg City; Portugal – Lisbon; Greece – Athens; Hungary – Budapest; Poland – Warsaw; Switzerland - Zürich (Zurich), Geneva (Geneve, Genève), Basel, Bern (Berne), Lausanne; Austria - Linz, Vienna (Wien), Graz, Linz, Salzburg, Innsbruck; Ireland – Dublin
Asia - India - Mumbai, New Delhi, Bangalore; China & Hong Kong - Hong Kong, Beijing, Shanghai, Tianjin, Wuhan, Shenyang, Guangzhou, Harbin, Xian; Japan - Tokyo, Osaka, Yokohama, Nagoya, Sapporo, Kyoto, Kobe, Fukuoka, Kawasaki, Hiroshima; South Korea - Seoul, Pusa, Taegu, Incheon, Taejeon, Taiwan - Taipei; Malaysia - Kuala Lumpur; Singapore; Russia - Moscow, St Petersburg
Middle East - Turkey - Istanbul, Israel - Tel Aviv
Oceania - Australia - Sydney, Melbourne, Brisbane, Perth, Adelaide
Africa - South Africa - Johannesburg, Cape Town, Durban
|
Web Co-ordinator: Narasimhan Santhanam ( narsi@esource.in )
© 2004 – 05, From Mainframes.in – Home of Legacy & Mainframes Online