pro op_facom_ftp,file
;+
; NAME:
;   op_facom_ftp
; PURPOSE:
;   Transfer the op_first_guess file to the FACOM
;
;   Assumes s88239 account.
;
; MODIFICATION HISTORY:
;   5-may-93, J. Lemen, Written.
;  21-Feb-96, JRL, Updated for new mainframe GS8400/10
;-

user = 's88239'
password = 'solar' + string((anytim2ex(!stime))(5),format='(i2.2)')

host = '133.74.16.201'			; Old Mainframe 2
host = '133.74.191.201'			; 21-Feb-96 New mainframe GS8400/10

break_file,file,disk,dir,name,ext
if strlen(name) gt 8 then name = strmid(name,0,8)	; Max allowed length
outfile = "'sr0001.opseq.infile("+strtrim(name)+")'"

print,'   Will attempt to transfer to: ',outfile
print,'   If nothing happens after a few seconds, enter CTL-C and then .cont'

facom_ftp,file,outfile,host,user+' '+password

end