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 / PRICE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  63 lines
  1. *PRICE.PRG
  2. *PRICELIST GENERATOR
  3. ERASE
  4. SET TALK OFF
  5. RELEASE ALL
  6. RESTORE FROM A:NAME
  7. STORE ' ' TO DEC
  8. STORE 0 TO DIS
  9. @ 2,0 SAY 'PRICE LIST TO PRINT (P) DISK FOR EDIT (D) OR SCREEN' GET;
  10.  DEC PICT'!'
  11. @ 3,0 SAY 'WHAT IS THE RATE OF DISCOUNT FOR THE PRICELIST' GET DIS PICT '99'
  12. READ
  13. USE PRICELIS INDEX PRICECOD
  14. DO CASE
  15.  CASE DEC='P'
  16. SET PRINT ON
  17. CASE DEC='D'
  18. STORE 'PRICE'+ STR(DIS,2) TO FILENAME
  19. SET ALTERNATE TO &FILENAME
  20. SET ALTER ON
  21. ENDCASE
  22. IF DIS =50  .OR. DIS=45
  23. STORE 'WHOLESALE' TO TYPE
  24. ENDIF
  25. IF DIS =40  .OR. DIS = 35
  26. STORE 'TRADE' TO TYPE
  27. ENDIF
  28. IF DIS =30 .OR. DIS=25
  29. STORE 'AGENT' TO TYPE
  30. ENDIF
  31. IF DIS <25  .AND. DIS <>50 .AND. DIS <>45 .AND. DIS<>40 .AND. DIS <>35 .AND.;
  32.  DIS <>25
  33. STORE 'RETAIL' TO TYPE
  34. ENDIF
  35. STORE  ((100-DIS)/50) TO FACTOR
  36. SET HEADING TO TRIM(&LINE1)  &TYPE PRICELIST
  37. REPORT FORM RPRICE FOR ITEM <> '                             ' .AND. COST <>0
  38. EJECT
  39. SET PRINT OFF
  40. RETURN
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.