/*--------------------------------------------------------------------*/
/* COPY REXX: Skeleton stage that may delay one record                */
/* Steve Hayes (TSGSH at GFORD1, tsgsh@vnet.ibm.com)       1997-03-20 */
/*--------------------------------------------------------------------*/
trace o                                  /* in case of stall          */
signal on novalue                        /* No uninitialised varibles */
signal on failure                        /* Allow RC > 0 for a moment */
'MAXSTREAM INPUT'                        /* Check only one stream     */
signal on error                          /* now stop for any error    */
if RC /= 0 then 'ISSUEMSG 264 PIPSJH'    /* too many streams: crash   */
'EOFREPORT ALL'                          /* propagate EoF back        */
do forever                               /* until EOF                 */
  'READTO record'                        /* read from primary input   */
  'OUTPUT' record                        /* write to primary output   */
  end                                    /* next record               */
failure:
error:
exit (RC * (RC /= 12 & RC /= 8))         /* RC = 0 if EOF             */