Вызов процедуры из другого файла

Question

Я пытаюсь вызвать процедуру, которая является другим файлом. То, что я получил, приводит к ошибке:

test.p

DEFINE VARIABLE tmp AS CHARACTER.
      RUN sumWords.p(INPUT "Hello", INPUT "World", OUTPUT tmp).
DISPLAY tmp.

sumWords.p

 PROCEDURE sumWords:
        DEFINE INPUT PARAMETER i_firstWord AS CHARACTER.
        DEFINE INPUT PARAMETER i_secondWord AS CHARACTER.
        DEFINE OUTPUT PARAMETER o_returnWord AS INTEGER. 

        o_returnWord = i_firstWord + i_secondWord.
    END PROCEDURE.

test.p передал параметры в sumWords.p, который не ожидал ничего. (1005)

Answer 1

Вы создали внутреннюю процедуру "sumWords" в "sumWords.p".sumWords.p действительно не ожидает параметров.

Либо измените sumWords.p и удалите строки PROCEDURE sumWords: и END PROCEDURE.

Таким образом, sumWords.p ожидает параметры.

Или сменить абонента:

DEFINE VARIABLE hSumWords AS HANDLE NO-UNDO.

RUN sumWords.p PERSISTENT SET hSumWords. 

RUN sumWords IN hSumWords (INPUT "Hello", INPUT "World", OUTPUT tmp).

DELETE OBJECT hSumWords.