EXECPROCEAGRTPRC Compiled REXX 3.0 23 Mar 2001 12:41:22 CMS REXXC370 4.00 27 Oct 1994 LVL PN83402 FINDVAT SCGI X1  ٰ}^&uj&֏& j &Q0&S0i00&y}銏j 醠i h-0{\0 &&& q}  ; hhmD}\  4*D8"  }} 0i00\{ 0} i ȣ&kP0AM\0QO0A\0{RQ0A\0{R@PY0A\0{0{\0hQ0{\0 i d %0{\00{\0 i d&N0{\0 h0{\00{\00{4\0 i -0{\0ϵO80A\0Ǡ i Ȣ0{\0آ<0A\0&O0A\0{P@h0{\00{\ 00{4\0؎0{\0Nع0A\0 i dȠ0{\00{\00{4\0 i dhQ00{\00{\0N0{\0N-0{\0N%0{\0Ǡ i dqN0{\0 h0{\00{\00{4\0 i d{N0{\0h0{\00{\00{4\0Q QN0{\0طڠ i ȣ0A\0 i dQN0{\0 h0{\00{\00{4\00{\0hQ0{\0 i dYN0{\0 h0{\00{\00{4\0Ph0{\00{\00{4\0<'Q 0A \0m"0{0\00{\0ؗN0{\0 N0{\0ع\0{Y\00{4\0؆Q0{\0젰QgN0{\0اàRq i 0A\0-&0N <'N 0A \0m"0{0\00d<'Nd0A \0m"0{0\00{\0R-Q0A\0RܠR0A\0RDP0A\0{Oȏh0{\00{\00{4\0OR-N0{\0ضOqOu0{\00{\00{4\0 i ȢD0A\00{\0R-Q0A\0k i d N0{\0h0{\00{\00{4\0RܠR0A\0؍-RD0{\0 i ȢD0A\00{\0R- Q0A\0k i dN0{\0h0{\00{\00{4\0RܠR0A\00{\0k k؍ܠ0{\0&N0{\00{\0N-0{\0N%0{\0 i dN0{\0h0{\00{\00{4\0P has experienced a serious error. If the error persists, contact  in line  Running on  matches returned.-->-1-900%&%FINDVAT | change /\// |*: ? c: | var num%': ">Error Reportform.sub.1sqlBADCALLPIPE (name findvat03 end ?) sql noi nd release CALLPIPE (name sqlerr) SQLCODES | VAR cgi_sqlcodesCHAR$$COLLECTION_NAME;50-SERIES;50-JUNK;2-DOC_NAME;255- JUNK;2-DOCUMENT;32767-JUNK;2-SEE_ALSO;255COMMANDCP IPLE ENGINEERING EXEC FDRCDUMPFDRESCFDRSTATSFINDVATKEYWORDLITNNUMO 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 *//* 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' '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 srcline = sourceline(errsigl) 'OUTPUT' "" "OUTPUT" '' DumpIt: address command 'EXEC FDRCDUMP'\  M } - %&0 00 &M U m%  @ y@ D Q - % { q<u@DQ %@   h   { Q 4        h  D    h u  } HY8ǵ0̵0hM q0y \@\-q4@D\qq &\%%ص&q