home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a006 / 1.ddi / PASEXAM.ZIP / SETDEF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-11  |  539 b   |  22 lines
  1. program SetDef;
  2. uses PXEngine;
  3.  
  4.  
  5. var   PxErr: Integer;
  6.  
  7. begin
  8.   (* Prepare Engine for initialization using maximum buffer
  9.      size, maximum  allowable number of tables, locks and
  10.      files.  Leave MaxRecBufs and SortOrder at their present
  11.      value.
  12.   *)
  13.   PxErr := PXSetDefaults(MaxSwapSize, MaxTableHandles, PxDefault,
  14.                MaxLockHandles, MaxFileHandles, DefSortOrder);
  15.   if PxErr <> PxSuccess then
  16.     Writeln(PxErrMsg(PxErr));
  17.  
  18.   (* Call PXInit with new default values *)
  19.   PX(PXInit);
  20.   PX(PXExit);
  21. end.
  22.