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 / CANBACK.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  44 lines
  1. *CANBACK.PRG
  2. * PROGRAM TO CANCEL BACK ORDERS WHICH HAVE BEEN SHIPPED OR WHICH ARE NO LONGER
  3. *REQUIRED
  4. ACCEPT ' BACK ORDER CANCELLATION PROGRAM PRESS<CR> TO CONTINUE OR "R" TO ;
  5. QUIT ' TO WAIT
  6. STORE !(WAIT) TO WAIT
  7. IF WAIT<>' '
  8. RETURN
  9. ENDIF
  10. ERASE
  11. *********************************FIND CUSTOMER ROUTINE
  12. ERASE
  13. DO WHILE T
  14. USE NAMELIST  INDEX NAME
  15. @ 1,0 SAY 'WHAT IS THE NAME OF THE CUSTOMER FIRST PART ONLY (0) ZER0 TO EXIT'
  16. ACCEPT TO CUST
  17. STORE !(CUST) TO CUST
  18. IF CUST ='0'
  19. RETURN
  20. ENDIF
  21.  
  22. FIND &CUST
  23. IF #=0
  24. ? 'CUSTOMER NOT FOUND'
  25. ? 'IS CUSTOMER DATA CORRECT??? PRESS ANY KEY TO CONTINUE'
  26. LOOP
  27. ENDIF
  28. ? NAME,ACCNUM,DATENTER
  29. STORE ACCNUM TO ACCNUMA
  30. ACCEPT ' CANCEL ALL BACK ORDERS FOR THIS CUSTOMER (Y)ES OR (N)0 ' TO WAIT
  31. ACCEPT ' WHICH FILE SHOULD BE USED (C)URRENT OR PREVIOUS <CR>' TO DEC
  32. STORE !(DEC) TO DEC
  33. STORE !(WAIT) TO WAIT
  34. IF DEC='C'
  35. STORE 'DATAFILE' TO DATABASE
  36. ELSE
  37. STORE 'DATARCH' TO DATABASE
  38. ENDIF
  39. IF WAIT='Y'
  40. USE &DATABASE
  41. REPLACE ALL SPECIAL WITH F FOR ACCNUM=ACCNUMA
  42. ENDIF
  43. ENDDO
  44.