EXECPROCEAGRTPRC Compiled REXX 3.0 23 Mar 2001 12:41:23 CMS REXXC370 4.00 27 Oct 1994 LVL PN83402 FINDBROW SCGI X1  ٰ}^&uj&֏& j &Q0&S0i00&y}銏j 醠i h-0{\0 &&& q} Y& MquHQm Y*H0"  }}+qi 0 HH\\8 i Ȣ&kP0AM\0QO80A\0{RQ0A\0{RȠP0A\0{0{\0@Q*0{\0 i d0{\00{\0 i dؠN0{\0 h0{\00{\00{4\0 i װ0{\0ϵO0A\0Ǡ i Ȣp0{\0آ<0A\0Oq0A\0{؎0{\0N ع0A\0 i du0{\00{\00{4\0 i d׽QY0{\00{\0РN0{\0N-0{\0N%0{\0Ǡ i dHN0{\0 h0{\00{\00{4\0 i d0N0{\0h0{\00{\00{4\0QQmN0{\0ط i Ȣ0A\0 i dN0{\0 h0{\00{\00{4\00{\0@Q0{\0 i dN0{\0 h0{\00{\00{4\0Ph0{\00{\00{4\0<'Q0A \0m"0{0\00{\0ؗ N0{\0 N0{\0عQ0{Y\00{4\0؆Q 0{\0젰P4gN0{\0اR i Ȣ0A\0-&0N <'N 0A \0m"0{0\00<'Nd0A \0m"0{0\00{\0RQm0A\0R4R0A\0RP}0A\0{Oȏh0{\00{\00{4\0ORN0{\0ا8OuO0{\00{\00{4\0 i Ȣ%0A\00{\0RQm0A\0k i dN0{\0h0{\00{\00{4\0R4R0A\0؍R0{\0 i Ȣ%0A\00{\0RQm0A\0k i dN0 {\0h0{\00{\00{4\0R4R0A\00{\0k k؍40{\0&N0{\00{\0РN-0{\0N%0{\0 i d%N0{\0h0{\00{\00{4\0P has experienced a serious error. If the error persists, contact  in line  Running on  matches returned.-->-1-900%&%FINDBROW | change /\// |*: ? c: | var num: '">Error Reportform.sub.1sqlBADCALLPIPE (name findbrow03 end ?) sql noind release CALLPIP E (name sqlerr) SQLCODES | VAR cgi_sqlcodesCHARCOLLECTIONCOLLECTION_NAME;100-JUNK;2-TITLE;255- JUNK;2-DESCRIPTION;32767COMMANDCP IPLE ENGINEERING EXEC FDRCDUMPFDRESCFDRSTATSFINDBROWLITNNUMO OUTPUT ' "CALLPIPE (name findbrow03 end ?) sql noind release" sel , "| c: count lines " , "| rexx stempros "CELLFORM"%&%FINDBROW" , "| 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  \ D - %&Y 0Y  U h*   y m 4  Q - % { \0Y-dm@u 4<*%        } U       %     < *  m   U%* ֵ*mܵ YYY<*QdqQ{MY 4ܵQ