Summary

###########################################################################

	File:     rexx.icn

	Subject:  Procedures to communicate between Icon and Rexx

	Author:   Alan Beale

	Date:     April 8, 1990

###########################################################################

   This file is in the public domain.

###########################################################################

  This package can also be used on MVS to communicate with the TSO CLIST
  languages, but some messages may not be appropriate.  The functions
  rexxvar, rexxset, rexxdrop and rexxnext must be installed in the extcall
  module of iconx for these procedures to do anything useful.

     These procedures provide an interface between Icon and Rexx:

     RexxActive()    fails if no Rexx (or EXEC2) EXEC is active, else
                     returns &null.

     RexxVar(var)    returns the value of a Rexx variable, or fails if
                     the variable is not defined.  Any other errors
                     detected by the Rexx interface cause run-time
                     error 500, and print an error message if errors
                     are not trapped.  If errors are not trapped, the
                     message is in &errorvalue.

     RexxSet(var, val) stores a new value in a Rexx variable (or
                     creates the variable if it does not exist).
                     Returns &null if successful.  Errors are handled
                     as by RexxVar.

     RexxDrop(var)   drop a Rexx variable.  Returns &null if
                     successful.  If the variable does not exist,
                     no action is taken, and &null is returned.
                     Errors are handled as by RexxVar.

     RexxAll()       returns a Rexx table whose keys are all the
                     currently defined Rexx variables, and whose
                     elements are their values.  Errors are handled
                     as by RexxVar.

###########################################################################

  Requires:  CMS or MVT

###########################################################################

This file is part of the (main) package.

RexxActive()

 return whether an EXEC is active

RexxAll()

 return a table of all Rexx variables

RexxDrop(var, value)

 drop a Rexx variable

RexxSet(var, value)

 assign to a Rexx variable

RexxVar(var)

 return the value of a Rexx variable