pro fcaldiag,iosc,iant,tcmid,tls

    antlab = ['_1_','_2_','_4_','_5_','_6_','_7_']
    osclab = ['L','M','H']
    filename = !defaults.workdir+'fcal'+antlab[iant]+osclab[iosc]+'.dat'

    f = findfile(filename,count=n)
    if (n eq 0) then openw,lun,/get_lun,filename $
                else openu,lun,/get_lun,filename,/append
    writeu,lun,tcmid
    free_lun,lun

return
end