/* 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 */