EXECPROCEAGRTPRC Compiled REXX 3.0 25 Dec 1999 19:15:26 CMS REXXC370 4.00 27 Oct 1994 LVL PN83402 FDRESC SEXEC Z1  ٰ}^&uj&֏& j &Q0&S0i00&y}銏j 醠i h-0{\0 &&& q}h U 4 & *& \ & 8 H q u M "  }}H}8HH % 88 Q\{h؆N 0{\0OYN 0A\0؆N 0{\0OmN 0A\00{4\0N*OmN 0{\0ط0{\0ϵOY0A\0ϵ N0A\0Ǡ i ȶ0{\0OYآ<0A\00{\0ϵOY0A\0ϵ N0A\0Ǡ i ȶ0{\0OYآ<0A\00{\0ϵOY 0A\0ϵ N0A\0Ǡ i ȶ0{\0OYآ<0A\00-0{\0ϵOY0A\0ϵ Om0A\0 i ȶ0{\0OYآ<0A\0<'OY0A \0m"0{0\00A\0&0{\0h&صص0{\0؆N 0{\0OYN 0A\0؆N 0{\0OmN 0A\00{4\0O*N*0A\0ǠPj ة0{\0o }&&}N*OYN 0{\0ة̠P-0{Y\0جO*0{\0OYN 0{\0ةfجO*0{\00}m &}<'O*0A \0m"0{0\0o0{0\0|-1?'BADCHARE ENGINEERINGLITNUMREXXC370 4.00 27 Oct 1994SCIENTIFICVAR012RCNEWPRESEPSIGLRESULTSTRINGESCAPE 4+y- = 8D&jklxy|Q5 &/=lF478/* Provide for self-escaping characters for pipeline variables */ Parse arg string,sep If sep = '' Then do string = escape(string,'|') string = escape(string,'?') string = escape(string,"'")end /* default */else string = escape(string,sep)return string escape:ProcedureParse arg string,sep new = ''do while string <> '' Parse var string pre(sep)string new = new || pre If string <> '' Then new = new || sep || sepend return new     **mm HQY8     < *  d m  M U 4m* m**Ymǵ@mY