erdup = -544 ; { insert duplicate rec with no dups allowed } ereof = -592 ; { record processing reached end-of-file } erfac = -656 ; { record opr does not match declared access } erfnf = -736 ; { file not found during open ] errlk = -1440 ; { target record was locked by another task } errnf = -1472 ; { random get or find did not locate record } fbdel = 4B; { fab fac field: delete access } fbget = 2B; { fab fac field: get access } fbput = 1B; { fab fac field: put access } fbrea = 42B; { fab fac field: read access } fbtrn = 20B; { fab fac field: truncate access } fbupd = 10B; { fab fac field: update access } fbwrt = 41B; { fab fac field: write block I/O } fbctg = 200B; { fab fop field: contiguous file } fbdfw = 20000B; { fab fop field: deferred write } fbdlk = 20B; { fab fop field: unlock } fbfid = 10000B; { fab fop field: open by file id } fbmkd = 4000B; { fab fop field: mark for delete } fbnef = 1000B; { fab fop field: no EOF on magtape } fbpos = 10B; { fab fop field: position to last file } fbrwc = 2B; { fab fop field: rewind mag tape on close } fbrwo = 1B; { fab fop field: rewind mag tape on open } fbsup = 400B; { fab fop field: supersede if explicit vrsn } fbtmd = 6000B; { fab fop field: temp file - delete on close } fbtmp = 2000B; { fab fop field: temp file - no delete } fbseq = 0; { fab org field: sequential } fbrel = 20B; { fab org field: relative } fbidx = 40B; { fab org field: indexed } fbfix = 1B; { fab rfm field: fixed length records } fbvar = 2B; { fab rfm field: variable length records } fbstm = 4B ; { fab rfm field: stream record format, seq. } fbwri = 15B; { fab shr field: other tasks write sharing } rbkey = 1B; { rab rac field: random access } rbrfa = 2B; { rab rac field: record's file address } rbseq = 0; { rab rac field: sequential access } rbeof = 1B; { rab rop field: position to eof for append } rbfdl = 10000B; { rab rop field: fast delete } rbkge = 2000B; { rab rop field: >= key value } rbkgt = 4000B; { rab rop field: > key value } rbmas = 2B; { rab rop field: mass insert } rbloa = 20B; { rab rop field: obey fill numbers on load } rbloc = 100B; { rab rop field: locate mode (vs. move mode } xbNul = 4B ; xbDup = 1B ; xbChg = 2B ; xbIn2 = 1B ; EqMask = 171777B ; { mask the rbkge & rbkgt bits when eq search }