/IF NOT DEFINED (OUTSTREAM_QRPGLEH)
      /DEFINE OUTSTREAM_QRPGLEH
     /*===================================================================*/
     /*  OUTSTREAM                                                        */
     /*     schreiben Streamfile                                          */
     /*     analog zu FileOutputStream                                    */
     /*-------------------------------------------------------------------*/
     d setOutStream    pr              n   EXTPROC('setOutStream')
     /* checks access if exists try to open                               */
     /*     if not exists, create and open in textmode                    */
     D path                         128a   value
     d                                     varying
     /*-------------------------------------------------------------------*/
     D writeStream     pr              n   EXTPROC('writeStream')
     /* opens streamfile, if not opened and writes up to 1024 byte of data*/
     /* may buffer, don't forget close at end                             */
     d buffer                      1024a   value
     d length                        10i 0 value
     d                                     options(*nopass)
     /*-------------------------------------------------------------------*/
     D writeLnStream   pr              n   EXTPROC('writeLnStream')
     /* opens streamfile, if not opened and writes up to 1024 byte of data*/
     /* adds CRLF at end of line, may buffer                              */
     d buffer                      1024a   value
     d length                        10i 0 value
     d                                     options(*nopass)
     /*-------------------------------------------------------------------*/
     D closeStream     pr              n   EXTPROC('closeStream')
     /* writes buffer (if used) and close of Streamfile                   */
     /*-------------------------------------------------------------------*/
      /ENDIF