program SetDef;
uses PXEngine, WinCrt;


var   PxErr: Integer;

procedure PX(Code : integer);
begin
  writeln(PXErrMsg(Code));
end;

begin
  (* Prepare Engine for initialization using maximum buffer
     size, maximum  allowable number of tables, locks and
     files.  Leave MaxRecBufs and SortOrder at their present
     value.
  *)
  PxErr := PXSetDefaults(MaxSwapSize, MaxTableHandles, PxDefault,
		       MaxLockHandles, MaxFileHandles, DefSortOrder);
  if PxErr <> PxSuccess then
    Writeln(PxErrMsg(PxErr));

  (* Call PXInit with new default values *)
  PX(PXWinInit('MyApp', pxShared));
  PX(PXExit);
end.
