代码之家 › 专栏 › 技术社区 › sander

找不到“过程”(293)

progress-4gl openedge

1

sander · 技术社区 · 6 年前

我正在尝试在本地主机上设置的appserver上运行一个过程。

    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.

2 回复 | 直到 6 年前

1

4

jdpjamesp 6 年前

不能在appserver上运行内部过程。您必须将代码放入它自己的.p文件中,并在appserver上运行该文件。.p也必须在appserver的Propath中可用。

2

1

TheDrooper 6 年前

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.