Erro ao consumir WebService

O código de erro 6025 diz:
"Vector references (parameter <number> of <function>) as output or input-output parameters of a user-defined function or method are not supported. (6025)"


Explica melhor o contexto em que este erro ocorreu.

Por exemplo, o codigo abaixo é para conectar num webservice 4GL:

Código:

DEF OUTPUT PARAMETER conn-appserver-par     AS HANDLE                           NO-UNDO.

CREATE SERVER conn-appserver-par.

conn-appserver-par:CONNECT("-S 5162 -H " + nm-servidor-par + " -AppService " + nm-broker-par) NO-ERROR.

RUN "teste.p" ON SERVER conn-appserver-aux.

conn-appserver-par:DISCONNECT() NO-ERROR.
DELETE OBJECT conn-appserver-par NO-ERROR.

O outro exemplo abaixo é para conectar num webservice não-4GL:

Código:

DEF VAR hWebService                         AS HANDLE   NO-UNDO.

CREATE SERVER hWebService.

hWebService:CONNECT("-WSDL 'http://xxx.com.br/BeneficiarioWs.asmx?wsdl'").

RUN BeneficiarioWSSoap SET hPortType ON hWebService.

/* invoca a operacao */
    RUN BuscaBeneficiarioPorCarteira IN hPortType  (INPUT "0",                                   /* strCdUnimed       */
                                                   INPUT "xxxx",                         /* strCdBeneficiario */
                                                   INPUT "xxxx",                                   /* strAplicacao      */
                                                   INPUT "xxxx",              /* strSenha          */
                                                   INPUT "xxxx",  /* strGUID           */
                                                   OUTPUT BuscaBeneficiarioPorCarteiraResult).    /* retorno */


MESSAGE
STRING(SUBSTR(BuscaBeneficiarioPorCarteiraResult,1,1000))
VIEW-AS ALERT-BOX.

/* fecha conexao */
IF hWebService:CONNECTED()
        THEN
            hWebService:DISCONNECT().

        /* limpa memoria */
        IF VALID-HANDLE(hWebService)
        THEN
            DELETE WIDGET hWebService.


PROCEDURE BuscaBeneficiarioPorCarteira:
  DEFINE INPUT PARAMETER strCdUnimed AS CHARACTER NO-UNDO.
  DEFINE INPUT PARAMETER strCdBeneficiario AS CHARACTER NO-UNDO.
  DEFINE INPUT PARAMETER strAplicacao AS CHARACTER NO-UNDO.
  DEFINE INPUT PARAMETER strSenha AS CHARACTER NO-UNDO.
  DEFINE INPUT PARAMETER strGUID AS CHARACTER NO-UNDO.
  DEFINE OUTPUT PARAMETER BuscaBeneficiarioPorCarteiraResult AS LONGCHAR NO-UNDO.
END PROCEDURE.