/*------------------------------------------------------------------------
    File        : call-test.p
    Purpose     : Ran by test suite to check calling external procedure.
  ----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */

/* ********************  Preprocessor Definitions  ******************** */


/* ***************************  Main Block  *************************** */
define input         parameter inInt     as integer   no-undo.
define output        parameter outStr    as character no-undo.
define output        parameter outDate   as date      no-undo.
define input-output  parameter ioutStr   as character no-undo.

outStr = string(inInt).
outdate = today.
ioutstr = ioutstr + ' world!'.