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 / SALES.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  44 lines
  1. *SALES.PRG
  2. *A PROGRAM TO EXTRACT FROM THE ARCHIVES SALES DETAILS OF PARTICULAR ITEMS
  3. *FOR REORDERING PURPOSES
  4. SET TALK OFF
  5. SET INTENSITY OFF
  6. ERASE
  7. RELEASE ALL
  8. DO WHILE T
  9. STORE '         ' TO CODEA
  10. STORE ' ' TO PRIN
  11. ERASE
  12. SET PRINT OFF
  13. @ 1,0 SAY 'WHAT IS CODE (FROM PRICELIST) OF THE PRODUCT TO SEARCH FOR' GET ;
  14. CODEA
  15. @ 2,0 SAY 'PRESS RETURN TO EXIT'
  16. READ
  17. IF CODEA=' '
  18. RETURN
  19. ENDIF
  20. USE PRICELIS INDEX PRICECOD
  21. STORE TRIM(CODEA) TO CODEA
  22. FIND &CODEA
  23. IF #=0
  24. @ 5,0 SAY 'PRODUCT NOT FOUND ,TRY AGAIN'
  25. WAIT
  26. LOOP
  27. ENDIF
  28. @ 2,0 SAY ITEM
  29. @ 3,0 SAY 'PRESS ..P.. TO PRINT , ANY KEY TO SHOW ON SCREEN ONLY' GET PRIN
  30. READ
  31. IF PRIN='P'
  32. SET PRINT ON
  33. ENDIF
  34. USE DATARCH
  35. ? '**********************LIST OF ORDERS RECEIVED****************************'
  36. ?
  37. ? 'QTY.       ITEM                      SPECIFICS                       DATE'
  38. ?
  39. LIST OFF ALL FOR CODE=CODEA QTY:ORD,ITEM,ORD:COM,DATE:ORD
  40. EJECT
  41. SET PRINT OFF
  42. ENDDO
  43. RETURN
  44.