/* search FDR database */ signal on syntax trace o cgi = 'SEARCH'; vers = '1.2'; errto = 'STMK@VM.MARIST.EDU' e1 = time('R') cmdstat1 = fdrstats() /* vtime ttime reads writes sios */ 'REXX FDRHTTP' cgi vers search = getvar('SEARCH') type = getvar('TYPE') aname = getvar('ANAME') imonth = getvar('IMONTH') iday = getvar('IDAY') iyear = getvar('IYEAR') onyr = getvar('ONYR') aname = fdresc(aname) if (search = 'yes') then do CELLFORM = 'LID;16-DATE;10-TITLE;512-', 'PHOTONUM;10-FILEID;12' 'OUTPUT

Search FDR

' 'OUTPUT ' 'OUTPUT ' , '' , '' , '' , ' ', '' , '' if (type == "title") then srch = "(TITLE like '%"aname"%')" else do if (onyr == "1") then srch = "(DT1 like '%"iyear"')" else srch = "(DT1 = '"imonth"/"iday"/"iyear"')" end /* else */ sel = "SELECT * from FDR.WWIIV where" srch 'OUTPUT' '' "CALLPIPE (name search03) sql noind release" sel , '| spec 1-16 1' , /* lid char 16 */ ' 17-27 17 ' , /* dt1 char 10 */ ' 29-541 27' , /* title varchar 512 */ ' 542-544 strip C2D 539 left' , /* photonum int */ ' 545-* 549' , /* fileid char 12 */ "| rexx stempros "CELLFORM"%&%TITLE" , "| change /\// |*: " 'OUTPUT
Library IDDateTitlePhoto NumPhoto
' end /* search */ else do 'CALLPIPE (name search04) < HEADER RESPON | *:' 'OUTPUT
' 'OUTPUT

Search by TITLE

' 'OUTPUT
' 'OUTPUT ' 'OUTPUT ' 'OUTPUT Title:
' 'OUTPUT
' 'OUTPUT
' 'OUTPUT

Search by DATE

' 'OUTPUT
' 'OUTPUT ' 'OUTPUT ' 'CALLPIPE (name search05) datepop i |*:' 'OUTPUT
' 'OUTPUT Search by year only' 'OUTPUT
' 'OUTPUT
' end /* else */ /* 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 '' Error: errrc = rc signal off error 'OUTPUT' 'Error' , 'Sorry, ' cgi ' has' , 'experienced a serious error.' , 'If the error persists, contact ' , 'Error Report' errsigl = sigl 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 errtxt = errortext(errrc) srcline = sourceline(errsigl) 'OUTPUT' "" "OUTPUT" '' exit 0 DumpIt: fn = cgi oft = 'REXXVARS' ofm = 'W' ft = 'CGI' userid = userid() date = date('S') time = time() Address Command 'CP MSG HARRY' cgi 'Abend' Address Command 'PIPE LITERAL' fn ft 'Variables:', '| >' fn oft ofm Address Command 'PIPE REXXVARS', '| DROP FIRST 1', '| SPECS WORD 2-*', '| join /=/' , '| preface Literal ' , '| >>' fn oft ofm exit