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

   getfile ZMODEM
   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