program TblCreat;

uses WinCrt, PXEngine;

type
  NameString = pChar;

const TableName = 'Table';
      NFields	= 5;

      Fields: Array[1..NFields] of NameString =
               ('Numeric Field', 'Alpha Field', 'Date Field', 'Currency Field',
                'Short Field');
      Types: Array[1..NFields] of NameString =
               ('N', 'A50', 'D', '$', 'S');

var
  PxErr: Integer;

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

begin
  PX(PXWinInit('MyApp', pxShared));

  (* Create a new table *)
  PxErr := PXTblCreate(TableName, NFields, Fields, Types);
  if PxErr <> PxSuccess then
    Writeln(PxErrMsg(PxErr));

  PX(PXExit);
end.