UOPSEXT.LST 770 B

1234567891011121314151617181920212223242526272829303132
  1. Listing:
  2. 1 IMPLEMENTATION MODULE UOpsExt;(* extentions to userops*)
  3. 2 (*
  4. 3 * REPERTOIRE
  5. 4 * Release 1.6
  6. 5 * By Charles Bradford and Cole Brecheen
  7. 6 * (c) Copyright 1985-1992 PMI
  8. 7 * Green Bay WI
  9. 8 * All rights reserved
  10. 9 * (414) 468-6040
  11. 10 *
  12. 11 *
  13. 12 *)
  14. 13
  15. 14 PROCEDURE DefaultLookUp(VAR Key : ARRAY OF CHAR);
  16. ***** ^ not supported yet
  17. 15 END DefaultLookUp;
  18. ***** ^ not supported yet
  19. 16
  20. 17
  21. 18 BEGIN
  22. 19 LookupProc := DefaultLookUp ; (* search database *)
  23. ***** ^ undeclared identifier
  24. ***** ^ not supported yet
  25. 20
  26. 21 END UOpsExt.
  27. ***** ^ not supported yet
  28. 5 errors