pro sxi_genxcat_addfilename, overwrite=overwrite

topdir='$SSWDB/goes/sxig12/genxcat'
files=file_list(topdir,'*geny')

prefix='SXI'
exten='.FTS'
slevel='BB'
sgn='12'
temp={filename:''}
for i=0,n_elements(files)-1 do begin 
   box_message,'Processing>> ' + files(i)
   restgenx,file=files(i),sxicat
   if not required_tags(cat,'FILENAME') then begin 
       filenames=prefix+'_'+$
          time2fid(anytim(sxicat,/utc_int),/time,/milli,/full) + $
          '_'+ slevel+ '_' + sgn + exten
       fns=replicate(temp,n_elements(filenames))
       fns.filename=filenames
       newcat=join_struct(sxicat,fns)
       savegenx,file=files(i),newcat,/overwrite
   endif else box_message,'Already have FILENAME
endfor

return
end