structure /msg_record/
	  union
	    map
	      byte record(0:32767)	!the total record
	    end map
	    map
	      character*20 facnaam	!facility
	      integer*4 idx_key		!key index
	      integer*4 keyval		!key value
	      integer*2 len_name	!length of name
	      integer*2 len_fac         !length of facility
	      integer*2 len_expla	!length of explanation
	      integer*2 len_user	!lenght of user text
	      integer*2 kweenie		!??
	      integer*2 pos_name	!position of name part
	      integer*2 pos_fac		!position of facility part
	      integer*2 pos_expla	!position of explanation part
	      integer*2 pos_user	!position of user part
	      integer*2 rec_len		!record length
	    end map
	  end union
	end structure