EXECPROCEAGRTPRC Compiled REXX 3.0 14 Aug 2002 00:36:48 CMS REXXC370 4.00 27 Oct 1994 LVL PN83402 SEARCH SCGI Z1  ٰ}^&uj&֏& j &Q0&S0i00&y}銏j 醠i h-0{\0 &&& q}}l H *  U y { Q H% u@8m"  }} Kyh0q- yQ&D0-- i ]&kP0AM\0hR0A\0{QR0A\0{R*0A\0{0{\0ؗ0R0{\0 i dY0{\00{\0 i d8N0{\0 h0{\00{\00{4\0 i ȧ0{\0ϵR0A\0Ǡ i ]0{\0Uآ<0A\0 i ȧ0{\0ϵR0A \0Ǡ i ]0{\0آ<0A\0 i ȧ0{\0ϵO0A\0Ǡ i ]0{\04آ<0A\0 i ȧ0{\0ϵP0A\0Ǡ i ]0{\0آ<0A\0 i ȧ0{\0ϵP<0A\0Ǡ i ]0{\0آ<0A\0 i ȧ%0{\0ϵP0A\0Ǡ i ]0{\0آ<0A\0 i ȧ0{\0ϵP0A\0Ǡ i ]0{\0<آ<0A\0N40A\0 i dm40{\00{\00{4\0OqUN0{\0ضqP0A\0{Q-h0{\00{\00{4\0Qyh0{\00{\00{4\0Qh0{\00{\00{4\0ON0{\0ا> i dyd0{\00R has experienced a serious error. If the error persists, contact  in line  Running on .1(DT1 = ' (DT1 like '%(TITLE like '%-->-1/%&%TITLE | change /\// |*: %'): ')">Error Report form.sql titleyes Abend ANAMEBADCALLPIPE (name search03) sql noind release CALLPIPE (name search04) < HEADER RESPON | *:CALLPIPE (name search05) datepop i |*:CGICHARCOMMAND CP MSG HARRYE ENGINEERINGFDRESCFDRSTATSIDAYIMONTH IYEARLID;16-DATE;10-TITLE;512- PHOTONUM;10-FILEID;12LITNNUMO ONYR OUTPUT ' "CALLPIPE (name search03) sql noind release" sel , '| spec 1-16 1' , /* lid char 16 */ ' 17-27 17 ' , /* dt1 char 10 */ ' 29-541 27' , /* title varchar 512 */ ' 5 42-544 strip C2D 539 left' , /* photonum int */ ' 545-* 549' , /* fileid char 12 */ "| rexx stempros "CELLFORM"%&%TITLE" , "| change /\// |*: " 'OUTPUT ' end /* search */else do'CALLPIPE (name search04) < HEADER RESPON | *:''OUTPUT
' 'OUTPUT

Search by TITLE

''OUTPUT
''OUTPUT ''OUTPUT ''OUTPUT Title:
''OUTPUT
' 'OUTPUT
' 'OUTPUT

Search by DATE

''OUTPUT
''OUTPUT ''OUTPUT ''CALLPIPE (name search05) datepop i |*:''OUTPUT
''OUTPUT Search by year o nly''OUTPUT
' 'OUTPUT
'end /* else */ /* 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 '' Error: errrc = rc signal off error 'OUTPUT' 'Error' , 'Sorry, ' cgi ' has' , 'experienced a serious error.' , 'If the error persists, contact ' , 'Error Report' errsigl = sigl signal errcleanupSyntax: 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 errtxt = errortext(errrc) srcline = sourceline(errsigl) 'OUTPUT' "" "OUTPUT" '' exit 0 DumpIt:fn = cgioft = 'REXXVARS'ofm = 'W'ft = 'CGI'userid = userid()date = date('S')time = time()Address Command 'CP MSG HARRY' cgi 'Abend'Address Command 'PIPE LITERAL' fn ft 'Variables:', '| >' fn oft ofmAddress Command 'PIPE REXXVARS', '| DROP FIRST 1', '| SPECS WORD 2-*', '| join /=/' , '| preface Literal ' , '| >>' fn oft ofmexit h Q         4 * 0 *& d - %h QH 8 U8h h y D% & Q - % {huQ&{u U{u   h q\4 &%hqy\0Y@MYhq yUqD &%y\*\-{}d}U & -\&صh{h%u&{h}& \80 88 {  < d < - { Hȵ Qh 4  Q Q D Q     H U  H& H  ̵    8