{ last2.ace  

This is a compilable script to generate a System Alarm Messages report.
for the last 2 days on a 50/51 station. 
Report will be produced to:  /opt/ac/last2.out
 
Initial version developed 09Jun95, by Angel Corbera, Refinery Isla
}

database
    hhhhhh	{ Historian Name }
end

DEFINE
	variable  cday  smallint	{current day}
	variable  pday  smallint	{previous day}
	variable  ppday  smallint	{day before yesterday}
	variable  cmonth smallint	{current month}
	variable  pmonth smallint	{previous month}
	variable  dia  smallint		{day}
	variable  mes  smallint		{month}
END

output
    report to "/opt/ac/last2.out" 
    left margin 0
    top  margin 0
    bottom margin 0
end

select time_tag, msg_key, station, src_name, text 
    from sysmonmsg
    order by msg_key desc
end

format
 FIRST PAGE HEADER
	LET cday = DAY(CURRENT)
	LET pday = DAY(CURRENT - INTERVAL(1) DAY TO DAY)
	LET cmonth = MONTH(CURRENT)
	LET pmonth = MONTH(CURRENT - INTERVAL(1) MONTH TO MONTH)
	print "THE FOLLOWING REPORT IS FOR Thermal Cracker SYSTEM (Last 2 days ONLY)"
	print
	print "TODAY     =", cday
	print "YESTERDAY =", pday 
	print
    on every row
	IF time_tag[9,10] = "01" THEN LET dia = 1
	IF time_tag[9,10] = "02" THEN LET dia = 2
	IF time_tag[9,10] = "03" THEN LET dia = 3
	IF time_tag[9,10] = "04" THEN LET dia = 4
	IF time_tag[9,10] = "05" THEN LET dia = 5
	IF time_tag[9,10] = "06" THEN LET dia = 6
	IF time_tag[9,10] = "07" THEN LET dia = 7
	IF time_tag[9,10] = "08" THEN LET dia = 8
	IF time_tag[9,10] = "09" THEN LET dia = 9
	IF time_tag[9,10] = "10" THEN LET dia = 10
	IF time_tag[9,10] = "11" THEN LET dia = 11
	IF time_tag[9,10] = "12" THEN LET dia = 12
	IF time_tag[9,10] = "13" THEN LET dia = 13
	IF time_tag[9,10] = "14" THEN LET dia = 14
	IF time_tag[9,10] = "15" THEN LET dia = 15
	IF time_tag[9,10] = "16" THEN LET dia = 16
	IF time_tag[9,10] = "17" THEN LET dia = 17
	IF time_tag[9,10] = "18" THEN LET dia = 18
	IF time_tag[9,10] = "19" THEN LET dia = 19
	IF time_tag[9,10] = "20" THEN LET dia = 20
	IF time_tag[9,10] = "21" THEN LET dia = 21
	IF time_tag[9,10] = "22" THEN LET dia = 22
	IF time_tag[9,10] = "23" THEN LET dia = 23
	IF time_tag[9,10] = "24" THEN LET dia = 24
	IF time_tag[9,10] = "25" THEN LET dia = 25
	IF time_tag[9,10] = "26" THEN LET dia = 26
	IF time_tag[9,10] = "27" THEN LET dia = 27
	IF time_tag[9,10] = "28" THEN LET dia = 28
	IF time_tag[9,10] = "29" THEN LET dia = 29
	IF time_tag[9,10] = "30" THEN LET dia = 30
	IF time_tag[9,10] = "31" THEN LET dia = 31
	IF time_tag[6,7] = "01" THEN LET mes = 1
	IF time_tag[6,7] = "02" THEN LET mes = 2
	IF time_tag[6,7] = "03" THEN LET mes = 3
	IF time_tag[6,7] = "04" THEN LET mes = 4
	IF time_tag[6,7] = "05" THEN LET mes = 5
	IF time_tag[6,7] = "06" THEN LET mes = 6
	IF time_tag[6,7] = "07" THEN LET mes = 7
	IF time_tag[6,7] = "08" THEN LET mes = 8
	IF time_tag[6,7] = "09" THEN LET mes = 9
	IF time_tag[6,7] = "10" THEN LET mes = 10
	IF time_tag[6,7] = "11" THEN LET mes = 11
	IF time_tag[6,7] = "12" THEN LET mes = 12
	IF (dia = cday AND mes = cmonth) OR 
 	   (dia = pday AND mes = cmonth) OR 
	   (cday = 1 AND dia = pday AND mes = pmonth) THEN
	  BEGIN
           print
            column 1, time_tag[12,19] clipped,
            column 10, time_tag[9,10] clipped,
            column 12, "/",
            column 13, time_tag[6,7] clipped,
            column 15, "/",
            column 16, time_tag[3,4] clipped,
	    column 23, station clipped,
            column 35, src_name
	   print 
	    column 5, text
	   print
	  END
end