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.

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