/* 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 '
Times | ', 'Source | ', 'Location | ', '', ' | ', ' |
---|---|---|---|---|
\ next ",
" 1-6 strip c2d next \-\ next 77-80 c2d next ",
" \ | \ next ",
" \\ next ",
" 85-* next ",
" \ | \ next ",
" \\ next ",
" 9-18 next ",
" \ | \ next ",
" \\ next ",
" 35-74 next ",
" \ | \ next ",
" ¼¼ next ",
" 21-25 next \ - \ next 28-32 next ",
" ¼ |