home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / m / mkcron.zip / CRN_PROT.PRG < prev    next >
Text File  |  1992-09-01  |  1KB  |  43 lines

  1. #pragma STACK-
  2. #pragma RANGE-
  3. #pragma W_FUNC_PROC-
  4.  
  5. #include MKFILE.HDR
  6.  
  7. VARDEF EXTERN
  8.    LOGICAL      use_log_file
  9.    CHAR( 128 )  log_file
  10. ENDDEF
  11.  
  12.  ******************************************************************************
  13.  *                                                                            *
  14.  *  Programm        : MKCRON V1.0                         (C) 1992 Kalkhoff   *
  15.  *  Modul           : CRN_PROT.PRG                                            *
  16.  *  Autor           : M.T. Kalkhoff                                           *
  17.  *  letzte Änderung : 07.09.92                                                *
  18.  *                                                                            *
  19.  *  Aufgabe         : Mittels der routine CRONPROTOKOLL wird ein fortlaufen-  *
  20.  *                    des Protokoll aller Task Aufrufe erstellt.              *
  21.  *                                                                            *
  22.  ******************************************************************************
  23. PROCEDURE CronProtokoll
  24.    PARAMETERS CONST CHAR txt
  25.  
  26.    VARDEF
  27.       INT  handle
  28.    ENDDEF
  29.  
  30.    IF .NOT. use_log_file
  31.       RETURN
  32.    ENDIF
  33.  
  34.    handle = FOpen( log_file, &OPEN_READWRITE )
  35.  
  36.    IF FError()
  37.       handle = FCreate( log_file, &CREATE_NORMAL )
  38.    ENDIF
  39.  
  40.    FWriteLn( handle, txt, &WRITE_APPEND )
  41.    FClose( handle )
  42.  
  43. ENDPRO