EXECPROCEAGRTPRC Compiled REXX 3.0 13 Sep 2002 11:47:53 CMS REXXC370 4.00 27 Oct 1994 LVL PN83402 FDRCLEAN SREXX O1  ٰ}^&uj&֏& j &Q0&S0i00&y}銏j 醠i h-0{\0 &&& q}-  - yhq h    < Q h -0 }"  }} Y-Q \\@h0{\0N 0{\0ؠN 0A\00{4\0 i d\0{\00{\0P0{\\0ؠ0{Y\0u0{Y\0NmPDN 0{\0إ̠P0A\0{NmP\N 0{\0إ*̠P0A\0{R> FDRACCT DATA-->-1?p: BAD CALLPIPE (name FDRClean01) VAR QUERY_STRING 1 | var query_stringCALLPIPE (name FDRClean03) VAR path 1 | var pathCALLPIPE (name FDRClean03) VAR remote_addr 1 | var remote_addrCALLPIPE (name FDRClean04) LiteralCHARCOMMAND Device I/O:EEtime: ENGINEERINGFDRSTATSGLOBALV SELECT FDR GET FDRCGILITNNUM OUTPUT ' workdisk = 'W'Address Command 'GLOBALV SELECT FDR GET FDRCGI' 'CALLPIPE (name FDRClean01) VAR QUERY_STRING 1 | var query_string''CALLPIPE (name FDRClean03) VAR remote_addr 1 | var remote_addr''CALLPIPE (name FDRClean03) VAR path 1 | var path' prefix = date('S') time() left(remote_addr,15) left(userid(),8)rec = format((v0/1E6),5,2) , format(e0,5,2) , format((t0/1E6),5,2) , right(s0,5) right(r0,5) right(w0,5) , 'q:'query_string req = 'p:'path'?'query_string 'G:' fdrcgireq = left(fdrcgi,15) 'CALLPIPE (name FDRClean04)' , 'Literal' prefix req rec '| ' , '>> FDRACCT DATA' workdiskd{ < %y % } M&  < <*y* *%    < @ 0 44 Y0 & Q D  dmuD}U8 <{Q0 hqyHQ Y8<Dy\DD%&ǵ<̵uhh{quyu%H8QY%8d  d d4 4 Q 4 %< ص m y M MM ֵ0 M dhD\ <8&u