!------------------------------------------------------------------------------
! This procedure is called by the command:
!
!                  CLIC\FILE RAW [PROJECT|*] [DATE] /WINDOW.
!
! to execute the BUTTONS.
!------------------------------------------------------------------------------
def character chain*40 c1*20 c2*20
file in 'datafile[ifile]'
if "&1".eq."NO" then
  find
  return
endif
!
if (HFILEDEF).or.("&1".eq."DEF") then
  if .not.exist(date_observed) then
     var general
  endif
  set criteria /def
  find
  get first /header  
!* check for observations on previous day (in case there is a transition from 
!* scan 9999 to 1
  set observed 'dobs-1' 'dobs-1'
  find
  if found.gt.0 then
    get first /header  
  endif
  set observed * * 
  let hfile 'date_observed'"-"'project'".hpb" 
!* deux fois /lower pour que l'affichage soit OK.
  let hfile 'hfile' /lower
  let hfile 'hfile' /lower
  let hfilemode NEW
endif
!
! rn+  Aug 26th, 1997 
!
sic\sic user                                   
if ("'sys_info'".eq."observer") then
  sys "~observer/.set_project "'hfile'
  @ "/users/oper/observer/set_project.clic"
endif
!
! rn-
!
if "&1".eq."DEF" then
  return
endif
!
! rn+  Aug 26th, 1997 
!
sic\sic user                                   
if ("'sys_info'".eq."observer") then
  sys "~observer/.set_project "'hfile'
  @ "/users/oper/observer/set_project.clic"
endif
!
! rn-
!
set level 4
find
file out 'hfile' 'hfilemode'
copy headers
if .not.exist(out_file) then
   var read
endif
say "Data copied to "'out_file'
say "[Note the new extension of header-only files]"
if .not.exist(file_name) then
  define character file_name*80 /global
endif
let  file_name 'out_file'
set level 1
!------------------------------------------------------------------------------