martes, 12 de febrero de 2019

Progress - Ejecutar Proceso

Un archivo .p

DEFINE INPUT  PARAMETER cvarcuentas    AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER iPer           AS INTEGER    NO-UNDO.
DEFINE INPUT  PARAMETER iYrP           AS INTEGER    NO-UNDO.
DEFINE INPUT  PARAMETER pctagsistema   AS CHARACTER  NO-UNDO.
DEFINE OUTPUT PARAMETER lError         AS LOGICAL INIT FALSE NO-UNDO.     
DEFINE OUTPUT PARAMETER cError         AS CHARACTER INIT "" NO-UNDO.


Llamando un archivo .r resultado, del archivo compilado .p.


RUN pCrea.r ON SERVER hAppsistem (INPUT   "19.1000",       
                                                 INPUT   28,                                           
                                                 INPUT   2019,                                           
                                                 INPUT   pcTagSistema,                                 
                                                 OUTPUT   plReturn,                                     
                                                 OUTPUT   pcReturn) NO-ERROR.                           

No hay comentarios:

Publicar un comentario