/*------------------------------------------------------------------------
    File        : call-test-ip.p
    Purpose     : Ran by test suite to check calling internal entries
    				  (function, procedure).
  ----------------------------------------------------------------------*/

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

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


/* ***************************  Main Block  *************************** */
procedure testProc:
   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!'.

end procedure.

function testFunc returns date 
   (inInt as integer, input-output ioutStr as character):
    
   ioutStr = substitute('&1 - &2', ioutStr, inInt).
   
   return today.   
end function.