pro cba_struct, CBA_Time = CBA_Time,  $
                     CBA_Data = CBA_Data,  $
                     CBA_Roadmap = CBA_Roadmap,  $
                     CBA_Version = CBA_Version
   
   
;+
;       NAME:
;               CBA_STRUCT
;       PURPOSE:
;               Define the following CBA specific database structures
;                       * CBA_Data_Rec
;                       * CBA_RoadMap_Rec          
;
;       CALLING SEQUENCE:
;               CBA_STRUCT
;       HISTORY:
;               written by Mons Morrison, Fall 90.
;
;-
   
   
CBA_Time = { CBA_Time_Rec,              $
      basic: BYTARR(16,64) }                 ;   0- Time label before each Basic part
   
   
   
CBA_Data = { CBA_Data_Rec,              $
      basic: BYTARR(4,8,64) }                ;   0- Basic part
   
   
   
CBA_Roadmap = { CBA_Roadmap_Rec,              $
                                             ;     For a full description of the fields,
                                             ;     look at the Index_Rec definition
                                             ;
      ByteSkip: LONG(0),  $                  ; 00- Offset in bytes from the beginning of
                                             ;     of the data file for the beginning
                                             ;     of the data set index structure.
                                             ;
      time: LONG(0),  $                      ; 04- Major frame time (millisec of day)
      day: FIX(0),  $                        ; 08- Major frame day (since 1-Jan-79)
                                             ;
      DP_mode: BYTE(0),  $                   ; 10- DP Mode
      DP_rate: BYTE(0),  $                   ; 11- DP Rate
                                             ;
      sxt_ffi: LONG(0),  $                   ; 12- Serial number for SXT FFI image
                                             ;     (to allow easy matching to engineering information
                                             ;     like AEC,ARS,ART ...)
      sxt_pfi: LONG(0),  $                   ; 16- Serial number for SXT PFI image
                                             ;
      SXT_Pow_stat: BYTE(0),  $              ; 20- SXT Power Status
      bcs_pow_stat: BYTE(0),  $              ; 21- BCS Power status
      hxt_Pow_stat: BYTE(0),  $              ; 22- HXT Power status
      wbs_pow_stat: BYTE(0),  $              ; 23- WBS Power status
                                             ;
      spare: BYTARR(8) }                     ; 24-
   
   
   
CBA_Version = { CBA_Version_Rec,              $
      roadmap : FIX('70F1'x),  $             ;
                                             ; 00- The version number of the Roadmap
                                             ;     This value is not contained in the
                                             ;     roadmap structure to save space.  It is
                                             ;     saved in the "File Header Record"
                                             ;
                                             ;     This structure is not written to any files
      spare: BYTE(0) }                       ;     (need for automatic conversion to IDL format)
   
   
   
  
  
end