/* 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 type = getvar('TYPE') fp = 'FDRWEB:' fs = 'FDRNEW.' ofm = fp||fs'EWEB.MARIST.' 'OUTPUT' '' 'OUTPUT' '
' address command 'ACCESS' fp||fs'.UTIL T' 'CALLPIPE CMS CHKPSF | > CHKPSF TXT' ofm 'OUTPUT' 'Command completed' 'OUTPUT' '' /* suffix */ e2 = time('R') 'REXX FDRCLEAN' cmdstat1 e1 e2 'OUTPUT