?TACL MACRO
#FRAME
[#IF NOT [#PROCESSEXISTS $TLOG] |THEN|
   == Define for event collector for log messages
   == if =logger_ems_collector is set to file $NONE rather than
   == a valid process name then no event logging to an event
   == collector will be done by the program.
   ADD DEFINE =LOGGER_EMS_COLLECTOR,CLASS MAP, FILE $0
   == Param indicates how many days to keep log files
   PARAM LOGGER-DATA-KEEP 30
   == Param indicates security to be set when logfiles created
   PARAM LOGGER-DATA-SECURITY NOOO
   == Assign to define the log file structure
   ASSIGN LOGGER-DATA-FILE,$SYSTEM.TACLLOG.T,CODE 0,EXT (50,50), &
        REC 132, BLOCK 4096
   == Start the logger task
   RUN $SYSTEM.TACLLOG.MSGLGOBJ /NAME $TLOG, CPU 1,NOWAIT,PRI 130/ 0
   == Clean up
   DELETE DEFINE =LOGGER_EMS_COLLECTOR
   CLEAR ALL ASSIGN
   CLEAR ALL PARAM
|ELSE|
   #OUTPUT TACL LOGGER TASK $TLOG IS ALREADY RUNNING.
]
#UNFRAME
