/* FDR Day by Day Search by keyword. * * ChangeLog: * 10/18/00 - stsf got rid of literal variable. * 10/10/00 - ahw - use standard cgi entry/exit conventions * 9/14/00 - stsf coded. */ /* signal on error */ signal on syntax 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 keyword=getvar('KEY') keyword=translate(keyword) keyword=fdresc(keyword) q_string="SELECT ", "starttime,date,src1,src2,location,endtime,description", "FROM FDR.DAYBYDAY WHERE", "udescription like '%Sumner Welles%'" output '

FDR:Day By Day-The Pare Lorentz Chronology

', '
', '', '', '', '', '', '', '' "CALLPIPE sql noind release" q_string, " | specs g: 77-81 strip c2d . ", " \\ next ", " \\ next ", " \\ next ", " \\ next ", " ¼¼ next ", " | change /^/'/ ", " | *: " output '
TimesSourceLocation
\ next ", " 1-6 strip c2d next \-\ next 77-80 c2d next ", " \

\ next ", " 85-* next ", " \

\ next ", " 9-18 next ", " \

\ next ", " 35-74 next ", " \

¼ next ", " 21-25 next \ - \ next 28-32 next ", " ¼

' if rc <> 0 then signal sqlerr /*%include fdrsuff */