ADSM-L

Re: Q the actlog & reporting

2000-02-24 04:55:09
Subject: Re: Q the actlog & reporting
From: Luuk Kleibrink <luuk_kleibrink AT DELTALLOYD DOT NL>
Date: Thu, 24 Feb 2000 10:55:09 +0100
John,

I had the same problem. I don't think it's possible to get the messages,
including time and date on one line. I use Rexx to post-process the output. Part
of the coding looks als follows:

(the output is loaded in a stem-variable called adsmlog.)

do i = 1 to adsmlog.0
   if substr(adsmlog.i,1,10) = 'Date/Time:' then
      do
      DateE = substr(adsmlog.i,15,2)'-'substr(adsmlog.i,12,2)'-' ||,
              substr(adsmlog.i,18,4) /*format dd-mm-yyyy */

      DateS = substr(adsmlog.i,18,4) || substr(adsmlog.i,12,2) ||,
              substr(adsmlog.i,15,2) /*format yyyymmdd */

      Tijd  = substr(adsmlog.i,23,8)
      end
   if substr(adsmlog.i,1,10) = '  Message:' &,
      substr(adsmlog.i,12,7) >= 'ANE4952' &,
      substr(adsmlog.i,12,7) <= 'ANE4968' then
      do
      j = i + 1
      msg = strip(substr(adsmlog.i,12)) ||,
            strip(substr(adsmlog.j,12),"T") /*two-line message in one variable*/
      call ProcessMessage
      end
end

Hope this helps,

Luuk Kleibrink
Delta Lloyd Nuts Ohra
<Prev in Thread] Current Thread [Next in Thread>