/*
   Heading REXX
   Conditional Literal statement to insert headings before first line
   As soon as first record received this will write literal string passed
   if nothing comes in primary input it will write nothing out
   Note: First char is delimiter so heading can be multiline
   eg:  #Heading1#Heading 2#Head3
   would come out of filter as
   Heading1
   Heading 2
   Head3
   Copyright 1998 Mark J. Short, Transparent Solutions, Inc.
 */

parse arg args

signal on novalue
signal on error
args = strip(args)
do k = 1
  'readto in'
      /* if we get one then output args string before input record */
   if k = 1 then do
      parse var args 1 delim 2 args
      do until args = ''
         parse var args head (delim) args
        'output' head
         end
      end
      /* pass on the input record */
  'output' in
   end
novalue:
error:
exit