EXECPROCEAGRTPRC Compiled REXX 3.0 16 Apr 2001 13:23:45 CMS REXXC370 4.00 27 Oct 1994 LVL PN83402 FINDAID SCGI U1  ٰ}^&uj&֏& j &Q0&S0i00&y}銏j 醠i h-0{\0 &&& q} 0 hhmD}  48*8"  }}&i\<u hH& i ȣ&kP0AM\0QO0A\0{R-Q0A\0{RqP0A\0{0{\0@Q0{\0 i d{%0{\00{\0 i d}N0{\0 h0{\00{\00{4\0 i Ȣ\0{\0ϵPY0A\0Ǡ i ȣ|0{\0آ has experienced a serious error. If the error persists, contact FINDAID RAW W | spec 1-100 1 101-104 c2d 101 107-* nw | > FINDAID RAW2 W | c: count lines | rexx stempros  --> in line  Running on  matches returned.-->-1-900%&%FINDAID | change /\// |*: ? c: | var num%': ">Error Reportform.sub.1sqlBADCALLPIPE (name f03 end ?) sql noind release CALLPIPE (name sqlerr) SQLCODES | VAR cgi_sqlcodesCHARCOLLECTION_NAME;100-BOX;11-JUNK;1-TITLE;255- STARTDAY;2-STARTMO;10-STARTYR;4-ENDDAY;2-ENDMO;10-ENDYR;4COMMANDCP IPLE ENGINEERING EXEC FDRCDUMPFDRESCFDRSTATSFINDAIDLITNNUMO OUTPUT ' "CALLPIPE (name f03 end ?) sql noind release" sel ,"| > FINDAID RAW W" ,"| spec 1-100 1 101-104 c2d 101 107-* nw" ,"| > FINDAID RAW2 W" , "| c: count lines" , "| rexx stempros "CELLFORM"%&%FINDAID" , "| change /\// |*: " , "?" , "c: | var num" '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' 'Erro r' , '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' \m-  M D - %-&0 00 &M U h%  q yq \ Q - % { HQY8-}<-mH@Q   u    4    & -    y  4  %  Q YhqyH 0Q0YM 80 \@ -q@\ǵq@qu&\%\&8