将自变量传递给子程序

可传入子例程的自变量类型有数值、变量、文本字符串和特征名称。若要将值传递至自变量中，在自变量编辑对话框的值框中键入一个值，或在命令模式下直接键入插入的 CALLSUB 命令。

能够传递回数据的自变量是变量。如果将变量用作子例程的自变量，对相应变量进行的任何更改都将传回，成为已传入的变量的值。

传递变量的示例：

该实例叙述了一个变量值是如何作为一个自变量在子程序中被使用，修改以及从子程序中传递回来的：

变量赋初值为6

ASSIGN/V1=6.

子程序中调用V1做为第一个自变量：

CS1 =CALLSUB/MYSUB,:V1,,,

子程序定义如下：

SUBROUTINE/MYSUB,

A1=0:FIRST ARGUMENT,

ASSIGN/A1=A1+1

ENDSUB/

A1是第一个自变量的名字因此当进行调用时，当调用次数相同时A1将会有与V1相同的值，6。

子程序包含了一个声明：

ASSIGN/A1=A1+1。

A1的值增量可以到7

然后，子例程将以 ENDSUB/ 命令结束。

执行流会直接返回至调用子程序命令行。做为执行跳转回来，在这个程序中任何变量做为自变量 V1，会更新成符合当前子程序中的变量值，在此程序中的 A1。因此，V1 现在得到了一个值 7。此值是从子例程传回。

传递数值的示例：

此样例显示了如何在子程序中传递数字值。它不能同时传递两个数值然后并且添加它们。

CS1=调用子程序/求和_数字，：,,,

CS2=调用子程序/求和_数字,:5,10,,

子程序/求和_数字，

NUM1=1：第一个数字，

NUM2=1：第二个数字，

命令/操作者，否，“第一个数字求和，”＋NUM1+”，加上第二个数字，“＋NUM2+，是：”

,NUM1 + NUM2

终止子例程/

在第一个CALLSUB命令 (CS1) 中，没有数字值传递到子程序中。NUM1 的默认值为 1，NUM2 的默认值为 1，因此产生的和为 2。

在第二个CALLSUB命令 (CS2) 里两个数字值被传递，5 和 10。因此 NUM1 就是 5 以及 NUM2 就是 10，求和之后就是 15。

自变量同样可以是文本字符。传递一个文本字符，确保文本字符特征处于双引号标记。

传递文本字符的示例：

该样例显示了如何传递字符值到子程序中。它传递了两个字符值到两个参数中然后在报告中显示它们：

CS1＝调用子程序/获得_操作者_信息,:"BOB JONES","MORNING",,

...

子程序/得到_操作者_信息

操作者名称＝<操作者>：操作者名称，

转换＝<转换>：转换时间，

命令/回调，操作者名称

命令/回调，转换

终止子例程/

第一个自变量，OPNAME 收到传递过来的值 "BOB JONES" 然后第二个自变量，转换收到 “MORNING”。然后 COMMENT 命令将传递的字符串传送至检验报告。

特征名称在大括号内传递。例如，您可以使用 {F1} 在编辑窗口中调用指定为 F1 的特征。此外，当您传递特征名称时，子程序可以完全访问该特征。

传递特征名的示例：

该样例将在特征名PNT1中的变量传递到子程序中，使你的子程序完成特征的传递。如果没有特征传递过去则使用特征的默认名称F1。然后该子程序会询问你一个新的值用来改变特征的X的理论值。

CS1=调用子程序/更改_理论值_X,:{PNT1},,

子程序/更改_理论值_X，

FEAT1={F1}：传递特征名，

C1 =命令/输入，否，"传递特征:"

，FEAT1

，“当前 X 理论值为：” + FEAT1.TX

,"输入新X理论值:"

ASSIGN/FEAT1.TX=C1.INPUT

COMMENT/OPER,NO,“特征更新为” + FEAT1.TX

终止子例程/

由于使用子例程可访问传递的特征，因此语句 ASSIGN/FEAT1.TX = C1.INPUT 可修改 PNT1 实际特征的 X 理论值。PNT1 将永久更改其 X 理论值。