EXECPROCEAGRTPRC Compiled REXX 3.0 23 Mar 2001 12:41:23 CMS REXXC370 4.00 27 Oct 1994 LVL PN83402 PHOTO SCGI X1  ٰ}^&uj&֏& j &Q0&S0i00&y}銏j 醠i h-0{\0 &&& q}H h } < } } Y 4   Qyu\h "  }} i  --y &HQ- i ȧx&kPm0AM\0RРQ 0A\0{yQU0A\0{\Q0A\0{0{\0ؗR0{\0 i d0{\00{\0 i dN0{\0 h0{\00{\00{4\0 i Ƚ 0{\0ϵQd0A\0Ǡ i ȧ"0{\0آ<0A\0 i Ƚ0{\0ϵQ0A \0Ǡ i ȧ"0{\0آ<0A\0 i Ƚ0{\0ϵP0A\0Ǡ i ȧ"0{\0Rآ<0A\0Nع0A\0 i d@0{\00{\00{4\0qP0A\0{PYh0{\00{\00{4\0P4h0{\00{\00{4\0Qh0{\00{\00{4\0OqعN0{\0ة؎0{\0 i d0{\00 i d0{\0QQRN0{\0ةʠRHP0A\0{0Q0RN0{\0ةƠRHQ{0A\0{0QܠRN0{\0ةRHP0A\0{0RHP0A\0{ i d0{\00{\0ؗN0{\0@N-0{\0N%0{\0Ǡ i dDN0{\0 h0{\00{\00{4\0 i d֠N0{\0 h0{\00{\00{4\0 i dܠN0{\0h0{\00{\00{4\0 i d N0{\0h0{\00{\00{4\0QRN0{\0ض i ȧl0A\0 i dN0{\0 h0{\00{\00{4\00{\0ؗR0{\0 i dN0{\0 h0{\00{\00{4\0PDh0{\00{ \00{4\0<'Q0A \0m"0{0\00{\0ؗQN0{\0 N0{\00{Y\00{4\0؆ؠR0{\0젰QgN0{\0ؼkعܠ i Ⱦ0A\0-&0N <'N 0A \0m"0{0\00<'Nd0A \0m"0{0\00{\0DR0A\0-ع0A\0Q%0A\0{OHh0{\00{\00{4\0OعDN0{\0ؽO֠O80{\00{\00{4\0 i ȧ0A\00{\0DR0A\0k i dN0{\0h0{\00{\00{4\0-ع0A\0؎D0{\0 i ȧ0A\00{\0DR0A\0k i dN0{\0h0{\00{\00{4\0-ع0A\00{\0k k -@0{\0&N0{\00{\0ؗN-0{\0@N%0{\0 i dhN0{\0h0{\00{\00{4\0Ph0{\00{\00{4\00{\0O֠P0{\00{\00{4\0<'o0{0\0 !! has experienced a serious error. If the error persists, contact  in line  where  Running on  matches returned. (DT1 like '%| > SQL DATA W-->-1-900%&%PHOTO | > STEM DATA W%&%PHOTO | change /\// |*: ? c: | var num%' order by lid%') order by dt1: ">Error Reportform.sub.1sql titleBADCALLPIPE (name photo03 end ?) sql noind releaseCALLPIPE (name photo03 end ?) sql noind release CALLPIPE (name sqlerr) SQLCODES | VAR cgi_sqlcodesCALLPIPE literal CHARCOMMANDCP IPLDBDEPRESSVE ENGINEERING EXEC FDRCDUMPFDRESCFDRSTATSFDRVLID;15-DATE;17-JUNK;2-TITLE;1024- FILEID;50LITNNUMO OUTPUT ' "CALLPIPE (name photo03 end ?) sql noind release" sel , "| > SQL DATA W""CALLPIPE literal" CELLFORM"%&%PHOTO | > STEM DATA W" "CALLPIPE (name photo03 end ?) sql noind release" sel , "| c: count lines" , "| rexx stempros "CELLFORM"%&%PHOTO" , "| change /\// |*: " , "?" , "c: | var num" If rc <> 0 then signal sql err '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' <y     & * -H Q - %yM q q}U 0 Q \ y\ - @ U - % {  &-H   @ m y D Y   @   @  } 0     * % y Y*dmM0hqy{U yY{8q\  &- ص{}U\H0Uy*D\ydDqy - { -M qY qܵ @ - q