Home Verkennen Help
Inloggen
eric
/
Topspeed_JPI
1
0
Vork 0
Bestanden Issues 0 Pull-aanvragen 0 Wiki
Aftakking: master
Aftakkingen Labels
Topspeed_JPI
/
TS-V3
/
MODBASE
/
DATADEF.LST

DATADEF.LST 38 KB
Permalink Geschiedenis Ruwe

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969 
  1. Listing:
    2. 

  2. 

  3.     1  MODULE DataDef;
    4. 

  4.     2  (*
    5. 

  5.     3   *  ModBase
    6. 

  6.     4   *  Release 3.0
    7. 

  7.     5   *  (c) Copyright 1986 - 1991 PMI
    8. 

  8.     6      Copyright 1988 - 1991 John McMonagle
    9. 

  9.     7   *  P.O. Box 8402
    10. 

  10.     8   *  Green Bay Wi 53308
    11. 

  11.     9   *  All Rights Reserved
    12. 

  12.    10   *  by Ed Ross
    13. 

  13.    11   *)
    14. 

  14.    12  
    15. 

  15.    13  FROM Gen IMPORT GenFile;
    16. 

  16.    14  FROM MakeDBF IMPORT MakeDataBaseFile;
    17. 

  17.    15  FROM DataTypes IMPORT DataElmtRec,IndexElmtRec,TableName,FldList,IdxList,
    18. 

  18.    16       DBFName,FullTableName;
    19. 

  19.    17  FROM GenEdt IMPORT GenEdtFile;
    20. 

  20.    18  FROM EnvironUtils IMPORT ReadEnvironment;
    21. 

  21.    19  FROM NumTypes IMPORT Real8;
    22. 

  22.    20  FROM Str IMPORT Copy;
    23. 

  23.    21  FROM SmartScreen IMPORT ClearScreen;
    24. 

  24.    22  FROM Hash IMPORT Define,Insert,KeyFind,HashTable,GetData;
    25. 

  25.    23  FROM StrConv IMPORT RealToStr,CardinalToStr;
    26. 

  26.    24  FROM ScrnUtl1 IMPORT GetFieldImageRec;
    27. 

  27.    25  FROM Tables IMPORT Table,CellValue,GetCell,PutCell,BuildTable,
    28. 

  28.    26       DefineTextCol,DefineIntegerCol,DefineGroupCol,DefineTable,ControlTable,
    29. 

  29.    27       DeleteTable,ShowTable,NumberOfRows;
    30. 

  30.    28  FROM GenLists IMPORT GenList,ListLength,GetElmtAdr,BlockToList,
    31. 

  31.    29       GetElmt, ListInsertAdr,NewList,DisposeList,ListInsert,ShellSortList;
    32. 

  32.    30  FROM HandleIO IMPORT BlockRead,BlockWrite,FileExists,
    33. 

  33.    31       OpenFile,CloseHandle,CreateFile;
    34. 

  34.    32  FROM StringIO IMPORT ErrorMessage,NoError,WriteEol,outp;
    35. 

  35.    33  FROM PosUtils IMPORT Equal,Present,Pos;
    36. 

  36.    34  FROM Prompts IMPORT PromptStr,PromptYN;
    37. 

  37.    35  FROM M2Strings IMPORT Length,CompareStr;
    38. 

  38.    36  FROM StrEdit IMPORT CAPstr,CrunchBlanks,Append,SetLength,AssignStr,LowerStr,
    39. 

  39.    37       DeleteRightJustified,CAPstr;
    40. 

  40. *****                            ^ duplicate identifier
    41. 

  41.    38  FROM ControlUtils IMPORT AddMenuItem,ChangeField,ReadInput,Control;
    42. 

  42.    39  FROM DirManager IMPORT DirToFrame;
    43. 

  43.    40  FROM Drectory IMPORT GetDrivePathAndName,GetCurrentDir,GetDefaultDrive,
    44. 

  44.    41       SetDefaultDrive,ChDir;
    45. 

  45.    42  FROM FramePainter IMPORT ShowDisplayFrame;
    46. 

  46.    43  FROM InputManager IMPORT ControlFrame;
    47. 

  47.    44  FROM ScrnTypes IMPORT InitDisplayFrame,DisplayFrame,AFrameName,ImageElement;
    48. 

  48.    45  FROM ScrnUtl2 IMPORT CloseDisplayFrame;
    49. 

  49.    46  FROM LowLevel IMPORT Fill;
    50. 

  50.    47  FROM ModBase3 IMPORT DBFile, DBFieldDescriptor,AppendBlank,GetField,
    51. 

  51.    48       CloseDBF,WriteDBRec,BuildDBF;
    52. 

  52.    49  FROM DBIndxes IMPORT DBIndex,InitIndex,CloseIndex,BuildIndex,AddRecord,
    53. 

  53.    50       InitCompIndex,BuildCompIndex;
    54. 

  54.    51  FROM SYSTEM IMPORT TSIZE,ADR,ADDRESS;
    55. 

  55.    52  IMPORT VWindows;
    56. 

  56.    53  FROM VStorage IMPORT DosAlloc,DosDealloc;
    57. 

  57.    54  FROM DBUtils IMPORT GetSelected,SelectFromScreen;
    58. 

  58.    55  IMPORT InitCompilerMods;
    59. 

  59.    56  
    60. 

  60.    57  
    61. 

  61.    58  
    62. 

  62.    59  
    63. 

  63.    60  VAR
    64. 

  64.    61     DF : DisplayFrame;
    65. 

  65.    62     Tab : Table;
    66. 

  66.    63     SerList : GenList;
    67. 

  67.    64     FileName : ARRAY[0..20] OF CHAR;
    68. 

  68. *****                         ^ not supported yet
    69. 

  69. *****                                ^ not supported yet
    70. 

  70.    65     Card : CARDINAL; 
    71. 

  71.    66     EM : ErrorMessage;
    72. 

  72.    67     Code,J : CARDINAL;
    73. 

  73.    68     Bool : BOOLEAN;
    74. 

  74.    69     Environ : ARRAY[0..60] OF CHAR;
    75. 

  75. *****                        ^ not supported yet
    76. 

  76. *****                               ^ not supported yet
    77. 

  77.    70  
    78. 

  78.    71  (*   Table should look like this
    79. 

  79.    72  1234567890123456789012345678901234567890123456789012345678901234567890123456
    80. 

  80.    73           1         2         3         4         5         6         7
    81. 

  81.    74    Index  Name      Type   Length  Dec  Description       *)	 
    82. 

  82.    75  
    83. 

  83.    76  
    84. 

  84.    77  PROCEDURE SetupTable();
    85. 

  85.    78  BEGIN
    86. 

  86.    79  
    87. 

  87.    80     DefineTable(Tab,'Data Definitions');
    88. 

  88. *****     ^ not supported yet
    89. 

  89. *****                 ^ not supported yet
    90. 

  90. *****                     ^ not supported yet
    91. 

  91.    81     DefineTextCol(Tab,3,1,'Index',FALSE);  
    92. 

  92. *****     ^ not supported yet
    93. 

  93. *****                   ^ not supported yet
    94. 

  94. *****                           ^ not supported yet
    95. 

  95. *****                                        ^ not supported yet
    96. 

  96.    82     DefineTextCol(Tab,10,10,'Name',FALSE);
    97. 

  97. *****     ^ not supported yet
    98. 

  98. *****                   ^ not supported yet
    99. 

  99. *****                             ^ not supported yet
    100. 

  100. *****                                         ^ not supported yet
    101. 

  101.    83     DefineTextCol(Tab,22,1,'Type',FALSE);
    102. 

  102. *****     ^ not supported yet
    103. 

  103. *****                   ^ not supported yet
    104. 

  104. *****                            ^ not supported yet
    105. 

  105. *****                                        ^ not supported yet
    106. 

  106.    84     DefineIntegerCol(Tab,27,5,'Length',0,9999);
    107. 

  107. *****     ^ not supported yet
    108. 

  108. *****                      ^ not supported yet
    109. 

  109. *****                               ^ not supported yet
    110. 

  110. *****                                              ^ not supported yet
    111. 

  111.    85     DefineIntegerCol(Tab,35,2,'Dec',0,99);
    112. 

  112. *****     ^ not supported yet
    113. 

  113. *****                      ^ not supported yet
    114. 

  114. *****                               ^ not supported yet
    115. 

  115. *****                                         ^ not supported yet
    116. 

  116.    86     DefineTextCol(Tab,40,35,'Desc',FALSE);   
    117. 

  117. *****     ^ not supported yet
    118. 

  118. *****                   ^ not supported yet
    119. 

  119. *****                             ^ not supported yet
    120. 

  120. *****                                         ^ not supported yet
    121. 

  121.    87  END SetupTable;
    122. 

  122. *****      ^ not supported yet
    123. 

  123.    88  
    124. 

  124.    89  
    125. 

  125.    90  
    126. 

  126.    91  
    127. 

  127.    92  
    128. 

  128.    93  
    129. 

  129.    94      			
    130. 

  130.    95  PROCEDURE GetDataElmts(FileName : ARRAY OF CHAR);
    131. 

  131. *****                                             ^ not supported yet
    132. 

  132.    96  
    133. 

  133.    97  (* return a list of all products *)
    134. 

  134.    98  VAR
    135. 

  135.    99    H : CARDINAL;
    136. 

  136.   100    FldDesc: DataElmtRec;  
    137. 

  137.   101    EM : ErrorMessage;
    138. 

  138.   102    Size : CARDINAL;
    139. 

  139.   103    J : CARDINAL;
    140. 

  140.   104  BEGIN
    141. 

  141.   105    IF FileExists(FileName)
    142. 

  142. *****       ^ not supported yet
    143. 

  143. *****                  ^ not supported yet
    144. 

  144.   106      THEN
    145. 

  145.   107        EM := OpenFile(H,FileName);
    146. 

  146. *****        ^ not supported yet
    147. 

  147. *****              ^ not supported yet
    148. 

  148. *****                         ^ not supported yet
    149. 

  149.   108        EM := BlockRead(H,ADR(FldDesc),SIZE(FldDesc));     (* get the first*)
    150. 

  150. *****        ^ not supported yet
    151. 

  151. *****              ^ not supported yet
    152. 

  152. *****                          ^ not supported yet
    153. 

  153. *****                              ^ not supported yet
    154. 

  154. *****                                       ^ undeclared identifier
    155. 

  155. *****                                            ^ not supported yet
    156. 

  156.   109        WHILE (EM = 0)  DO
    157. 

  157. *****               ^ not supported yet
    158. 

  158.   110          ListInsert(FldDesc,1,FldList,1000);                (* put at the end*)
    159. 

  159. *****          ^ not supported yet
    160. 

  160. *****                     ^ not supported yet
    161. 

  161. *****                               ^ not supported yet
    162. 

  162. *****                                           ^ not supported yet
    163. 

  163.   111          EM := BlockRead(H,ADR(FldDesc),SIZE(FldDesc));
    164. 

  164. *****          ^ not supported yet
    165. 

  165. *****                ^ not supported yet
    166. 

  166. *****                            ^ not supported yet
    167. 

  167. *****                                ^ not supported yet
    168. 

  168. *****                                         ^ undeclared identifier
    169. 

  169. *****                                              ^ not supported yet
    170. 

  170.   112        END;    (* end while *)	
    171. 

  171.   113        EM := CloseHandle(H);
    172. 

  172. *****        ^ not supported yet
    173. 

  173. *****              ^ not supported yet
    174. 

  174. *****                           ^ not supported yet
    175. 

  175.   114     END;
    176. 

  176.   115  END GetDataElmts;
    177. 

  177. *****      ^ not supported yet
    178. 

  178.   116  
    179. 

  179.   117  
    180. 

  180.   118  PROCEDURE UpdateDataElmtsFile(FileName : ARRAY OF CHAR);
    181. 

  181. *****                                                    ^ not supported yet
    182. 

  182.   119  VAR
    183. 

  183.   120    Row : CARDINAL;
    184. 

  184.   121    FldDesc : DataElmtRec;
    185. 

  185.   122    Cell : CellValue;
    186. 

  186.   123    Code,Size : CARDINAL;
    187. 

  187.   124    H : CARDINAL;
    188. 

  188.   125    EM : ErrorMessage;
    189. 

  189.   126  BEGIN
    190. 

  190.   127    DisposeList(FldList);     (* start the list over *)
    191. 

  191. *****    ^ not supported yet
    192. 

  192. *****                ^ not supported yet
    193. 

  193.   128    NewList(FldList);
    194. 

  194. *****    ^ not supported yet
    195. 

  195. *****            ^ not supported yet
    196. 

  196.   129    EM := CreateFile(H,FileName);
    197. 

  197. *****    ^ not supported yet
    198. 

  198. *****          ^ not supported yet
    199. 

  199. *****                       ^ not supported yet
    200. 

  200.   130    FOR Row := 1 TO NumberOfRows(Tab)  DO  (* read the screen & get elemts*)
    201. 

  201. *****                    ^ not supported yet
    202. 

  202. *****                                 ^ not supported yet
    203. 

  203.   131      GetCell(Tab,1,Row,Cell);
    204. 

  204. *****      ^ not supported yet
    205. 

  205. *****              ^ not supported yet
    206. 

  206. *****                        ^ not supported yet
    207. 

  207.   132      FldDesc.Idx := Cell.Str[0];    (* indexed field*)
    208. 

  208. *****      ^ not supported yet
    209. 

  209. *****              ^ not supported yet
    210. 

  210. *****                     ^ not supported yet
    211. 

  211. *****                          ^ not supported yet
    212. 

  212. *****                               ^ not supported yet
    213. 

  213.   133      CAPstr(FldDesc.Idx);
    214. 

  214. *****      ^ not supported yet
    215. 

  215. *****             ^ not supported yet
    216. 

  216. *****                     ^ not supported yet
    217. 

  217.   134  
    218. 

  218.   135      GetCell(Tab,2,Row,Cell);       (* fld name *)
    219. 

  219. *****      ^ not supported yet
    220. 

  220. *****              ^ not supported yet
    221. 

  221. *****                        ^ not supported yet
    222. 

  222.   136      CAPstr(Cell.Str);
    223. 

  223. *****      ^ not supported yet
    224. 

  224. *****             ^ not supported yet
    225. 

  225. *****                  ^ not supported yet
    226. 

  226.   137      Copy(FldDesc.Name , Cell.Str);
    227. 

  227. *****      ^ not supported yet
    228. 

  228. *****           ^ not supported yet
    229. 

  229. *****                   ^ not supported yet
    230. 

  230. *****                          ^ not supported yet
    231. 

  231. *****                               ^ not supported yet
    232. 

  232.   138  
    233. 

  233.   139      GetCell(Tab, 3,Row,Cell);       (* Fld Type *)
    234. 

  234. *****      ^ not supported yet
    235. 

  235. *****              ^ not supported yet
    236. 

  236. *****                         ^ not supported yet
    237. 

  237.   140      CAPstr(Cell.Str);    
    238. 

  238. *****      ^ not supported yet
    239. 

  239. *****             ^ not supported yet
    240. 

  240. *****                  ^ not supported yet
    241. 

  241.   141      FldDesc.Type := Cell.Str[0];
    242. 

  242. *****      ^ not supported yet
    243. 

  243. *****              ^ not supported yet
    244. 

  244. *****                      ^ not supported yet
    245. 

  245. *****                           ^ not supported yet
    246. 

  246. *****                                ^ not supported yet
    247. 

  247.   142      
    248. 

  248.   143      GetCell(Tab,4,Row,Cell);        (* fld lenght *)
    249. 

  249. *****      ^ not supported yet
    250. 

  250. *****              ^ not supported yet
    251. 

  251. *****                        ^ not supported yet
    252. 

  252.   144      FldDesc.Len := Cell.I;
    253. 

  253. *****      ^ not supported yet
    254. 

  254. *****              ^ not supported yet
    255. 

  255. *****                     ^ not supported yet
    256. 

  256. *****                          ^ not supported yet
    257. 

  257.   145      
    258. 

  258.   146      GetCell(Tab,5,Row,Cell);        (* dec positions *)
    259. 

  259. *****      ^ not supported yet
    260. 

  260. *****              ^ not supported yet
    261. 

  261. *****                        ^ not supported yet
    262. 

  262.   147      FldDesc.Dec := Cell.I;
    263. 

  263. *****      ^ not supported yet
    264. 

  264. *****              ^ not supported yet
    265. 

  265. *****                     ^ not supported yet
    266. 

  266. *****                          ^ not supported yet
    267. 

  267.   148      
    268. 

  268.   149      GetCell(Tab,6,Row,Cell);      
    269. 

  269. *****      ^ not supported yet
    270. 

  270. *****              ^ not supported yet
    271. 

  271. *****                        ^ not supported yet
    272. 

  272.   150      Copy(FldDesc.Desc , Cell.Str);       (* description *)
    273. 

  273. *****      ^ not supported yet
    274. 

  274. *****           ^ not supported yet
    275. 

  275. *****                   ^ not supported yet
    276. 

  276. *****                          ^ not supported yet
    277. 

  277. *****                               ^ not supported yet
    278. 

  278.   151      
    279. 

  279.   152      IF (FldDesc.Name[0] # ' ') AND(FldDesc.Idx # 'D')
    280. 

  280. *****          ^ not supported yet
    281. 

  281. *****                  ^ not supported yet
    282. 

  282. *****                        ^ not supported yet
    283. 

  283. *****                                     ^ not supported yet
    284. 

  284. *****                                             ^ not supported yet
    285. 

  285.   153        THEN
    286. 

  286.   154           ListInsert(FldDesc,1,FldList,1000);                (* put at the end*)      
    287. 

  287. *****           ^ not supported yet
    288. 

  288. *****                      ^ not supported yet
    289. 

  289. *****                                ^ not supported yet
    290. 

  290. *****                                            ^ not supported yet
    291. 

  291.   155           EM := BlockWrite(H,ADR(FldDesc),SIZE(FldDesc));
    292. 

  292. *****           ^ not supported yet
    293. 

  293. *****                 ^ not supported yet
    294. 

  294. *****                              ^ not supported yet
    295. 

  295. *****                                  ^ not supported yet
    296. 

  296. *****                                           ^ undeclared identifier
    297. 

  297. *****                                                ^ not supported yet
    298. 

  298.   156        END;	 
    299. 

  299.   157    END; (* end for row *)
    300. 

  300.   158    EM := CloseHandle(H);
    301. 

  301. *****    ^ not supported yet
    302. 

  302. *****          ^ not supported yet
    303. 

  303. *****                       ^ not supported yet
    304. 

  304.   159        
    305. 

  305.   160  END UpdateDataElmtsFile;
    306. 

  306. *****      ^ not supported yet
    307. 

  307.   161  
    308. 

  308.   162  
    309. 

  309.   163  
    310. 

  310.   164  PROCEDURE DefineDataElmts(TableName : ARRAY OF CHAR);
    311. 

  311. *****                                                 ^ not supported yet
    312. 

  312.   165  VAR
    313. 

  313.   166    J : CARDINAL;
    314. 

  314.   167    Cell : CellValue;
    315. 

  315.   168    Row  : CARDINAL;
    316. 

  316.   169    DataElmt  : POINTER TO DataElmtRec;
    317. 

  317. *****                           ^ not supported yet
    318. 

  318.   170    Nbr : ARRAY[0..4] OF CHAR;
    319. 

  319. *****                   ^ not supported yet
    320. 

  320. *****                         ^ not supported yet
    321. 

  321.   171    Size,Code : CARDINAL;
    322. 

  322.   172  BEGIN
    323. 

  323.   173    BuildTable(Tab,ListLength(FldList)+20);  (* increase table size by 20*)
    324. 

  324. *****    ^ not supported yet
    325. 

  325. *****               ^ not supported yet
    326. 

  326. *****                   ^ not supported yet
    327. 

  327. *****                              ^ not supported yet
    328. 

  328. *****                                         ^ not supported yet
    329. 

  329.   174    FOR Row := 1 TO ListLength(FldList) DO  
    330. 

  330. *****                    ^ not supported yet
    331. 

  331. *****                               ^ not supported yet
    332. 

  332.   175      GetElmtAdr(FldList,Row,DataElmt,Size,Code);  (* get address of data elmt *)
    333. 

  333. *****      ^ not supported yet
    334. 

  334. *****                 ^ not supported yet
    335. 

  335. *****                             ^ not supported yet
    336. 

  336. *****                                               ^ not supported yet
    337. 

  337.   176      Cell.Str[0] := DataElmt^.Idx;
    338. 

  338. *****      ^ not supported yet
    339. 

  339. *****           ^ not supported yet
    340. 

  340. *****                ^ not supported yet
    341. 

  341. *****                     ^ not supported yet
    342. 

  342. *****                               ^ not supported yet
    343. 

  343.   177      Cell.Str[1] := 0C;
    344. 

  344. *****      ^ not supported yet
    345. 

  345. *****           ^ not supported yet
    346. 

  346. *****                ^ not supported yet
    347. 

  347.   178      PutCell(Tab,1,Row,Cell);     (* indexed *)
    348. 

  348. *****      ^ not supported yet
    349. 

  349. *****              ^ not supported yet
    350. 

  350. *****                        ^ not supported yet
    351. 

  351.   179      
    352. 

  352.   180      Copy(Cell.Str , DataElmt^.Name);	(* field names *)
    353. 

  353. *****      ^ not supported yet
    354. 

  354. *****           ^ not supported yet
    355. 

  355. *****                ^ not supported yet
    356. 

  356. *****                      ^ not supported yet
    357. 

  357. *****                                ^ not supported yet
    358. 

  358.   181      PutCell(Tab,2,Row,Cell);
    359. 

  359. *****      ^ not supported yet
    360. 

  360. *****              ^ not supported yet
    361. 

  361. *****                        ^ not supported yet
    362. 

  362.   182      
    363. 

  363.   183      Cell.Str[0] := DataElmt^.Type;  (* field type *)
    364. 

  364. *****      ^ not supported yet
    365. 

  365. *****           ^ not supported yet
    366. 

  366. *****                ^ not supported yet
    367. 

  367. *****                     ^ not supported yet
    368. 

  368. *****                               ^ not supported yet
    369. 

  369.   184      Cell.Str[1] := 0C;
    370. 

  370. *****      ^ not supported yet
    371. 

  371. *****           ^ not supported yet
    372. 

  372. *****                ^ not supported yet
    373. 

  373.   185      PutCell(Tab,3,Row,Cell);
    374. 

  374. *****      ^ not supported yet
    375. 

  375. *****              ^ not supported yet
    376. 

  376. *****                        ^ not supported yet
    377. 

  377.   186      
    378. 

  378.   187      Cell.I := DataElmt^.Len;	(* field length *)
    379. 

  379. *****      ^ not supported yet
    380. 

  380. *****           ^ not supported yet
    381. 

  381. *****                ^ not supported yet
    382. 

  382. *****                          ^ not supported yet
    383. 

  383.   188      PutCell(Tab,4,Row,Cell);
    384. 

  384. *****      ^ not supported yet
    385. 

  385. *****              ^ not supported yet
    386. 

  386. *****                        ^ not supported yet
    387. 

  387.   189      
    388. 

  388.   190      Cell.I := DataElmt^.Dec;	(* decimal positions *)
    389. 

  389. *****      ^ not supported yet
    390. 

  390. *****           ^ not supported yet
    391. 

  391. *****                ^ not supported yet
    392. 

  392. *****                          ^ not supported yet
    393. 

  393.   191      PutCell(Tab,5,Row,Cell);
    394. 

  394. *****      ^ not supported yet
    395. 

  395. *****              ^ not supported yet
    396. 

  396. *****                        ^ not supported yet
    397. 

  397.   192      
    398. 

  398.   193      Copy(Cell.Str , DataElmt^.Desc);	(* Description *)
    399. 

  399. *****      ^ not supported yet
    400. 

  400. *****           ^ not supported yet
    401. 

  401. *****                ^ not supported yet
    402. 

  402. *****                      ^ not supported yet
    403. 

  403. *****                                ^ not supported yet
    404. 

  404.   194      PutCell(Tab,6,Row,Cell);    
    405. 

  405. *****      ^ not supported yet
    406. 

  406. *****              ^ not supported yet
    407. 

  407. *****                        ^ not supported yet
    408. 

  408.   195      
    409. 

  409.   196    END;  
    410. 

  410.   197    ControlTable(Tab,2,5,78,20);
    411. 

  411. *****    ^ not supported yet
    412. 

  412. *****                 ^ not supported yet
    413. 

  413. *****                              ^ not supported yet
    414. 

  414.   198  
    415. 

  415.   199  
    416. 

  416.   200  END DefineDataElmts;
    417. 

  417. *****      ^ not supported yet
    418. 

  418.   201  
    419. 

  419.   202  
    420. 

  420.   203  
    421. 

  421.   204  
    422. 

  422.   205  PROCEDURE SelectTable(VAR TableName : ARRAY OF CHAR);
    423. 

  423. *****                                                 ^ not supported yet
    424. 

  424.   206  VAR
    425. 

  425.   207     DF : DisplayFrame;
    426. 

  426.   208     NxtFrame : AFrameName;
    427. 

  427.   209     ReturnVal: ARRAY[0..40] OF CHAR;
    428. 

  428. *****                         ^ not supported yet
    429. 

  429. *****                                ^ not supported yet
    430. 

  430.   210     Row : CARDINAL;
    431. 

  431.   211     Drive : CHAR;
    432. 

  432.   212     Card : CARDINAL;
    433. 

  433.   213     PathName : ARRAY[0..63] OF CHAR;
    434. 

  434. *****                         ^ not supported yet
    435. 

  435. *****                                ^ not supported yet
    436. 

  436.   214     Str : ARRAY[0..12] OF CHAR;
    437. 

  437. *****                    ^ not supported yet
    438. 

  438. *****                           ^ not supported yet
    439. 

  439.   215     FileName : AFrameName;
    440. 

  440.   216  
    441. 

  441.   217     ImageRec: ImageElement;
    442. 

  442.   218     
    443. 

  443.   219  BEGIN
    444. 

  444.   220    InitDisplayFrame(DF,VWindows.CurrentWindow);
    445. 

  445. *****    ^ not supported yet
    446. 

  446. *****                     ^ not supported yet
    447. 

  447. *****                        ^ not supported yet
    448. 

  448. *****                                 ^ not supported yet
    449. 

  449.   221    DF^.action := 'I';
    450. 

  450. *****    ^ not supported yet
    451. 

  451. *****        ^ not supported yet
    452. 

  452.   222    AddMenuItem(DF,2,2,'NEW',30,1,'NEW');
    453. 

  453. *****    ^ not supported yet
    454. 

  454. *****                ^ not supported yet
    455. 

  455. *****                       ^ not supported yet
    456. 

  456. *****                                  ^ not supported yet
    457. 

  457.   223    DF^.headline := 3;
    458. 

  458. *****    ^ not supported yet
    459. 

  459. *****        ^ not supported yet
    460. 

  460.   224    EM := DirToFrame('*.ddf',DF,1);   (* find data definition file *)
    461. 

  461. *****    ^ not supported yet
    462. 

  462. *****          ^ not supported yet
    463. 

  463. *****                     ^ not supported yet
    464. 

  464. *****                             ^ not supported yet
    465. 

  465. *****                                 ^ not supported yet
    466. 

  466.   225  
    467. 

  467.   226    ControlFrame(DF,1,'',TRUE,FileName);
    468. 

  468. *****    ^ not supported yet
    469. 

  469. *****                 ^ not supported yet
    470. 

  470. *****                              ^ not supported yet
    471. 

  471.   227    GetFieldImageRec( DF, DF^.CurrentField, ImageRec );
    472. 

  472. *****    ^ not supported yet
    473. 

  473. *****                      ^ not supported yet
    474. 

  474. *****                          ^ not supported yet
    475. 

  475. *****                              ^ not supported yet
    476. 

  476. *****                                            ^ not supported yet
    477. 

  477.   228    Copy(FileName , ImageRec.text);
    478. 

  478. *****    ^ not supported yet
    479. 

  479. *****         ^ not supported yet
    480. 

  480. *****                    ^ not supported yet
    481. 

  481. *****                             ^ not supported yet
    482. 

  482.   229    Copy(TableName , FileName);
    483. 

  483. *****    ^ not supported yet
    484. 

  484. *****         ^ not supported yet
    485. 

  485. *****                     ^ not supported yet
    486. 

  486.   230    CrunchBlanks(TableName);
    487. 

  487. *****    ^ not supported yet
    488. 

  488. *****                 ^ not supported yet
    489. 

  489.   231    IF Equal(TableName,'NEW')
    490. 

  490. *****       ^ not supported yet
    491. 

  491. *****             ^ not supported yet
    492. 

  492. *****                       ^ not supported yet
    493. 

  493.   232      THEN
    494. 

  494.   233        PromptStr('Enter Table Name ',TableName);
    495. 

  495. *****        ^ not supported yet
    496. 

  496. *****                  ^ not supported yet
    497. 

  497. *****                                      ^ not supported yet
    498. 

  498.   234        CrunchBlanks(TableName);
    499. 

  499. *****        ^ not supported yet
    500. 

  500. *****                     ^ not supported yet
    501. 

  501.   235        IF Present('.',TableName)
    502. 

  502. *****           ^ not supported yet
    503. 

  503. *****                       ^ not supported yet
    504. 

  504.   236          THEN
    505. 

  505.   237  	  SetLength(TableName,Pos('.',TableName)); (* make sure .ddf type*)
    506. 

  506. *****  	  ^ not supported yet
    507. 

  507. *****  	            ^ not supported yet
    508. 

  508. *****  	                      ^ not supported yet
    509. 

  509. *****  	                              ^ not supported yet
    510. 

  510.   238  	END;  
    511. 

  511.   239         Append(TableName,'.DDF')	
    512. 

  512. *****         ^ not supported yet
    513. 

  513. *****                ^ not supported yet
    514. 

  514. *****                          ^ not supported yet
    515. 

  515.   240      END;  
    516. 

  516.   241      Drive := GetDefaultDrive();
    517. 

  517. *****               ^ not supported yet
    518. 

  518. *****                               ^ not supported yet
    519. 

  519.   242      Card := GetCurrentDir(Drive,PathName);
    520. 

  520. *****              ^ not supported yet
    521. 

  521. *****                                  ^ not supported yet
    522. 

  522.   243      FullTableName[0] := Drive;
    523. 

  523. *****      ^ not supported yet
    524. 

  524. *****                     ^ not supported yet
    525. 

  525.   244      FullTableName[1] := 0C;
    526. 

  526. *****      ^ not supported yet
    527. 

  527. *****                     ^ not supported yet
    528. 

  528.   245      Append(FullTableName,':');
    529. 

  529. *****      ^ not supported yet
    530. 

  530. *****             ^ not supported yet
    531. 

  531. *****                              ^ not supported yet
    532. 

  532.   246      Append(FullTableName,PathName);
    533. 

  533. *****      ^ not supported yet
    534. 

  534. *****             ^ not supported yet
    535. 

  535. *****                           ^ not supported yet
    536. 

  536.   247      IF FullTableName[Length(FullTableName)-1] <> '\'
    537. 

  537. *****         ^ not supported yet
    538. 

  538. *****                       ^ not supported yet
    539. 

  539. *****                              ^ not supported yet
    540. 

  540. *****                                              ^ not supported yet
    541. 

  541.   248        THEN Append(FullTableName,'\');
    542. 

  542. *****             ^ not supported yet
    543. 

  543. *****                    ^ not supported yet
    544. 

  544. *****                                     ^ not supported yet
    545. 

  545.   249        END;
    546. 

  546.   250      Append(FullTableName,TableName);
    547. 

  547. *****      ^ not supported yet
    548. 

  548. *****             ^ not supported yet
    549. 

  549. *****                           ^ not supported yet
    550. 

  550.   251  END SelectTable;
    551. 

  551. *****      ^ not supported yet
    552. 

  552.   252  
    553. 

  553.   253  PROCEDURE FixLists();
    554. 

  554.   254  
    555. 

  555.   255  (* go through the list of fields and create a list of indexes  *)
    556. 

  556.   256  (* Give each index a accelerator key (highlighted key on menu) *)
    557. 

  557.   257  (* by checking each letter in the field for an unused letter   *)
    558. 

  558.   258  (* the index will be given an name = Fieldname+'IDX'           *)
    559. 

  559.   259  (* the data base will be given the name of the table + 'DBF'   *)
    560. 

  560.   260  
    561. 

  561.   261  PROCEDURE MakeRep(VAR Item : DataElmtRec);
    562. 

  562.   262   VAR Str : ARRAY [0..10] OF CHAR;
    563. 

  563. *****                       ^ not supported yet
    564. 

  564. *****                              ^ not supported yet
    565. 

  565.   263  BEGIN
    566. 

  566.   264    CASE Item.Type OF
    567. 

  567. *****         ^ not supported yet
    568. 

  568. *****              ^ not supported yet
    569. 

  569.   265      'C'  :  IF Item.Len = 1
    570. 

  570. *****                 ^ not supported yet
    571. 

  571. *****                      ^ not supported yet
    572. 

  572.   266      	     THEN Item.RecType := 'CHAR'
    573. 

  573. *****      	          ^ not supported yet
    574. 

  574. *****      	               ^ not supported yet
    575. 

  575. *****      	                          ^ not supported yet
    576. 

  576.   267      	     ELSE Item.RecType := 'ARRAY[0..';
    577. 

  577. *****      	          ^ not supported yet
    578. 

  578. *****      	               ^ not supported yet
    579. 

  579. *****      	                          ^ not supported yet
    580. 

  580.   268  		  CardinalToStr(Item.Len,3,Str);
    581. 

  581. *****  		  ^ not supported yet
    582. 

  582. *****  		                ^ not supported yet
    583. 

  583. *****  		                     ^ not supported yet
    584. 

  584. *****  		                           ^ not supported yet
    585. 

  585.   269  		  Append(Item.RecType,Str);
    586. 

  586. *****  		  ^ not supported yet
    587. 

  587. *****  		         ^ not supported yet
    588. 

  588. *****  		              ^ not supported yet
    589. 

  589. *****  		                      ^ not supported yet
    590. 

  590.   270  		  Append(Item.RecType,'] OF CHAR;');
    591. 

  591. *****  		  ^ not supported yet
    592. 

  592. *****  		         ^ not supported yet
    593. 

  593. *****  		              ^ not supported yet
    594. 

  594. *****  		                      ^ not supported yet
    595. 

  595.   271  	     END;
    596. 

  596.   272      |'N'  : IF (Item.Dec = 0 ) AND (Item.Len < 6)
    597. 

  597. *****                  ^ not supported yet
    598. 

  598. *****                       ^ not supported yet
    599. 

  599. *****                                      ^ not supported yet
    600. 

  600. *****                                           ^ not supported yet
    601. 

  601.   273      		THEN Item.RecType := 'CARDINAL';
    602. 

  602. *****      		     ^ not supported yet
    603. 

  603. *****      		          ^ not supported yet
    604. 

  604. *****      		                     ^ not supported yet
    605. 

  605.   274      	     ELSIF (Item.Dec = 0)
    606. 

  606. *****      	            ^ not supported yet
    607. 

  607. *****      	                 ^ not supported yet
    608. 

  608.   275      	        THEN Item.RecType := 'LONGINT';
    609. 

  609. *****      	             ^ not supported yet
    610. 

  610. *****      	                  ^ not supported yet
    611. 

  611. *****      	                             ^ not supported yet
    612. 

  612.   276      	     ELSE Item.RecType := 'Real8';
    613. 

  613. *****      	          ^ not supported yet
    614. 

  614. *****      	               ^ not supported yet
    615. 

  615. *****      	                          ^ not supported yet
    616. 

  616.   277      	     END;   		       
    617. 

  617.   278      |'M'   : Item.RecType := 'Memo';
    618. 

  618. *****               ^ not supported yet
    619. 

  619. *****                    ^ not supported yet
    620. 

  620. *****                               ^ not supported yet
    621. 

  621.   279      |'D'   : Item.RecType := 'Date';
    622. 

  622. *****               ^ not supported yet
    623. 

  623. *****                    ^ not supported yet
    624. 

  624. *****                               ^ not supported yet
    625. 

  625.   280      
    626. 

  626.   281      |'L'   : Item.RecType := 'BOOLEAN';
    627. 

  627. *****               ^ not supported yet
    628. 

  628. *****                    ^ not supported yet
    629. 

  629. *****                               ^ not supported yet
    630. 

  630.   282      END;
    631. 

  631.   283  END MakeRep;    
    632. 

  632. *****      ^ not supported yet
    633. 

  633.   284  
    634. 

  634.   285  VAR
    635. 

  635.   286   J : CARDINAL;
    636. 

  636.   287   Item : POINTER TO DataElmtRec;
    637. 

  637. *****                     ^ not supported yet
    638. 

  638.   288   IdxItem : IndexElmtRec;
    639. 

  639.   289   Size,Code : CARDINAL;
    640. 

  640.   290   CharSet : SET OF CHAR;
    641. 

  641. *****                    ^ not supported yet
    642. 

  642.   291   C : CHAR;
    643. 

  643.   292   K : CARDINAL;
    644. 

  644.   293  BEGIN
    645. 

  645.   294    SetLength(TableName,Pos('.',TableName));   (* get rid of file type in name*)
    646. 

  646. *****    ^ not supported yet
    647. 

  647. *****              ^ not supported yet
    648. 

  648. *****                        ^ not supported yet
    649. 

  649. *****                                ^ not supported yet
    650. 

  650.   295    LowerStr(TableName);
    651. 

  651. *****    ^ not supported yet
    652. 

  652. *****             ^ not supported yet
    653. 

  653.   296    CAPstr(TableName[0]);
    654. 

  654. *****    ^ not supported yet
    655. 

  655. *****           ^ not supported yet
    656. 

  656. *****                      ^ not supported yet
    657. 

  657.   297    Copy(DBFName , TableName);
    658. 

  658. *****    ^ not supported yet
    659. 

  659. *****         ^ not supported yet
    660. 

  660. *****                   ^ not supported yet
    661. 

  661.   298    Append(DBFName,'DBF');
    662. 

  662. *****    ^ not supported yet
    663. 

  663. *****           ^ not supported yet
    664. 

  664. *****                   ^ not supported yet
    665. 

  665.   299  			(* the index fields will become menu items in
    666. 

  666.   300  			   the generated EDT file.  Each menu item will
    667. 

  667.   301  			   have a selection character  highlighted -
    668. 

  668.   302  			   Find an unused character in the index name to 
    669. 

  669.   303  			   highlight *)
    670. 

  670.   304    
    671. 

  671.   305    CharSet := CharSet/CharSet;  (* Charset = the set of used characters *)
    672. 

  672. *****    ^ not supported yet
    673. 

  673. *****               ^ not supported yet
    674. 

  674. *****                       ^ not supported yet
    675. 

  675.   306         
    676. 

  676.   307    INCL(CharSet,'F');	       (* First record*)
    677. 

  677. *****    ^ undeclared identifier
    678. 

  678. *****         ^ not supported yet
    679. 

  679. *****                    ^ not supported yet
    680. 

  680.   308    INCL(CharSet,'L');	       (* Last record *)
    681. 

  681. *****    ^ undeclared identifier
    682. 

  682. *****         ^ not supported yet
    683. 

  683. *****                    ^ not supported yet
    684. 

  684.   309    INCL(CharSet,'N');           (* Next record *)
    685. 

  685. *****    ^ undeclared identifier
    686. 

  686. *****         ^ not supported yet
    687. 

  687. *****                    ^ not supported yet
    688. 

  688.   310    INCL(CharSet,'P');	       (* Prev record *)
    689. 

  689. *****    ^ undeclared identifier
    690. 

  690. *****         ^ not supported yet
    691. 

  691. *****                    ^ not supported yet
    692. 

  692.   311    INCL(CharSet,'A');	       (* Add Record *)
    693. 

  693. *****    ^ undeclared identifier
    694. 

  694. *****         ^ not supported yet
    695. 

  695. *****                    ^ not supported yet
    696. 

  696.   312    INCL(CharSet,'Q');	       (* The oddballs*)
    697. 

  697. *****    ^ undeclared identifier
    698. 

  698. *****         ^ not supported yet
    699. 

  699. *****                    ^ not supported yet
    700. 

  700.   313    NewList(IdxList);
    701. 

  701. *****    ^ not supported yet
    702. 

  702. *****            ^ not supported yet
    703. 

  703.   314    FOR J := 1 TO ListLength(FldList) DO 
    704. 

  704. *****                  ^ not supported yet
    705. 

  705. *****                             ^ not supported yet
    706. 

  706.   315      GetElmtAdr(FldList,J,Item,Size,Code);
    707. 

  707. *****      ^ not supported yet
    708. 

  708. *****                 ^ not supported yet
    709. 

  709. *****                           ^ not supported yet
    710. 

  710. *****                                         ^ not supported yet
    711. 

  711.   316      MakeRep(Item^);    				
    712. 

  712. *****      ^ not supported yet
    713. 

  713. *****              ^ not supported yet
    714. 

  714.   317      CrunchBlanks(Item^.Desc);
    715. 

  715. *****      ^ not supported yet
    716. 

  716. *****                   ^ not supported yet
    717. 

  717. *****                         ^ not supported yet
    718. 

  718.   318      IF Item^.Idx = 'I'
    719. 

  719. *****         ^ not supported yet
    720. 

  720. *****               ^ not supported yet
    721. 

  721.   319        THEN
    722. 

  722.   320          CrunchBlanks(Item^.Name);
    723. 

  723. *****          ^ not supported yet
    724. 

  724. *****                       ^ not supported yet
    725. 

  725. *****                             ^ not supported yet
    726. 

  726.   321          Copy(IdxItem.FldName , Item^.Name);
    727. 

  727. *****          ^ not supported yet
    728. 

  728. *****               ^ not supported yet
    729. 

  729. *****                       ^ not supported yet
    730. 

  730. *****                                 ^ not supported yet
    731. 

  731. *****                                       ^ not supported yet
    732. 

  732.   322  	LowerStr(IdxItem.FldName);
    733. 

  733. *****  	^ not supported yet
    734. 

  734. *****  	         ^ not supported yet
    735. 

  735. *****  	                 ^ not supported yet
    736. 

  736.   323  	CAPstr(IdxItem.FldName[0]);
    737. 

  737. *****  	^ not supported yet
    738. 

  738. *****  	       ^ not supported yet
    739. 

  739. *****  	               ^ not supported yet
    740. 

  740. *****  	                        ^ not supported yet
    741. 

  741.   324  	Copy(IdxItem.EdtName , IdxItem.FldName);
    742. 

  742. *****  	^ not supported yet
    743. 

  743. *****  	     ^ not supported yet
    744. 

  744. *****  	             ^ not supported yet
    745. 

  745. *****  	                       ^ not supported yet
    746. 

  746. *****  	                               ^ not supported yet
    747. 

  747.   325  	Copy(IdxItem.IdxName , IdxItem.FldName);
    748. 

  748. *****  	^ not supported yet
    749. 

  749. *****  	     ^ not supported yet
    750. 

  750. *****  	             ^ not supported yet
    751. 

  751. *****  	                       ^ not supported yet
    752. 

  752. *****  	                               ^ not supported yet
    753. 

  753.   326  	IF Equal(Item^.RecType ,'Real8')
    754. 

  754. *****  	   ^ not supported yet
    755. 

  755. *****  	         ^ not supported yet
    756. 

  756. *****  	               ^ not supported yet
    757. 

  757. *****  	                        ^ not supported yet
    758. 

  758.   327   	    THEN IdxItem.IndexType := 'R'   (* real type *)
    759. 

  759. *****   	         ^ not supported yet
    760. 

  760. *****   	                 ^ not supported yet
    761. 

  761.   328  	  ELSIF Equal(Item^.RecType, 'CARDINAL')
    762. 

  762. *****  	        ^ not supported yet
    763. 

  763. *****  	              ^ not supported yet
    764. 

  764. *****  	                    ^ not supported yet
    765. 

  765. *****  	                             ^ not supported yet
    766. 

  766.   329  	    THEN IdxItem.IndexType := 'N'   (* cardinal type *)
    767. 

  767. *****  	         ^ not supported yet
    768. 

  768. *****  	                 ^ not supported yet
    769. 

  769.   330  	  ELSE IdxItem.IndexType := 'C';    (* everything else is char*)
    770. 

  770. *****  	       ^ not supported yet
    771. 

  771. *****  	               ^ not supported yet
    772. 

  772.   331  	END;    
    773. 

  773.   332  	  
    774. 

  774.   333  	IF Length(IdxItem.IdxName) > 8
    775. 

  775. *****  	   ^ not supported yet
    776. 

  776. *****  	          ^ not supported yet
    777. 

  777. *****  	                  ^ not supported yet
    778. 

  778.   334  	  THEN
    779. 

  779.   335  	    IdxItem.IdxName[8] := 0C;  (* set to max of 8 *)
    780. 

  780. *****  	    ^ not supported yet
    781. 

  781. *****  	            ^ not supported yet
    782. 

  782. *****  	                     ^ not supported yet
    783. 

  783.   336  	  END;  
    784. 

  784.   337  	CrunchBlanks(IdxItem.EdtName);
    785. 

  785. *****  	^ not supported yet
    786. 

  786. *****  	             ^ not supported yet
    787. 

  787. *****  	                     ^ not supported yet
    788. 

  788.   338  	
    789. 

  789.   339  	K := 0;
    790. 

  790.   340  	LOOP
    791. 

  791.   341  	  IF K > Length(IdxItem.FldName)
    792. 

  792. *****  	         ^ not supported yet
    793. 

  793. *****  	                ^ not supported yet
    794. 

  794. *****  	                        ^ not supported yet
    795. 

  795.   342  	    THEN
    796. 

  796.   343  	      CAPstr(IdxItem.FldName[0]);  (* this will cause a compiler error*)
    797. 

  797. *****  	      ^ not supported yet
    798. 

  798. *****  	             ^ not supported yet
    799. 

  799. *****  	                     ^ not supported yet
    800. 

  800. *****  	                              ^ not supported yet
    801. 

  801.   344  	      IdxItem.HighLight := 'Q';	      
    802. 

  802. *****  	      ^ not supported yet
    803. 

  803. *****  	              ^ not supported yet
    804. 

  804.   345  	      EXIT;			  (* in the generated program CASE stm*)
    805. 

  805.   346  	    END;  
    806. 

  806.   347  	  C := IdxItem.FldName[K];
    807. 

  807. *****  	       ^ not supported yet
    808. 

  808. *****  	               ^ not supported yet
    809. 

  809. *****  	                        ^ not supported yet
    810. 

  810.   348  	  CAPstr(C);  
    811. 

  811. *****  	  ^ not supported yet
    812. 

  812. *****  	          ^ not supported yet
    813. 

  813.   349  	  IF NOT (C IN CharSet)
    814. 

  814. *****  	               ^ not supported yet
    815. 

  815.   350  	    THEN
    816. 

  816.   351  	      CAPstr(IdxItem.EdtName[K]); (* make highlighted char *)
    817. 

  817. *****  	      ^ not supported yet
    818. 

  818. *****  	             ^ not supported yet
    819. 

  819. *****  	                     ^ not supported yet
    820. 

  820. *****  	                              ^ not supported yet
    821. 

  821.   352                INCL(CharSet,IdxItem.EdtName[K]); (* add to set of used char*)
    822. 

  822. *****                ^ undeclared identifier
    823. 

  823. *****                     ^ not supported yet
    824. 

  824. *****                             ^ not supported yet
    825. 

  825. *****                                     ^ not supported yet
    826. 

  826. *****                                              ^ not supported yet
    827. 

  827.   353  	      IdxItem.HighLight := IdxItem.EdtName[K];
    828. 

  828. *****  	      ^ not supported yet
    829. 

  829. *****  	              ^ not supported yet
    830. 

  830. *****  	                           ^ not supported yet
    831. 

  831. *****  	                                   ^ not supported yet
    832. 

  832. *****  	                                            ^ not supported yet
    833. 

  833.   354  	      EXIT;
    834. 

  834.   355  	    END;
    835. 

  835.   356  	  INC(K);  
    836. 

  836. *****  	  ^ undeclared identifier
    837. 

  837. *****  	       ^ not supported yet
    838. 

  838.   357  	 END;     
    839. 

  839.   358  	ListInsert(IdxItem,1,IdxList,100);
    840. 

  840. *****  	^ not supported yet
    841. 

  841. *****  	           ^ not supported yet
    842. 

  842. *****  	                     ^ not supported yet
    843. 

  843. *****  	                                ^ not supported yet
    844. 

  844.   359        END;	
    845. 

  845.   360     END; (* end for j *)   
    846. 

  846.   361  
    847. 

  847.   362  END FixLists;
    848. 

  848. *****      ^ not supported yet
    849. 

  849.   363  
    850. 

  850.   364  
    851. 

  851.   365  BEGIN
    852. 

  852.   366  
    853. 

  853.   367  
    854. 

  854.   368    NewList(FldList);
    855. 

  855. *****    ^ not supported yet
    856. 

  856. *****            ^ not supported yet
    857. 

  857.   369    SelectTable(TableName);         (* Get name of table  *)
    858. 

  858. *****    ^ not supported yet
    859. 

  859. *****                ^ not supported yet
    860. 

  860.   370  
    861. 

  861.   371    GetDataElmts(FullTableName);	  (* get the elements from the file *)
    862. 

  862. *****    ^ not supported yet
    863. 

  863. *****                 ^ not supported yet
    864. 

  864.   372    ClearScreen();
    865. 

  865. *****    ^ not supported yet
    866. 

  866. *****                ^ not supported yet
    867. 

  867.   373    IF PromptYN('Update Table ?',DF)
    868. 

  868. *****       ^ not supported yet
    869. 

  869. *****                ^ not supported yet
    870. 

  870. *****                                 ^ not supported yet
    871. 

  871.   374      THEN
    872. 

  872.   375        ClearScreen();
    873. 

  873. *****        ^ not supported yet
    874. 

  874. *****                    ^ not supported yet
    875. 

  875.   376        WriteEol(outp,
    876. 

  876. *****        ^ not supported yet
    877. 

  877. *****                 ^ not supported yet
    878. 

  878.   377          '  ....This may take a few minutes to create the data structures ..');
    879. 

  879. *****          ^ not supported yet
    880. 

  880.   378        SetupTable();  
    881. 

  881. *****        ^ not supported yet
    882. 

  882. *****                   ^ not supported yet
    883. 

  883.   379        DefineDataElmts(TableName);
    884. 

  884. *****        ^ not supported yet
    885. 

  885. *****                        ^ not supported yet
    886. 

  886.   380        UpdateDataElmtsFile(FullTableName);
    887. 

  887. *****        ^ not supported yet
    888. 

  888. *****                            ^ not supported yet
    889. 

  889.   381       END; 
    890. 

  890.   382    FixLists();   
    891. 

  891. *****    ^ not supported yet
    892. 

  892. *****             ^ not supported yet
    893. 

  893.   383    IF PromptYN('Create New database file ?',DF)
    894. 

  894. *****       ^ not supported yet
    895. 

  895. *****                ^ not supported yet
    896. 

  896. *****                                             ^ not supported yet
    897. 

  897.   384      THEN
    898. 

  898.   385       ClearScreen();
    899. 

  899. *****       ^ not supported yet
    900. 

  900. *****                   ^ not supported yet
    901. 

  901.   386       MakeDataBaseFile(FldList);
    902. 

  902. *****       ^ not supported yet
    903. 

  903. *****                        ^ not supported yet
    904. 

  904.   387       END;
    905. 

  905.   388   (* GenCode(TableName,FldList); *)
    906. 

  906.   389   IF PromptYN('Create the EDT file?',DF)
    907. 

  907. *****      ^ not supported yet
    908. 

  908. *****               ^ not supported yet
    909. 

  909. *****                                      ^ not supported yet
    910. 

  910.   390     THEN
    911. 

  911.   391       GenEdtFile(TableName,FldList,IdxList);
    912. 

  912. *****       ^ not supported yet
    913. 

  913. *****                  ^ not supported yet
    914. 

  914. *****                            ^ not supported yet
    915. 

  915. *****                                    ^ not supported yet
    916. 

  916.   392     END;
    917. 

  917.   393    IF PromptYN('Generate Gode ?',DF)
    918. 

  918. *****       ^ not supported yet
    919. 

  919. *****                ^ not supported yet
    920. 

  920. *****                                  ^ not supported yet
    921. 

  921.   394      THEN
    922. 

  922.   395        ClearScreen();
    923. 

  923. *****        ^ not supported yet
    924. 

  924. *****                    ^ not supported yet
    925. 

  925.   396        InitDisplayFrame(DF,VWindows.CurrentWindow);
    926. 

  926. *****        ^ not supported yet
    927. 

  927. *****                         ^ not supported yet
    928. 

  928. *****                            ^ not supported yet
    929. 

  929. *****                                     ^ not supported yet
    930. 

  930.   397        DF^.action := 'I';
    931. 

  931. *****        ^ not supported yet
    932. 

  932. *****            ^ not supported yet
    933. 

  933.   398        DF^.headline := 2;
    934. 

  934. *****        ^ not supported yet
    935. 

  935. *****            ^ not supported yet
    936. 

  936.   399        EM := DirToFrame('*.TPL',DF,1);   (* find data definition file *)
    937. 

  937. *****        ^ not supported yet
    938. 

  938. *****              ^ not supported yet
    939. 

  939. *****                         ^ not supported yet
    940. 

  940. *****                                 ^ not supported yet
    941. 

  941. *****                                     ^ not supported yet
    942. 

  942.   400        SelectFromScreen(DF);
    943. 

  943. *****        ^ not supported yet
    944. 

  944. *****                         ^ not supported yet
    945. 

  945.   401        GetSelected(SerList,DF);
    946. 

  946. *****        ^ not supported yet
    947. 

  947. *****                    ^ not supported yet
    948. 

  948. *****                            ^ not supported yet
    949. 

  949.   402        FOR J := 1 TO ListLength(SerList) DO
    950. 

  950. *****                      ^ not supported yet
    951. 

  951. *****                                 ^ not supported yet
    952. 

  952.   403          GetElmt(SerList,J,FileName,Code);
    953. 

  953. *****          ^ not supported yet
    954. 

  954. *****                  ^ not supported yet
    955. 

  955. *****                            ^ not supported yet
    956. 

  956. *****                                         ^ not supported yet
    957. 

  957.   404          GenFile(FileName);
    958. 

  958. *****          ^ not supported yet
    959. 

  959. *****                  ^ not supported yet
    960. 

  960.   405        END;  
    961. 

  961.   406      END;  
    962. 

  962.   407    ClearScreen();  
    963. 

  963. *****    ^ not supported yet
    964. 

  964. *****                ^ not supported yet
    965. 

  965.   408  END DataDef.
    966. 

  966. 

  967.   555 errors
    968. 

  968. 

  969.