/* IUCV echo server.                                                 */
/*                               John Hartmann  12 Apr 2002 16:21:23 */
 
/*********************************************************************/
/*         (c) Copyright IBM Corp 2002; all rights reserved.         */
/*   An unmodified version of this file may be freely distributed.   */
/*********************************************************************/
 
Signal on novalue
 
say 'Starting Echo'
'callpipe (end \ name IUCVECHO.REXX:5)',
   '\*:',
   '|i:fanin',
   '|('arg(1)')iucvdata',
   '|cons',
   '|elastic',
   '|i:'
say 'Echo RC' RC
exit RC