/* * FDR Day by Day Search by date. * * ChangeLog: * 10/16/00 -stsf going to add checking for sql link. * This should get rid of the bottle necking * of these cgis. If the sql link is not * open, the cgi will call the connect function * and re-establish alink. If a link can not * be made(friday night back ups) a message * will be dumped out. Should finish on 10/19/00. * * 10/10/00 -ahw - use standard entry/exit conventions * 9/04/00 -stsf shouldnt have gone out last night. * 8/30/00 -stsf still coding. * 8/29/00 -stsf started. * */ cgi = 'DAY_KEY'; vers='1.2'; errto = 'STMK@VM.MARIST.EDU' e1 = time('R') cmdstat1 = fdrstats() /* vtime ttime reads writes sios */ 'REXX FDRHTTP' cgi vers /* needs to be re-written. Literal variable is highly error prone. */ "CALLPIPE literal " key, " | change x"61" x"6C, " | specs ", "\select starttime, date, description ", "from fdr.daybyday where date like ", "'%\ next 1-* strip next \%'\ next ", " | sql execute ", " | specs ", " \\ next ", " 9-18 next ", " \

\ next ", " \\ next ", " 1-6 c2d next ", " \

\ next ", " \\ next ", " 23-* next ", " \

\ next ", " | literal ", " | literal ", " | literal Times ", " | literal Date ", " | literal ", " | literal ", " | literal

FDR:Day By Day-The Pare Lorentz Chronology

", " | literal ", " | literal ", " | append literal
", " | *: " /*%include Fdrsuff */ /* suffix */ e2 = time('R') 'REXX FDRCLEAN' cmdstat1 e1 e2 'OUTPUT ' exit 0 getvar: arg sub . v = symbol('form.sub.1') If v = 'VAR' then return form.sub.1 else return '' sqlerr: errrc = rc errsigl = sigl errtxt = 'SQL error' 'CALLPIPE (name sqlerr) SQLCODES | VAR cgi_sqlcodes' If errrc = -900 then address command 'CP IPL' signal errcleanup Error: errrc = rc signal off error 'OUTPUT' 'Error' , 'Sorry, ' cgi ' has' , 'experienced a serious error.' , 'If the error persists, contact ' , 'Error Report' errsigl = sigl errtxt = errortext(errrc) signal errcleanup Syntax: errrc = rc signal off syntax 'OUTPUT' 'Error' , 'Sorry, ' cgi ' has' , 'experienced a serious syntax error.' , 'If the error persists, contact ' , 'Error Report' errsigl = sigl errcleanup: signal off error signal off syntax srcline = sourceline(errsigl) 'OUTPUT' "" "OUTPUT" '' DumpIt: address command 'EXEC FDRCDUMP'