Inicio Explorar Axuda
Iniciar sesión
eric
/
Topspeed_JPI
1
0
Fork 0
Ficheiros Incidencias 0 Pull Requests 0 Wiki
Rama: master
Ramas Etiquetas
Topspeed_JPI
/
TS-V3
/
MODBASE
/
INDTEST.LST

INDTEST.LST 1.8 KB
Permalink Histórico Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546 
  1. Listing:
    2. 

  2. 

  3.     1  MODULE IndTest;
    4. 

  4.     2  (* IMPORT PMD;*)
    5. 

  5.     3  IMPORT ModBase3;
    6. 

  6.     4  IMPORT DBIndxes;
    7. 

  7.     5  IMPORT StringIO;
    8. 

  8.     6  IMPORT InitCompilerMods;
    9. 

  9.     7  VAR
    10. 

  10.     8    ind:DBIndxes.DBIndex;
    11. 

  11. *****                 ^ not supported yet
    12. 

  12.     9    dbf:ModBase3.DBFile;
    13. 

  13. *****                 ^ not supported yet
    14. 

  14.    10  BEGIN
    15. 

  15.    11    ModBase3.InitDBF('Modbase.DBF',dbf,60000,FALSE,TRUE,TRUE,ModBase3.DefaultFixUp);
    16. 

  16. *****    ^ not supported yet
    17. 

  17. *****             ^ not supported yet
    18. 

  18. *****                     ^ not supported yet
    19. 

  19. *****                                   ^ not supported yet
    20. 

  20. *****                                                             ^ not supported yet
    21. 

  21. *****                                                                      ^ not supported yet
    22. 

  22.    12    DBIndxes.InitIndex('Modbase.NDX',ind,dbf,10000,FALSE,TRUE);
    23. 

  23. *****    ^ not supported yet
    24. 

  24. *****             ^ not supported yet
    25. 

  25. *****                       ^ not supported yet
    26. 

  26. *****                                     ^ not supported yet
    27. 

  27. *****                                         ^ not supported yet
    28. 

  28. *****                                                             ^ not supported yet
    29. 

  29.    13    IF ModBase3.OpenDBF(dbf) THEN
    30. 

  30. *****       ^ not supported yet
    31. 

  31. *****                ^ not supported yet
    32. 

  32. *****                        ^ not supported yet
    33. 

  33.    14      StringIO.PrintMessage(DBIndxes.BuildIndex(ind,'NAME'));
    34. 

  34. *****      ^ not supported yet
    35. 

  35. *****               ^ not supported yet
    36. 

  36. *****                            ^ not supported yet
    37. 

  37. *****                                     ^ not supported yet
    38. 

  38. *****                                                ^ not supported yet
    39. 

  39. *****                                                    ^ not supported yet
    40. 

  40.    15    END;
    41. 

  41.    16  
    42. 

  42.    17  END IndTest.
    43. 

  43. 

  44.    23 errors
    45. 

  45. 

  46.