rabrec = RECORD
  CASE integer OF     
  1 : (
      bid : byte;			{ rab block identifier }
      bln : byte;			{ rab block length }
      ctx : word;			{ user defineable area }
      isi : word;			{ pointer to irab }
      sts : word;			{ completion status code }
      stv : word;			{ status value }
      rfa : tripleword;			{ record's file address }
      rac : byte;			{ record access mode }
      ksz : byte;			{ key buffer size }
      rop : word;			{ record processing options }
      usz : word;			{ input record buffer size }
      ubf : ^RecDef ;			{ input record buffer address }
      rsz : word;			{ size of output record }
      rbf : ^RecDef ;			{ output record address }
      kbf : ^KeyDef ;			{ key buffer address or rel. rec. # }
      krf : byte;			{ key of reference }
      mbf : byte;			{ multibuffer count }
      mbc : byte;			{ multiblock count }
      jnk1 : byte;			{ not used }
      rhb : word;			{ fixed control area buffer }
      fab : fabptr;			{ fab address }
      bkt : doubleword;			{ record number or VBN }
      jnk2 : ARRAY [1..46B] OF byte	{ not used }
      ) ;
  2 : ( AllRab : ARRAY [1..40] OF integer) ; { used to clear rab before open }
END; { rab record }
