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 / RESETCON.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  68 lines
  1. *RESETCON.PRG
  2. *THIS PROGRAM ALLOWS THE RESETTING OF THE MEMORY/DISK STORED VARIABLES LIKE
  3. *RECEIPT , CREDIT AND INVOICE NUMBERS
  4. DO WHILE T
  5. ERASE
  6. @ 1,0 SAY '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
  7. @ 3,0 SAY '       THIS PROGRAM WILL RESET FORM NUMBERS'
  8. @ 5,0 SAY ' PRESS THE KEY INDICATED TO SELECT THE FORM REQUIRED'
  9. @ 7,0 SAY '          KEY...................SYSTEM'
  10. @ 9,0 SAY '           1                  INVOICE'
  11. @ 10,0 SAY '           2                  RECEIPTS'
  12. @ 11,0 SAY '           3                  CREDITS'
  13. @ 12,0 SAY '           4                  CHEQUE'
  14. @ 13,0 SAY '           R                  RETURN'
  15. @ 15,0 SAY '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
  16. SET TALK OFF
  17. WAIT TO DEC
  18. DO CASE
  19. CASE DEC='1'
  20. RESTORE FROM A:CONSTANT
  21. ERASE
  22. STORE '..' TO CHEK
  23. @ 2,0 SAY ' THIS IS THE NEXT AVAILABLE INVOICE NUMBER ' GET PINVNUM
  24. @ 3,0 SAY ' CHANGE THIS NUMBER NOW, IF NECESSARY. ' GET CHEK
  25. READ
  26. SAVE TO A:CONSTANT
  27. CASE DEC='2'
  28. RELEASE ALL
  29. ERASE
  30. RESTORE FROM A:RECEIPT
  31. STORE '..' TO CHEK
  32. @ 2,0 SAY 'THIS IS THE NEXT AVAILABLE RECEIPT NUMBER ' GET NO
  33. @ 3,0 SAY 'CHANGE THIS NUMBER NOW IF NECESSARY ' GET CHEK
  34. READ
  35. SAVE TO A:RECEIPT
  36. CASE DEC='3'
  37. RELEASE ALL
  38. ERASE
  39. RESTORE FROM A:CREDIT
  40. STORE '..' TO CHEK
  41. @ 2,0 SAY 'THIS IS THE NEXT AVAILABLE CREDIT NUMBER ' GET CREDIT:NUM
  42. @ 3,0 SAY ' CHECK AND CHANGE IF NECESSARY' GET CHEK
  43. READ
  44. SAVE TO A:CREDIT
  45. CASE DEC='4'
  46. RELEASE ALL
  47. RESTORE FROM A:GENLED
  48. ERASE
  49. @ 2,0 SAY ' THE NEXT CHEQUE NUMBER IS ' GET CHQNUM
  50. READ
  51. SAVE TO A:GENLED
  52. CASE DEC='R'
  53. RETURN
  54.  
  55. ENDCASE
  56. ENDDO
  57. INES
  58. * FOR COMPRESSED PRINT
  59. ERASE
  60. RELEASE ALL
  61. DO WHILE T
  62. @ 1,0 SAY '***********************************************************'
  63. @ 2,0 SAY '              INSTALLATION MENU'
  64. @ 3,0 SAY '   PRESS                     TO DO'
  65. @ 5,0 SAY '     1                      INSTALL COMPANY NAME'
  66. @ 6,0 SAY '     2                      INSTALL PRINTER ROUTINES'
  67. @ 7,0 SAY '     3                      INITIALIZE MEMORY FILES'
  68. @ 8,0 S