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 / REPORTS.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  53 lines
  1. * REPORTS.PRG
  2. ERASE
  3. RELEASE ALL
  4. DO WHILE T
  5. ERASE
  6. STORE 35 TO CENTRE
  7. STORE 10 TO COLUMN1
  8. STORE 30 TO COLUMN2
  9. @ 1,00 SAY'*****************************************************************'
  10. @ 4,CENTRE SAY'REPORT MENU '
  11. @ 7,COLUMN1 SAY'DEBTORS: '
  12. @ 7,COLUMN2 SAY'1. AGED TRIAL BALANCE '
  13. @ 8,COLUMN2 SAY'2. CUSTOMER LIST '
  14. @ 9,COLUMN2 SAY'3. CUSTOMER MAILING LABELS'
  15. @ 10,COLUMN2 SAY'4. OVERDUE LETTER'
  16. @ 12,COLUMN1 SAY'SALES REPORTS'
  17. @ 12,COLUMN2 SAY'5. SALES TAX REPORT'
  18. @ 13,COLUMN2 SAY'6. TRADING REPORT'
  19. @ 14,COLUMN2 SAY'7. PRODUCT SALES HISTORY'
  20. @ 16,COLUMN1 SAY'STOCK CONTROL'
  21. @ 16,COLUMN2 SAY'8. STOCK REPORTS'
  22. @ 18,COLUMN1 SAY'MISCELLANEOUS'
  23. @ 18,COLUMN2 SAY'9. SUNDRY LABELS'
  24. @ 20,COLUMN2 SAY'R RETURN TO MAIN MENU'
  25. @ 21,00 SAY'****************************************************************'
  26. WAIT TO DEC
  27. STORE !(DEC) TO DEC
  28. DO CASE
  29.    CASE DEC='1'
  30. DO  A:DEBTORS
  31.    CASE DEC='2'
  32. DO  A:CUSLIST
  33.    CASE DEC='3'
  34. DO  A:LABEL
  35.    CASE DEC='4'
  36. DO  A:OVERDUE
  37.    CASE DEC='5'
  38. DO  A:TAX
  39.    CASE DEC='6'
  40. DO  A:SUMMARY
  41.    CASE DEC='7'
  42. DO  A:SALES
  43.    CASE DEC='8'
  44. DO  A:STOCMENU
  45.    CASE DEC='9'
  46. DO  A:LABELII
  47.    CASE DEC='R'
  48. RETURN
  49. OTHERWISE
  50. LOOP
  51. ENDCASE
  52. ENDDO
  53.