proc main
   when $XFERSTATUS call getit                           ;Call getit procedure when transfer begins

   while 1
      yield
   endwhile
endproc

proc getit
   integer iStatus
   string sDownloadFile                                  ;Fully-qualified filename being downloaded
   string sRenameFile                                    ;Fully-qualified filename to rename downloaded file to

   iStatus = $XFERSTATUS
   while iStatus == 1
      if nullstr sDownloadFile
         sDownloadFile = $XFERFILE
      endif
      iStatus = $XFERSTATUS
   endwhile
   if iStatus == 2
      ;Transfer successful, continue with script execution
      rename sDownloadFile sRenameFile                   ;Rename downloaded file to desired name
   elseif iStatus == 3
      ;Transfer failed, perform error handling
   endif
endproc