C+
C	NAME:
C		CBA_STRUCT
C	PURPOSE:
C		Define the following CBA specific database structures
C			* CBA_Data_Rec
C			* CBA_RoadMap_Rec          
C
C	CALLING SEQUENCE:
C		CBA_STRUCT
C	HISTORY:
C		written by Mons Morrison, Fall 90.
C
C-
C	---------------------------------------------------------------

	STRUCTURE	/CBA_Time_Rec/
	  byte		basic(16,64)	!   0- Time label before each Basic part
	END STRUCTURE			!1024- Total

	STRUCTURE	/CBA_Data_Rec/
	  byte		basic(4,8,64)	!   0- Basic part
	END STRUCTURE			!2048- Total

	integer*4	nCBA_Data_Rec
	parameter	(nCBA_Data_Rec = 2048)


	STRUCTURE	/CBA_Roadmap_Rec/
                                        !     For a full description of the fields,
                                        !     look at the Index_Rec definition

	  integer*4	ByteSkip	! 00- Offset in bytes from the beginning of
					!     of the data file for the beginning
					!     of the data set index structure.
	
	  integer*4	time		! 04- Major frame time (millisec of day)
	  integer*2	day		! 08- Major frame day (since 1-Jan-79)
	
	  byte		DP_mode		! 10- DP Mode
	  byte		DP_rate		! 11- DP Rate

	  integer*4	sxt_ffi		! 12- Serial number for SXT FFI image
					!     (to allow easy matching to engineering information
					!     like AEC,ARS,ART ...)
	  integer*4	sxt_pfi		! 16- Serial number for SXT PFI image
	
	  byte		SXT_Pow_stat	! 20- SXT Power Status
	  BYTE		bcs_pow_stat	! 21- BCS Power status
	  byte		hxt_Pow_stat	! 22- HXT Power status
	  byte		wbs_pow_stat	! 23- WBS Power status

	  byte		spare(8)	! 24-
	END STRUCTURE			! 32- Total

	integer*4	nCBA_Roadmap_Rec
	parameter	(nCBA_Roadmap_Rec = 32)

	STRUCTURE       /CBA_Version_Rec/
          integer*2     roadmap /'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
          byte          spare           !     (need for automatic conversion to IDL format)
	END STRUCTURE