home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a006 / 1.ddi / PASEXAM.ZIP / TBLMAXSZ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-11  |  666 b   |  26 lines
  1. program TblMaxSz;
  2. uses PXEngine;
  3.  
  4. const TableName = 'Table';
  5.       MaxSize    = 128;         (* in Megabytes *)
  6.       NFields    = 5;
  7.       Fields: Array[1..NFields] of NameString =
  8.                ('Numeric Field', 'Alpha Field', 'Date Field', 'Currency Field',
  9.                 'Short Field');
  10.       Types: Array[1..NFields] of NameString =
  11.                ('N', 'A50', 'D', '$', 'S');
  12.  
  13. var   PxErr: Integer;
  14.  
  15. begin
  16.   PX(PXInit);
  17.  
  18.   (* Set maximum table size before creating table *)
  19.   PxErr := PXTblMaxSize(MaxSize);
  20.   if PxErr <> PxSuccess then
  21.     Writeln(PxErrMsg(PxErr));
  22.  
  23.   PX(PXTblCreate(TableName, NFields, @Fields, @Types));
  24.   PX(PXExit);
  25. end.
  26.