/* 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
' num ' matches returned.' /*%include fdrsuff */ /* suffix */ e2 = time('R') 'REXX FDRCLEAN' cmdstat1 e1 e2 'OUTPUT