进步OpenEdge简单的实用程序与输入参数

Question

我有一个.p文件，我在unix控制台中运行它。我喜欢它。因为它只是一个简单的工具来运行。这很简单，并帮助我学习。

现在我开始变得更加花哨。我想知道如果我可以做一个.p文件的输入参数？

这是我通常运行我的.p文件。

现在，如果test.p需要2个参数..我该怎么做在.p？以及如何在控制台中运行它？

这就是我在test.p和dOrd中所具有的，dLocation是我想要的输入参数。

output to /usr2/appsrv/test/test.txt. 
def var dOrd like Ord.Ord. 
def var dLocation like Ord.Ord. 
find OrdCSRef no-lock where OrdCSRef.Ord = dOrd and OrdCSRef.Loc = dLocation no-error. 
if available OrdCSRef then do: 
    put unformatted OrdCSRef.CSOrdRef skip. 
end. 
else 
    put unformatted "Create CSOrdRef" skip. 
end. 
output close. 

我在unix控制台中试过以下语法。但显然它不会工作。

Answer 1

输入参数是你在找什么。更改test.p如下，然后运行它为 “RUN /usr2/appsrv/test/test.p（” ARG1" ， “ARG2”）”

output to /usr2/appsrv/test/test.txt. 
def input parameter dOrd like Ord.Ord. 
def input parameter dLocation like Ord.Ord. 
find OrdCSRef no-lock where OrdCSRef.Ord = dOrd and OrdCSRef.Loc = dLocation no-error. 
if available OrdCSRef then do: 
    put unformatted OrdCSRef.CSOrdRef skip. 
end. 
else 
    put unformatted "Create CSOrdRef" skip. 
end. 
output close.