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