home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / DBMS9101.ZIP / NEBEL1.JAN < prev    next >
Encoding:
Text File  |  1990-11-13  |  7.0 KB  |  263 lines
  1. Listing 1.
  2. «TS14»
  3.  
  4. 1    * == Maintenance Routines Module for Program == 
  5. 2 
  6. 3    PROCEDURE maitproc 
  7. 4 
  8. 5    * ----- set up environment ----- 
  9. 6    SET TALK OFF 
  10. 7    SET ECHO OFF 
  11. 8    SET BELL OFF 
  12. 9    SET STATUS OFF 
  13. 10    * ----- enter selection loop ----- 
  14. 11    DO WHILE .T. 
  15. 12      * --- 
  16. 13      CLEAR 
  17. 14      mv_choice = 0 
  18. 15      * ----- do menu caption ----- 
  19. 16      @5, 31 SAY "System Maintenance" 
  20. 17      @ROW()-1, 29 TO ROW()+1, 50 
  21. 18      * -- 
  22. 19      TEXT 
  23. 20 
  24. 21                       1.  Reindex and Pack Databases 
  25. 22  
  26. 23                       2.  Prepare Data Dictionary 
  27. 24 
  28. 25                       3.  Return to Prior Menu 
  29. 26    ENDTEXT 
  30. 27    * ----- call routine to offer select prompt ----- 
  31. 28    @ROW()+2, 27 SAY "Select by Number ===>" 
  32. 29    @ROW(), COL()+2 GET mv_choice FUNCTION "Z" PICTURE "9"
  33. 30      * -- 
  34. 31      READ 
  35. 32      * -- 
  36. 33      DO CASE 
  37. 34       * ----- 
  38. 35                         CASE mv_choice = 1 
  39. 36                      * -- call routine for reindexing and packing --
  40. 37                                        DO sys_rndx 
  41. 38                    * ----- 
  42. 39          CASE mv_choice = 2 
  43. 40             * --- call routine for data dictionary -- 
  44. 41             DO sys_data 
  45. 42             * ----- 
  46. 43          CASE mv_choice = 3 
  47. 44             * ----- return to calling menu ----- 
  48. 45             EXIT 
  49. 46             * -- 
  50. 47          OTHERWISE 
  51. 48             * ----- invalid key ----- 
  52. 49             ?? CHR(7) 
  53. 50             * ----- 
  54. 51       ENDCASE 
  55. 52       * ----- 
  56. 53    ENDDO 
  57. 54    * ---- 
  58. 55    RETURN 
  59. 56
  60. 57    * ====== Routine to Reindex Selected Databases ===== 
  61. 58 
  62. 59    PROCEDURE sys_rndx 
  63. 60 
  64. 61    CLEAR 
  65. 62    CLOSE ALL 
  66. 63    * ----- initialize pack switch defaulted to no ----- 
  67. 64    mv_pack = "N" 
  68. 65    * ----- present pack option ----- 
  69. 66    @10, 18 SAY "Do You Want to Pack During Reindexing? "; 
  70. 67                                    GET mv_pack PICTURE "Y" 
  71. 68    * -- 
  72. 69    READ 
  73. 70    * ----- initialize database select switches ----- 
  74. 71    mv_authfil = "N" 
  75. 72    mv_bookfil = "N" 
  76. 73    * --- call routine to allow database selection --- 
  77. 74    DO sysrsele 
  78. 75    * --- 
  79. 76    CLEAR 
  80. 77    * --- 
  81. 78    @6, 21 SAY "---- Reindexing System Databases ----" 
  82. 79    * ----- 
  83. 80    @18, 10 SAY "Note:  Override Any Error Messages " + ;
  84. 81            "with 'Proceed' or 'Ignore'" 
  85. 82    * ----- window to monitor reindexing operation -----
  86. 83    DEFINE WINDOW sys_rndx FROM 8, 10 TO 16, 70 
  87. 84    ACTIVATE WINDOW sys_rndx 
  88. 85    * ----- 
  89. 86    SET TALK ON 
  90. 87    SET SAFETY OFF 
  91. 88    * ----- call routine to do indexing ----- 
  92. 89    DO sysrindx 
  93. 90    * ----- 
  94. 91    SET SAFETY ON 
  95. 92    SET TALK OFF 
  96. 93    * ----- release progress monitoring window ----- 
  97. 94    RELEASE WINDOWS sys_rndx 
  98. 95    CLOSE ALL 
  99. 96    * ---- 
  100. 97    RETURN 
  101. 98
  102. 99    * === Routine to Select Databases for Reindexing === 
  103. 100 
  104. 101    PROCEDURE sysrsele 
  105. 102 
  106. 103    CLEAR 
  107. 104    * ----- do screen caption ----- 
  108. 105    @6, 24            SAY "Select Databases for Reindexing" 
  109. 106    @ROW()+2, 22      SAY "AUTHFILE.DBF - Authors Database:" 
  110. 107    @ROW(),   COL()+2 GET mv_authfil PICTURE "Y" 
  111. 108    @ROW()+2, 22      SAY "BOOKFILE.DBF - Books Database  :" 
  112. 109    @ROW(),   COL()+2 GET mv_bookfil PICTURE "Y" 
  113. 110    * -- 
  114. 111    READ 
  115. 112    * -- 
  116. 113    RETURN 
  117. 114 
  118. 115    * == Routine to Index, Optionally Pack Databases == 
  119. 116 
  120. 117    PROCEDURE sysrindx 
  121. 118 
  122. 119    IF mv_authfil = "Y" 
  123. 120        * ----- turn code execution display on ----- 
  124. 121       SET ECHO ON 
  125. 122       * ----- authors database ----- 
  126. 123       USE authfile 
  127. 124       * --- delete all tags for ground up rebuild --- 
  128. 125       DELETE TAG authlnfn OF authfile 
  129. 126       DELETE TAG authcode OF authfile 
  130. 127       * ----- pack if requested ----- 
  131. 128       IF mv_pack = "Y" 
  132. 129          PACK 
  133. 130       ENDIF 
  134. 131       * ----- rebuild indexes ----- 
  135. 132       INDEX ON UPPER(authorln) + ; 
  136. 133             UPPER(authorfn)                                                 TAG authlnfn 
  137. 134       INDEX ON authcode                                                   TAG authcode 
  138. 135       * ----- turn code execution display off ----- 
  139. 136       SET ECHO OFF 
  140. 137       * - 
  141. 138    ENDIF 
  142. 139    * --- 
  143. 140    IF mv_bookfil = "Y" 
  144. 141       * ----- turn code execution display on ----- 
  145. 142       SET ECHO ON 
  146. 143       * ----- books database ----- 
  147. 144       USE bookfile 
  148. 145       * ----- delete tag for ground up rebuild ----- 
  149. 146       DELETE TAG authtitl OF bookfile 
  150. 147       * ----- pack if requested ----- 
  151. 148       IF mv_pack = "Y" 
  152. 149          PACK 
  153. 150       ENDIF 
  154. 151       * ----- rebuild index ----- 
  155. 152       INDEX ON STR(authcode,4,0) + ; 
  156. 153             UPPER(booktitl)                 TAG authtitl 
  157. 154       * ----- turn code execution display off ----- 
  158. 155       SET ECHO OFF 
  159. 156       * - 
  160. 157    ENDIF 
  161. 158    * ---- 
  162. 159    RETURN 
  163. 160 
  164. 161    * ======= Routine to Generate Data Dictionary ======= 
  165. 162 
  166. 163    PROCEDURE sys_data 
  167. 164     
  168. 165    CLEAR 
  169. 166    * ----- call routine to do in progress message ----- 
  170. 167    @10, 20 SAY "Preparing Data Dictionary for System" 
  171. 168    * ----- 
  172. 169    CLOSE ALL 
  173. 170    SET CONSOLE OFF 
  174. 171    * ----- clear the source code spooler ----- 
  175. 172    SET SAFETY OFF 
  176. 173    USE spooler 
  177. 174    ZAP 
  178. 175    SET SAFETY ON 
  179. 176    * ----- spool the maintenance procedures module ----- 
  180. 177    APPEND FROM maitproc.prg SDF 
  181. 178    * --- 
  182. 179    GO TOP 
  183. 180    * ----- seek to start of reindexing routines ----- 
  184. 181    LOCATE FOR line = "PROCEDURE sysrindx" 
  185. 182    * ----- enter processing loop ----- 
  186. 183    DO WHILE .NOT. EOF() 
  187. 184       * -----  
  188. 185       DO CASE 
  189. 186                * ----- check if return encountered ----- 
  190. 187          CASE line = UPPER("return") 
  191. 188         * ----- no more databases to process ----- 
  192. 189             EXIT 
  193. 190             * --- check if start of indexing routine --- 
  194. 191          CASE line = "   USE" 
  195. 192             * --- get name of database to variable --- 
  196. 193             mv_dbf = SUBSTR(spooler->line,8,15) 
  197. 194             * --- call routine to print descriptions --
  198. 195             DO prnt_dbf 
  199. 196             * ----- 
  200. 197       ENDCASE 
  201. 198       * -- 
  202. 199       SKIP 
  203. 200       * -- 
  204. 201    ENDDO 
  205. 202    * --- 
  206. 203    CLOSE ALL 
  207. 204    SET CONSOLE ON 
  208. 205    * ---- 
  209. 206    RETURN 
  210. 207
  211. 208    * Routine to Print Database and Index Descriptions == 
  212. 209     
  213. 210    PROCEDURE prnt_dbf 
  214. 211 
  215. 212    SET PRINT ON 
  216. 213    * ----- call routine to do descriptive header ----- 
  217. 214    DO headdata 
  218. 215    * ----- list structure of database to printer ----- 
  219. 216    SELECT 2 
  220. 217    USE &mv_dbf 
  221. 218    SET MARGIN TO 10 
  222. 219    LIST STRUCTURE TO PRINT 
  223. 220    SET MARGIN TO 0 
  224. 221    USE 
  225. 222    SELECT spooler 
  226. 223    * ----- seek to first indexing command line ----- 
  227. 224    DO WHILE SUBSTR(spooler->line,4,5) # "INDEX" 
  228. 225       * --- 
  229. 226       SKIP 
  230. 227       * --- 
  231. 228    ENDDO 
  232. 229    * --- enter loop to print all indexing commands --- 
  233. 230    DO WHILE SUBSTR(spooler->line,4,1) # "*" 
  234. 231       * ----- print index description line ----- 
  235. 232       ? SPACE(10) + TRIM(spooler->line) 
  236. 233       * --- 
  237. 234       SKIP 
  238. 235       * -- 
  239. 236    ENDDO 
  240. 237    * --- 
  241. 238    SET PRINT OFF 
  242. 239    EJECT 
  243. 240    * -- 
  244. 241  RETURN 
  245. ~242
  246. ~~~~243  * == Routine for Header for Data Directory Listings== 
  247. 244 
  248. 245  PROCEDURE headdata 
  249. 246  
  250. 247  * ----- 
  251. 248  ? 
  252. 249  ? 
  253. 250  ? 
  254. 251  ? SPACE(20) + "Structure and Indexes for:  " + ; 
  255. 252     TRIM(UPPER(mv_dbf)) + ".DBF" 
  256. 253  ? 
  257. 254  ? SPACE(10) + REPLICATE("-",65) 
  258. 255  ? 
  259. 256  * ---- 
  260. 257  RETURN 
  261. 258  
  262. 259  * =============== End of Listing 1 ================= 
  263. ~