访问Progress 4GL中的主块中的变量

Question

如果我在内部过程中并且内部过程定义了具有相同名称的变量，是否有一种方法可以从主块访问变量?

例如:

define variable myVariable as integer no-undo.
procedure myProcedure1:
message "myProcedure1:" myVariable.
end.
procedure myProcedure2:
define variable myVariable as integer no-undo.
message "myProcedure2:" myVariable.
end.
myVariable = 123.
run myProcedure1.
run myProcedure2.

Answer 1

No。我们无法在定义变量的情况下做到这一点在过程中使用相同的名称。但是，您可以将变量重新定义为参数:

define variable myVariable as integer no-undo.
procedure myProcedure1:
message "myProcedure1:" myVariable.
end.
procedure myProcedure2:
define variable myVariable as integer no-undo.
message "myProcedure2:" myVariable.
end.
procedure myProcedure3:
define input parameter p1 as integer no-undo.
define variable myVariable as integer no-undo.
message "myProcedure3:" myVariable p1.
end.
procedure myProcedure4:
define input parameter myVariable as integer no-undo.
message "myProcedure4:" myVariable.
end.

myVariable = 123.
run myProcedure1.
run myProcedure2.
run myProcedure3 ( myVariable ).
run myProcedure4 ( myVariable ).