如何在progress4gl上將應用程序的字符類型值發送給另一個應用程序？

Question

我一直在嘗試使用define input/output parameter <variable> as character no-undo發送/接收一些值，我在許多論壇上搜索過，但仍然無法使其編譯，但在嘗試運行時遇到錯誤。

有人可能會給我一個解釋，說明我做錯了什麼嗎？

P.S .:我仍然是progress4gl的新手。

這是受理申請：

define input parameter vparam as character no-undo. 

put unformatted "Data:". 
put unformatted vparam. 

這是將應用程序：試圖運行它

define output parameter vparam as character no-undo. 

assign vparam = "It works!". 

錯誤：

.ped傳遞給日常

[路徑到我的應用程序]參數對myApp（碰巧這兩種應用程序）不匹配的數量（3234）

兩個應用程序在同一個地方。

Answer 1

這是它應該是這樣的：

DEFINE VARIABLE chVar AS CHARACTER NO-UNDO. 
ASSIGN chVar = "TEST". 
RUN test(chVar). 

PROCEDURE Test: 
DEFINE INPUT PARAMETER chParm AS CHARACTER NO-UNDO. 

MESSAGE chParm 
    VIEW-AS ALERT-BOX INFO BUTTON OK. 

END PROCEDURE. 

的.P程序的代碼類似於：

/* Program.p */ 
DEFINE INPUT PARAMETER chParm AS CHARACTER NO-UNDO. 
MESSAGE chParm 
    VIEW-AS ALERT-BOX INFO BUTTON OK. 

RETURN. 

和方法來調用這個程序：

DEFINE VARIABLE chVar AS CHARACTER NO-UNDO. 
ASSIGN chVar = "TEST". 
RUN Program.p(chVar). 

對於INPUT-OUTPUT參數 - 您將更改DEFINE PARAMETER和通話，如下所示：

/* Program.p */ 
DEFINE INPUT-OUTPUT PARAMETER chParm AS CHARACTER NO-UNDO. 
MESSAGE chParm 
    VIEW-AS ALERT-BOX INFO BUTTON OK. 

RETURN. 

，並調用這個過程的方式：

DEFINE VARIABLE chVar AS CHARACTER NO-UNDO. 
ASSIGN chVar = "TEST". 
RUN Program.p(INPUT-OUTPUT chVar).