Date: 03/21/06 (Code WTF)    Keywords: no keywords

               xxx = ss-rem.rem + ".mxl".
               xxxx = sysc.chval + "/" + substr(xxx,3).
               run eesosa (input xxx).
               input through hostname no-echo.
               set xxxxxx.
               input close.
               host = substr(xxxx,1,index(xxxx,":") - 1 ).
               if xxxxxx eq host then do:
                  xxxxxxx = substr(xxxx,index(xxxx,":") + 1) + trim(substr(xxx,3)).
                  unix silent cp value(xxx) value(xxxxxxx). 
               end.
               else 
                  unix  silent rcp value(xxx) value(xxxx). 

Source: http://community.livejournal.com/code_wtf/32751.html