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 / STOCTAKE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  34 lines
  1. *STOCTAKE.PRG
  2. *STOCTAKE PROGRAM TO INSERT DATA FROM MANUAL STOCKTAKE TO DATABASE
  3. SET TALK OFF
  4. ERASE
  5. USE STOCK
  6. DO WHILE T
  7. STORE '         ' TO CODEA
  8. STORE 0000  TO QTY
  9. @ 1,0 SAY 'INSERT CODE TO ADD TO LIST ZERO= EXIT' GET CODEA
  10. @ 2,0 SAY 'INSERT  QUANITY OF STOCKED ITEM ' GET QTY
  11. READ
  12. IF CODEA=' '
  13. LOOP
  14. ENDIF
  15. IF CODEA='0'
  16. RETURN
  17. ENDIF
  18. APPEND BLANK
  19. REPLACE COD  WITH CODEA
  20. REPLACE QUANITY WITH QTY
  21. CLEAR GETS
  22. ENDDO
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34. LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLCODC    ╤åQUANITYN┌å