Rexx 与 AIX

核心提示： 这种可移植性意义重大，其中一个方面是如果您在某个计算机或网络上使用 Rexx 工作，Rexx 与 AIX(3)，则无论您到其他任何位置，也都可以应用这些知识，Rexx 的部分要旨就是要与其主机操作系统的命令行环境紧密集成，Rexx 会将每个无法解析为分配或指令的语句视为“本机&

这种可移植性意义重大，其中一个方面是如果您在某个计算机或网络上使用 Rexx 工作，则无论您到其他任何位置，也都可以应用这些知识。对于既负责大型机、又负责小型系统的人而言，由于这两种系统在编程或维护模型方面缺乏共同点，因此这种可移植性就显得格外重要。

与操作系统集成

让我们看看清单 1 还给我们提供了什么内容。假设您要对报告排序；Rexx 如何实现此目的呢？

ANSI Standard Rexx 不包括任何排序例程、函数或关键字。这可能会使您感到惊讶，因为多数甚至最简单的应用程序也需要提供排序功能。然而，Rexx 的策划师并未忽略这一现实。实际上，Rexx 的部分要旨就是要与其主机操作系统的命令行环境紧密集成。Rexx 会将每个无法解析为分配或指令的语句视为“本机”命令。要调整清单 1 以产生排序结果，只需编写以下内容：

清单 3. 用 Rexx 对字数统计排序

　　
　　parse arg filein
　　count. = 0
　　do while lines(filein) > 0
　　　　input = linein(filein)
　　　　do n = 1 to words(input)
　　　　　　w = word(input, n)
　　　　　　count.w = count.w + 1
　　　　　　if count.w = 1 then word_list = word_list w
　　　　end
　　end
　　
　　tmpfile = "/tmp/mytempfile"
　　stream(tmpfile, 'c', "open write replace")
　　do i = 1 to words(word_list)
　　　　w = word(word_list, i)
　　　　oneline = w count.w
　　　　call lineout tmpfile, oneline
　　end
　　
　　command = "sort" tmpfile
　　address system command
　　do i = 1 while queued() = 0
　　　　parse pull line
　　　　say line
　　end