/* search FDR database */ signal on syntax trace o cgi = 'FINDVAT'; vers = '1.2'; errto = 'STMK@VM.MARIST.EDU' e1 = time('R') cmdstat1 = fdrstats() /* vtime ttime reads writes sios */ 'REXX FDRHTTP' cgi vers keyword = getvar('KEYWORD') CELLFORM = 'COLLECTION_NAME;50-SERIES;50-JUNK;2-DOC_NAME;255-', 'JUNK;2-DOCUMENT;32767-JUNK;2-SEE_ALSO;255' "OUTPUT " keyword = translate(keyword) keyword = fdresc(keyword) sel = "SELECT " , "collection_name, series, doc_name, document, see_also" , "from FDR.NEWVAT where" , "UDOCUMENT LIKE '%"keyword"%'" 'OUTPUT' '' "CALLPIPE (name findvat03 end ?) sql noind release" sel , "| c: count lines " , "| rexx stempros "CELLFORM"%&%FINDVAT" , "| change /\// |*: " , "?" , "c: | var num" if rc <> 0 then signal sqlerr 'OUTPUT

' num ' matches returned.' /*%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'