DEFINE VARIABLE hs AS HANDLE      NO-UNDO.
DEFINE VARIABLE retorno AS CHARACTER   NO-UNDO.

CREATE SERVER hs.
IF hs:CONNECT("-URL http://localhost:20010/apsv -sessionModel Session-free") THEN DO:
    RUN info-pasoe.p ON SERVER hs.
    ASSIGN retorno = RETURN-VALUE.    
    hs:DISCONNECT().
    DELETE OBJECT hs.
END.

MESSAGE retorno
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.