EXECPROCEAGRTPRC Compiled REXX 3.0 23 Mar 2001 12:41:23 CMS REXXC370 4.00 27 Oct 1994 LVL PN83402 BROWSE SCGI X1  ٰ}^&uj&֏& j &Q0&S0i00&y}銏j 醠i h-0{\0 &&& q}h HQ    < y &\m{ "  }}  hi& &H  0y Q- i Ȭ&kP0AM\0O0A\0{̠R0A\0{QU0A\0{0{\0ؗdR0{\0 i d0{\00{\0 i dN0{\0 h0{\00{\00{4\0-R*0A\0{ i Ȣ0{\0ϵQ00A\0Ǡ i Ȭg0{\0*آ<0A\0 i Ȣ%0{\0 ϵP0A\0Ǡ i Ȭg0{\0Rآ<0A\0 i Ȣ0{\0ϵQ%0A\0Ǡ i Ȭg0{\0آ<0A\0؎N0{d\0pRN0{\0ط0{4\00A\0{0{4\0 i Ȣm0{\0ϵPh0A\0Ǡ i Ȭg0{\0آ<0A\0 i Ȣy0{\0ϵQ0A\0Ǡ i Ȭg0{\0آ<0A\0 i Ȣ0{\0ϵP0A\0Ǡ i Ȭg0{\0آ<0A\0؎N0{d\0pRN0{\0ةF0{4\0ع-0A\00{4\0NdN0{\0اR࠰N0A\0ع ؗا0{\0N0A\00{4\0 i d}0{\0P0A\0{Qh0{\00{\00{4\0Q-h0{\00{\00{4\0RRN0{\0ا@P0A\0{0RRN0{\0ا6@R0A\0{0R&RN0{\0ض@P<0A\0{0@P0A\0{Q%عN0{\0ض̠R0A\0{ع ؗض0{\0- ض`0{\080A\0N0A\0 i d0{\0 0{4\0 i dY}0{\00{\0ؗN0{\0@N-0{\0N%0{\0Ǡ i d8N0{\0 h0{\00{\00{4\0 i dN0{\0h0{\00{\00{4\0Rع N0{\0ؼР i Ȭ0A\04Nd0A\0{RǠN0{\0ؼ֠ i d40{\0 i dQ0{\0ع-qN0{\0ؽQNd0A\0{ i dǠR00{\0Q h0{\00{\00{4\0 i dȠN0{\0h0{\00{\00{4\0 i ddN0{\0h0{\00{\00{4\0 i dmN0{\0h0{\00{\00{4\0 i duN0{\0h0{\00{\00{4\0 i dN0{\0 h0{\00{\00{4\0 i d{N0{\0 h0{\00{\00{4\0 i dN0{\0h0{\00{\00{4\0Qh0{\00{\00{4\00{\0ؗdRM0{\0 i d4N0{\0 h0{\00{\00{4\0P4h0{\00{\00{4\0<'R0A \0m"0{0\00{\0؍N0{\0 N0{\00{Y \00{4\0؆qR0{\0젰RgN0{\0| i ȥ0A\0-&0N <'N 0A \0m"0{0\00|<'Nd0A \0m"0{0\00{\0mع 0A\0< 0A\0QQ0A\0{OMh0{\00{\00{4\0O*mN0{\0|YO֠O80{\00{\00{4\0 i Ȭ*0A\00{\0mع 0A\0k i dN0{\0h0{\00{\00{4\0< 0A\0 m0{\0 i Ȭ*0A\00{\0mع 0A\0k i dN0{\0h0{\00{\00{4\0< 0A\00{\0k k has experienced a serious error. If the error persists, contact  endpos=  in line  prev=  ORDER BY LID  Running on .cgi">Error Reportform.sub.1sqlBADBROWSECALLPIPE (name browse03 end ?) sql noind release CALLPIPE (name sqlerr) SQLCODES | VAR cgi_sqlcodesCHARCOMMANDCP IPLDBDEPRESSVE ENGINEERING EXEC FDRCDUMPFDRSTATSFDRVINCLID;15-DATE ;17-JUNK;2-TITLE;1024- FILEID;50LITNNEXTNUMNUMOOUTPUT OUTPUT ' "CALLPIPE (name browse03 end ?) sql noind release" sel , "| drop first "pos , "| take first" max , "| c: count lines" , "| rexx stempros "CELLFORM"%&%PHOTO" , "|*:" , "?" , "c: | var num" If rc <> 0 Then signal sqlerr prevbutton = ''If prevpos > 0 Then , prevbutton = '' nextbutton = ''If num < max then nextbutton = '' me = cgi'.cgi''OUTPUT' '''OUTPUT' '
''OUTPUT' '''OUTPUT' '''OUTPUT' '''OUTPUT' nextbutton'OUTPUT' prevbutton'OUTP UT' '''OUTPUT' '
' /*%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, c ontact ' , 'Error Report' errsigl = sigl errcleanup: signal off error signal off syntax srcline = sourceline(errsigl) 'OUTPUT' "" "OUTPUT" '' DumpIt: address command 'EXEC FDRCDUMP'        @D - % u}H} { - --0 8- Q 4}q U 8 - Q M y  0 < d - % Q } \ 0Q %dq}U*%@@HQ8dDQ&%dqy\0 8y<dM  ֵMܵ   0M <M *@%-q@@@е}  \ *4 m * *   8 m % m d ص  <m dy < < } U Q dܵ 4  Q