/*------------------------------------------------------------------------
    File        : writeLogfile.p
    Purpose     : 

    Syntax      :

    Description : 

    Author(s)   : walter.riechsteiner
    Created     : Fri Nov 27 10:30:56 CET 2020
    Notes       :
  ----------------------------------------------------------------------*/

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

BLOCK-LEVEL ON ERROR UNDO, THROW.

DEFINE INPUT PARAMETER ipcProgramm      AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipcLogFileName   AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER ipcMessage       AS CHARACTER NO-UNDO.

DEFINE VARIABLE cLogDatei AS CHARACTER NO-UNDO.
DEFINE VARIABLE cMsg      AS CHARACTER NO-UNDO.

DEFINE STREAM strLogFile.

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


/* ***************************  Main Block  *************************** */

        
/*------------------------------------------------------------------------------*/
/* Purpose:                                                                     */
/* Notes:                                                                       */
/*------------------------------------------------------------------------------*/
    
        
cMsg = SUBSTITUTE('&1 &2 &3 -> &4',
    ipcProgramm,
    STRING(TODAY,'99.99.9999'),
    STRING(TIME,'HH:MM:SS'),
    ipcMessage  ).

IF INDEX(ipcLogFileName, '&1') > 0 THEN cLogDatei = SUBSTITUTE(ipcLogFileName, ipcProgramm).
ELSE                                    cLogDatei = ipcLogFileName.
                  
OUTPUT STREAM strLogFile TO VALUE(cLogDatei) APPEND NO-MAP NO-CONVERT.
PUT STREAM strLogFile CONTROL cMsg CHR(13) CHR(10).
OUTPUT STREAM strLogFile CLOSE.