| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 |
- Listing:
- 1
- 2 (*
- 3 * ModBase
- 4 * Release 3.0
- 5 * (c) copyright 1990 PMI
- 6 * P.O. Box 8402
- 7 * Green Bay Wi 53308
- 8 * All Rights Reserved
- 9 *
- 10 *)
- 11
- 12 IMPLEMENTATION MODULE DBRelate;
- 13 (* Copywright 1990-1991 John McMonagle
- 14 ModBase 3.0 *)
- 15 FROM ModBase3 IMPORT
- 16 DBFile,ReadDBRec;
- 17 FROM DBIndxes IMPORT
- 18 DBIndex,FindPositionCh,FindPositionN,CurrentRec,NumKeyType;
- 19
- 20 PROCEDURE ReadRelate(key:ARRAY OF CHAR; ndx:DBIndex;
- ***** ^ not supported yet
- 21 dbf:DBFile):BOOLEAN;
- 22 VAR
- 23 ok:BOOLEAN;
- 24 BEGIN
- 25 IF NumKeyType(ndx)
- ***** ^ not supported yet
- ***** ^ not supported yet
- 26 THEN
- 27 FindPositionN(ndx,key,ok);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 28 ELSE
- 29 FindPositionCh(ndx,key,ok);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 30 END;
- 31 IF NOT ok
- 32 THEN
- 33 RETURN FALSE;
- 34 END;
- 35 ReadDBRec(dbf,CurrentRec(ndx));
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 36 (* assume if ReadDBREC fails program will terminate *)
- 37 RETURN TRUE;
- 38 END ReadRelate;
- ***** ^ not supported yet
- 39
- 40 END DBRelate.
- ***** ^ not supported yet
- 17 errors
|
