home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG102.ARC / EDIT1.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  6KB  |  203 lines
  1. *EDIT1.PRG
  2. *THIS PROGRAM ALLOWS FOR THE EDITING OF AN EXISTING FILE
  3. * THIS COVERS ALL DATA FILES LIKE THE PRICELIST , NAMELIST ,LEDGER AND DATA'
  4. RELEASE ALL
  5. DO WHILE T
  6. SET CONSOLE ON
  7. STORE 00000 TO INV
  8. ERASE
  9. SET CONSOLE ON
  10. @ 2,0 SAY'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
  11. @ 4,0 SAY ' THIS PROGRAM ALLOWS FOR THE EDITING OF DATA IN EXISTING FILES'
  12. @ 6,0 SAY ' PRESS THE KEY FOR THE REQUIRED MODE'
  13. @ 8,0 SAY '     KEY ..............MODE'
  14. @ 10,0 SAY '     1  TO EDIT THE PRICELIST'
  15. @ 11,0 SAY '     2  TO EDIT THE NAME LIST'
  16. @ 12,0 SAY '     3  TO EDIT THE LEDGER'
  17. @ 13,0 SAY '     4  TO EDIT THE DATAFILE'
  18. @ 14,0 SAY '     R  TO RETURN TO THE MAIN MENU'
  19. @ 17,0 SAY '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
  20. SET TALK OFF
  21. SET CONSOLE OFF
  22. WAIT TO DEC
  23. STORE !(DEC) TO DEC
  24. IF DEC='R'
  25. SET CONSOLE ON
  26. RETURN
  27. ENDIF
  28. IF DEC='1'
  29. STORE 'PRICELIS INDEX PRICECOD' TO FILE
  30. ENDIF
  31. IF DEC='2'
  32. STORE 'NAMELIST INDEX NAME' TO FILE
  33. ENDIF
  34. IF DEC='3'
  35. STORE 'LEDGER' TO FILE
  36. ENDIF
  37. IF DEC='4'
  38. STORE 'DATAFILE' TO FILE
  39. ENDIF
  40. SET CONSOLE ON
  41. USE &FILE
  42. **********************************************
  43.   IF FILE='PRICELIS INDEX PRICECOD'
  44. ************************************
  45. *****************************************
  46. *FIND A PRODUCT BY CODE FROM PRICELIS.DBF
  47. USE &FILE
  48. SET TALK OFF
  49. ERASE
  50. SET TALK OFF
  51. STORE '         ' TO CODEA
  52. @ 2,0 SAY ' PRODUCT CODE  EXACTLY AS IN PRICELIST 'GET CODEA
  53. READ
  54. FIND &CODEA
  55. IF #=0
  56. @ 3,0 SAY 'PRODUCT NOT FOUND TRY AGAIN'
  57. WAIT
  58. LOOP
  59. ENDIF
  60. ************************************
  61. *****************************NEW SCREEN AND EDIT BY REPLACEMENT**
  62. ERASE
  63. STORE CODE TO CODEA
  64. STORE ITEM TO ITEMA
  65. STORE COST TO COSTA
  66. STORE STOCKED TO STOCKEDA
  67. STORE DATE TO DATEA
  68. STORE TAX TO TAXA
  69. STORE LAND:COST TO LAND
  70. @ 1,0 SAY '*********************************************************'
  71. @ 2,0 SAY 'PRODUCT CODE' 
  72. @ 2,25 GET CODEA
  73. @ 3,0 SAY 'PRODUCT DESCRIPTION '
  74. @ 3,25 GET ITEMA
  75. @ 4,0 SAY 'PRODUCT BASE PRICE' 
  76. @ 4,25 GET COSTA
  77. @ 4,40 GET LAND
  78. @ 5,0 SAY 'QUANTITY IN STOCK' 
  79. @ 5,25 GET STOCKEDA
  80. @ 6,0 SAY 'DATE LAST AMENDED'
  81. @ 6,20 SAY DATEA
  82. @ 7,0 SAY 'SALES TAX RATE '
  83. @ 7,20 GET TAXA
  84. @ 8,0 SAY '*********************************************************'
  85. @ 11,0 SAY 'AMEND NOW AND PRESS RETURN TO ADD AMENDMENT TO PRICELIST'
  86. @ 12,0 SAY '^G TO DELETE CHAR, ^V TO ENTER INSERT MODE              '
  87. READ
  88. REPLACE CODE WITH CODEA,ITEM WITH ITEMA,COST WITH COSTA,STOCKED WITH ;
  89. STOCKEDA ,DATE WITH DATE(),LAND:COST WITH LAND
  90. ENDIF
  91. ********************************************************
  92.   IF FILE ='NAMELIST INDEX NAME'
  93.  
  94. *********************************************************
  95. *FIND CUSTOMER ROUTINE
  96. SET TALK OFF
  97. ERASE
  98. USE &FILE
  99. RELEASE CUST
  100. @ 1,0 SAY 'WHAT IS THE  NAME OF THE CUSTOMER FIRST PART ONLY '
  101. ACCEPT TO CUST
  102. STORE !(CUST) TO CUST
  103. FIND &CUST
  104. IF #=0
  105. ? 'CUSTOMER NOT FOUND'
  106. ? 'IS CUSTOMER DATA CORRECT??? PRESS ANY KEY TO CONTINUE'
  107. WAIT
  108. LOOP
  109. ENDIF
  110. STORE ACCNUM TO ACCNUMA
  111. STORE NAME TO NAMEA
  112. STORE STREET TO STREETA
  113. STORE CITYPC TO CITYPCA
  114. STORE DISCOUNT TO DISCOUNTA
  115. STORE TAXNUM TO TAXNUMA
  116. STORE CONTACT TO CONTACTA
  117. STORE DATENTER TO DATEA
  118. STORE RESALE TO RESALEA
  119. STORE ALTNAME TO ALTNA
  120. STORE ALTSTREET TO ALTST
  121. STORE ALTCITYPC TO ALTCP
  122. ERASE
  123. @ 1,0 SAY '*********************************************************'
  124. @ 2,0 SAY 'NAME OF ACCOUNT ALPHA FIRST '
  125. @ 2,30 GET NAMEA
  126. @ 3,0 SAY 'ACCOUNT NUMBER ' 
  127. @ 3,25 GET ACCNUMA
  128. @ 4,0 SAY ' STREET  ' 
  129. @ 4,25 GET STREETA
  130. @ 5,0 SAY ' CITY POSTCODE ' 
  131. @ 5,25 GET CITYPCA
  132. @ 6,0 SAY ' CONTACT ' 
  133. @ 6,25 GET CONTACTA
  134. @ 7,0 SAY 'DATE LAST AMENDED'
  135. @ 7,20 SAY DATEA
  136. @ 8,0 SAY ' DISCOUNT ALLOWED ON TRANSACTIONS '
  137. @ 8,40 GET DISCOUNTA
  138. @ 9,0 SAY ' SALES TAX NUMBER IF APPLICABLE '
  139. @ 9,36 GET TAXNUMA
  140. @ 10,0 SAY ' ARE THE GOODS TO BE PURCHASED FOR RESALE T=TRUE' GET RESALEA
  141. @ 11,0 SAY '*********************************************************'
  142. @ 12,0 SAY ' INSERT NAME OF ALTERNATIVE DELIVERY POINT  ' GET ALTNA
  143. @ 13,0 SAY ' ALTERNATE DELIVERY ADDRESS (IF DIFFERENT)  ' GET ALTST
  144. @ 14,0 SAY ' ALTERNATE CITY AND POST CODE               ' GET ALTCP
  145. @ 15,0 SAY ' AMEND NOW AND PRESS RETURN TO ADD AMENDMENT TO NAMELIST'
  146. @ 16,0 SAY '^G TO DELETE CHAR, ^V TO ENTER INSERT MODE              '
  147. @ 17,0 SAY '********************************************************'
  148. READ
  149. ********************************************************
  150. REPLACE ACCNUM WITH ACCNUMA,NAME WITH NAMEA,STREET WITH STREETA,;
  151. CITYPC WITH CITYPCA,CONTACT WITH CONTACTA,DISCOUNT WITH DISCOUNTA,;
  152. DATENTER WITH DATE(),RESALE WITH RESALEA
  153. REPLACE ALTNAME WITH ALTNA,ALTSTREET WITH ALTST,ALTCITYPC WITH ALTCP,;
  154. TAXNUM WITH TAXNUMA 
  155. ****************************************************************
  156. ENDIF
  157. IF FILE ='LEDGER' .OR. FILE='DATAFILE'
  158. STORE 1 TO ITEM:NUMA
  159. @ 18,0 SAY 'WHAT IS INVOICE NUMBER TO LOCATE AND EDIT' GET INV PICT '99999'
  160. IF FILE='DATAFILE'
  161. @ 19,0 SAY 'LINE NUMBER' GET ITEM:NUMA PICT '999'
  162. ENDIF
  163. READ
  164. ENDIF
  165. IF FILE='DATAFILE'
  166. LOCATE FOR INVNUM=INV .AND. ITEM:NUM=ITEM:NUMA
  167. ENDIF
  168. IF FILE='LEDGER'
  169. LOCATE FOR NUM=INV
  170. ENDIF
  171. STORE # TO OPTION
  172. STORE ' ' TO DEC2
  173. *********************
  174. IF DEC2=' '
  175. IF FILE ='LEDGER' .OR. FILE='DATAFILE' 
  176. EDIT OPTION
  177. ENDIF
  178. ERASE
  179. @ 12,0 SAY'PRESS RETURN TO PREVIOUS MENU TO EDIT ANOTHER RECORD'
  180. @ 14,0 SAY'PRESS "E" KEY TO REINDEX THE RECORDS EDITED SO FAR  'GET DEC2
  181. READ
  182. IF DEC2=' '
  183. LOOP  
  184. ENDIF
  185. **********************************
  186. IF FILE='PRICELIS INDEX PRICECOD' .OR. FILE='NAMELIST INDEX NAME'
  187. REINDEX
  188. ENDIF
  189. ENDDO
  190. RETURN
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  FOUND TRY AGAIN'
  202. WAIT
  203. LOO