| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 |
- /*------------------------------------------------------------------------
- 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.
|
