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

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

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


/* ***************************  Main Block  *************************** */
define input-output  parameter ioutStr   as longchar no-undo.

ioutstr = substitute('~{"in": &1~}':u, quoter(string(ioutStr))).