如何在Mac os X上的MUMPS中创建子例程

Question

我正在启动一个项目，我需要了解马萨诸塞州总医院实用程序多编程系统MUMP的一些阅读知识。我已经设法让它在我的OS X El Capitan电脑上运行。我可以做一些简单的事情，但似乎无法创建一个简单的子程序。根据我能找到的规范，一个子程序是由一个标签创建的，然后是以制表符或空白和指令开头的行，这样

HELLO
   WRITE "Hello, World!",!
   QUIT

将是一个我可以使用调用的子程序

DO HELLO

当我尝试输入它时，它会立即执行WRITE语句。

此外，许多例子的形式是：

DEMO 
   Kill For i=1:1:10 SET Ary(i)=i*2
   DO Average Write !,"Average=",AVG
   KILL Ary,AVG,i
   QUIT
Average  SET Sum=0;
   ;  Do something here
   QUIT

当我开始键入DO Average行时，我得到一个错误，即Average没有定义。

关于如何进入子程序有什么想法吗？

Answer 1

首先，在Kill和For之间，应该有1个以上的空间，如果只有一个空间，那么For就变成了一个变量，应该被杀死。那么，当您识别出命令DO Average的UNDEFINED错误时，您就错了，在同一行中还有另一个UNDEFINE错误，它是AVG变量，在您的代码中它实际上是未定义的
如果您刚刚开始理解MUMPS语言，我建议您将每个命令都写在单独的一行上。