'procedure' 未找到 (293)

Question

我正在尝试运行在本地主机上设置的应用程序服务器上的程序。

**'testProc' was not found. (293)

    DEFINE VARIABLE hndle AS HANDLE NO-UNDO.
    DEFINE VARIABLE tmp AS CHARACTER NO-UNDO.
    CREATE SERVER hndle.

    PROCEDURE testProc:
        DEFINE OUTPUT PARAMETER o_tmp AS CHARACTER INITIAL "HELLO".
    END PROCEDURE.


    hndle:CONNECT ("-AppService AppServiceName-H localhost").
    RUN testProc ON hndle(OUTPUT tmp).


    hndle:DISCONNECT ().
    DELETE OBJECT hndle.

Answer 1

您不能运行应用服务器上的内部程序。您必须将代码放入其自己的 .p 文件中，并运行放在应用服务器上。 .p 也必须在应用程序服务器的 Propath 中可用。

Answer 2

您正在尝试运行内部程序 'testProc'，而不是程序文件 'testProc.p'。它们必须是两个单独的文件。在您的应用服务器上创建一个 'testProc.p' 文件并将您的逻辑放入其中：

DEFINE OUTPUT PARAMETER o_tmp AS CHARACTER INITIAL "HELLO".

在一个单独的文件中，放入调用 testProc.p 的代码：

DEFINE VARIABLE hndle AS HANDLE NO-UNDO.
DEFINE VARIABLE tmp AS CHARACTER NO-UNDO.

CREATE SERVER hndle.
hndle:CONNECT ("-AppService AppServiceName -H localhost").
RUN testProc.p ON hndle(OUTPUT tmp).

hndle:DISCONNECT ().
DELETE OBJECT hndle.

MESSAGE tmp VIEW-AS ALERT-BOX INFORMATION.

请注意，您的调用程序是运行ning testProc.p，而不是 testProc。运行此代码，您应该会收到一条弹出消息，内容为 "HELLO"。

'procedure' 未找到 (293)

'procedure' not found (293)

progress-4gl

openedge