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
|