home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo2.lbr / CLEARDAT.CZD / CLEARDAT.CMD
Encoding:
Text File  |  1993-10-26  |  4.0 KB  |  173 lines
  1. *CLEARDATA.PRG
  2. * A PROGRAM TO CLEAR OUT ALL DATA FILES SO THAT THE SYSTEM CAN BE RESTARTED.
  3. ERASE
  4. SET TALK OFF
  5. STORE '~' TO DEC
  6. DO WHILE T
  7. ERASE
  8. @ 2,0 SAY '*****************************************************************'
  9. @ 3,0 SAY '               CLEAR DATA PROGRAM ..           '
  10. @ 4,0 SAY '      THIS PROGRAM CLEARS OUT ALL DATA FILES      '
  11. @ 6,0 SAY '            PRESS                   TO DO                        '
  12. @ 7,0 SAY '             1                      START                        '
  13. @ 8,0 SAY '             R                      TO ABORT AND RETURN          '
  14. @ 11,0 SAY '****************************************************************'
  15. SET TALK OFF
  16. WAIT TO DEC
  17. STORE !(DEC) TO DEC
  18. DO CASE
  19. CASE DEC='R'
  20. RETURN
  21. ENDCASE
  22. ERASE
  23. ?? CHR(07)
  24. ? 'PLEASE NOTE THAT THIS PROGRAM DESTROYS ALL DATA '
  25. ? 'WHAT IS THE CODE TO CONTINUE THIS PROGRAM '
  26. ? ':'
  27. SET TALK OFF
  28.  SET CONSOLE OFF
  29. ACCEPT TO PASSWORD
  30. IF PASSWORD <> DATE()
  31. SET CONSOLE ON
  32. ERASE
  33. ?
  34. ?
  35. ?'************************* INCORRECT PASSWORD ****************************'
  36. STORE 100 TO WAIT
  37. DO WHILE WAIT>1
  38. STORE WAIT-1 TO WAIT
  39. LOOP
  40. ENDDO
  41. LOOP
  42. ENDIF
  43. SET CONSOLE ON
  44. ERASE
  45. ?
  46. ?
  47. ? '**************************** PASSWORD CORRECT **************************'
  48. ?? CHR(07)
  49. ***********************************
  50. ? '  ** CLEARING OUT BACKORDER/FREIGHT ARCHIVE FILE **'
  51. USE DATARCH
  52. COPY STRUCTURE TO TEMP
  53. USE
  54. DELETE FILE DATARCH
  55. USE
  56. RENAME TEMP TO DATARCH
  57. ********************************
  58. ? '  ** CLEARING OUT TRANSACTION FILE FOR STANDARD ORDERS **'
  59. USE DATAFILE
  60. COPY STRUCTURE TO TEMP
  61. USE
  62. DELETE FILE DATAFILE
  63. USE
  64. RENAME TEMP TO DATAFILE
  65. *****************
  66. ? '  ** CLEARING OUT TRANSACTION FILE FOR CASH SALES **'
  67. USE DATATEMP
  68. COPY STRUCTURE TO TEMP
  69. USE
  70. DELETE FILE DATATEMP
  71. RENAME TEMP TO DATATEMP
  72. *********************
  73. ? '  ** CLEARING OUT TRANSACTION FILE FOR COLLECTED GOODS **'
  74. USE HOLDATA
  75. COPY TO TEMP
  76. USE
  77. DELETE FILE HOLDATA
  78. USE
  79. RENAME TEMP TO HOLDATA
  80. *************************************
  81. ? '  ** CLEARING OUT ARCHIVE FILE FOR DEBTORS TRANSACTIONS **'
  82. USE LEDARCH
  83. COPY STRU TO TEMP
  84. USE
  85. DELETE FILE LEDARCH
  86. RENAME TEMP TO LEDARCH
  87. ******************************
  88. ? '  ** CLEARING OUT TRANSACTION FILE FOR STATEMENTS & RECEIPTS **'
  89. USE LEDGER
  90. COPY STRU TO TEMP
  91. USE
  92. DELETE FILE LEDGER
  93. RENAME TEMP TO LEDGER
  94. ******************************
  95. ? '  ** CLEARING OUT GENERAL LEDGER FILE **'
  96. USE GENLED
  97. COPY STRU TO TEMP
  98. USE
  99. DELETE FILE GENLED
  100. RENAME TEMP TO GENLED
  101. ? '  ** RE-STRUCTURING GENERAL LEDGER INDEXES **'
  102. DELETE FILE CHQNUM.NDX
  103. DELETE FILE GENTYPE.NDX
  104. USE GENLED
  105. INDEX ON CHQNUM TO CHQNUM
  106. INDEX ON TYPE TO GENTYPE
  107. ******************************
  108. ? '  ** CLEARING CUSTOMER FILE **'
  109. USE NAMELIST
  110. COPY STRU TO TEMP
  111. USE
  112. DELETE FILE NAMELIST
  113. RENAME TEMP TO NAMELIST
  114. ? '  ** RE-STRUCTURING CUSTOMER FILE INDEXES **'
  115. DELETE FILE NAME.NDX
  116. DELETE FILE NAMENUM.NDX
  117. USE NAMELIST
  118. INDEX ON NAME TO NAME
  119. INDEX ON ACCNUM TO NAMENUM
  120. ********************************
  121. ? '  ** CLEARING OUT PRODUCT FILE **'
  122. USE PRICELIS
  123. COPY STRU TO TEMP
  124. USE
  125. DELETE FILE PRICELIS
  126. RENAME TEMP TO PRICELIS
  127. ? '  ** RE-STRUCTURING PRODUCT FILE INDEX **'
  128. DELETE FILE PRICECOD.NDX
  129. USE PRICELIS
  130. INDEX ON CODE TO PRICECOD
  131. ******************************
  132. ? '  ** CLEARING OUT RETURNED FOR CREDIT FILE **'
  133. USE RFC
  134. COPY STRU TO TEMP
  135. USE
  136. DELETE FILE RFC
  137. RENAME TEMP TO RFC
  138. ******************************
  139. ? '  ** CLEARING OUT STOCK FILE **'
  140. USE STOCK
  141. COPY STRU TO TEMP
  142. USE
  143. DELETE FILE STOCK
  144. RENAME TEMP TO STOCK
  145. STORE ' ' TO DEC
  146. ENDDO
  147. RETURN
  148. 
  149. COPY STRU TO TEMP
  150. USE
  151. DELETE FILE PRICELIS
  152. RENAME TEMP TO PRICELIS
  153. ? '  ** RE-STRUCTURING PRODUCT FILE INDEX **'
  154. DELETE FILE PRICECOD.NDX
  155. USE PRICELIS
  156. INDEX ON CODE TO PRICECOD
  157. ******************************
  158. ? '  ** CLEARING OUT RETURNED FOR CREDIT FILE **'
  159. USE RFC
  160. COPY STRU TO TEMP
  161. USE
  162. DELETE FILE RFC
  163. RENAME TEMP TO RFC
  164. ******************************
  165. ? '  ** CLEARING OUT STOCK FILE **'
  166. USE STOCK
  167. COPY STRU TO TEMP
  168. USE
  169. DELETE FILE STOCK
  170. RENAME TEMP TO STOCK
  171. RETURN
  172. **'
  173. USE