home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BUSINESS / VNDNFO10.ZIP / EXTRREGL.BAT < prev    next >
DOS Batch File  |  1994-01-05  |  5KB  |  91 lines
  1. rem echo off
  2. goto start
  3. :usage
  4. echo .=================================================================
  5. echo .===== extrregl.bat -- extract information about one         =====
  6. echo .=====                 (originally, regional, but now not    =====
  7. echo .=====                 so limited) distributor from VENDINFO =====
  8. echo .=====                 record, writing result to out_file    =====
  9. echo .=====                                                       =====
  10. echo .===== usage:                                                =====
  11. echo .=====        extrdist filename number out_file              =====
  12. echo .===== where:                                                =====
  13. echo .=====        filename = pathname of VENDINFO file           =====
  14. echo .=====                                                       =====
  15. echo .=====        number   = distributor number (1, 2, ...)      =====
  16. echo .=====                                                       =====
  17. echo .=====        out_file = pathname of output file             =====
  18. echo .=====                                                       =====
  19. echo .===== example:                                              =====
  20. echo .=====        extrdist incxt11.pkg 1 sample.prn              =====
  21. echo .=====                                                       =====
  22. echo .=== Copyright 1993 Rams' Island Software All Rights Reserved ====
  23. echo .== 1993 Rams' Island Software, 7644 Lakecliff, Parker CO 80134 ==
  24. echo .=================================================================
  25. goto exit
  26.  
  27. :start
  28. vendprcs %1 -er%2a -na
  29. if errorlevel 51 goto exit
  30. vendprcs                 -y " "                               >> %3
  31. vendprcs                 -y "      Distributor:"              >> %3
  32. vendprcs %1 -xr%2r       -y "                    Area: @" -na >> %3
  33. vendprcs %1 -xr%2a -zi26 -y "            Name/Address: @" -na >> %3
  34. vendprcs %1 -xr%2t       -y "         Toll-free Phone: @" -na >> %3
  35. vendprcs %1 -xr%2p       -y "             Voice Phone: @" -na >> %3
  36. vendprcs %1 -xr%2f       -y "               FAX Phone: @" -na >> %3
  37. vendprcs %1 -xr%2ms      -y "                 Support: @" -na >> %3
  38. vendprcs %1 -xr%2mo      -y "            Sole Support: @" -na >> %3
  39. vendprcs %1 -xr%2md      -y "              Other Dist: @" -na >> %3
  40. vendprcs %1 -xr%2mj      -y "                   Press: @" -na >> %3
  41. vendprcs %1 -xr%2ma      -y "            Author Ships: @" -na >> %3
  42. vendprcs %1 -xr%2mc      -y "           Enable Credit: @" -na >> %3
  43. vendprcs %1 -xr%2mp      -y "           Enable Prices: @" -na >> %3
  44. vendprcs %1 -er%2mc
  45. if errorlevel 51 goto nocredit
  46. vendprcs %1 -zn -y "            Credit Cards: "  -na >> %3
  47. vendprcs %1 -xr%2ce -zn -zt "Access/Euro "       -na >> %3
  48. vendprcs %1 -xr%2ca -zn -zt "Amex "              -na >> %3
  49. vendprcs %1 -xr%2cc -zn -zt "Diner's "           -na >> %3
  50. vendprcs %1 -xr%2cd -zn -zt "Discover "          -na >> %3
  51. vendprcs %1 -xr%2cm -zn -zt "MasterCard "        -na >> %3
  52. vendprcs %1 -xr%2cv -zn -zt "VISA "              -na >> %3
  53. vendprcs %1          -y " "                           -na >> %3
  54. vendprcs %1 -xr%2xms -y "         Pay: In-Ctry MO: @" -na >> %3
  55. vendprcs %1 -xr%2xmi -y "         Pay: Internl MO: @" -na >> %3
  56. vendprcs %1 -xr%2xps -y "         Pay: CkPersSame: @" -na >> %3
  57. vendprcs %1 -xr%2xph -y "         Pay: CkPrsHrdSn: @" -na >> %3
  58. vendprcs %1 -xr%2xpr -y "         Pay: CkPrsHrdRe: @" -na >> %3
  59. vendprcs %1 -xr%2xpo -y "         Pay: CkPrsOther: @" -na >> %3
  60. vendprcs %1 -xr%2xbs -y "         Pay: CkBankSame: @" -na >> %3
  61. vendprcs %1 -xr%2xbh -y "         Pay: CkBnkHrdSn: @" -na >> %3
  62. vendprcs %1 -xr%2xbr -y "         Pay: CkBnkHrdRe: @" -na >> %3
  63. vendprcs %1 -xr%2xbo -y "         Pay: CkBnkOther: @" -na >> %3
  64. vendprcs %1 -xr%2xcs -y "         Pay:   CashSame: @" -na >> %3
  65. vendprcs %1 -xr%2xch -y "         Pay:   CashHard: @" -na >> %3
  66. vendprcs %1 -xr%2xco -y "         Pay:  CashOther: @" -na >> %3
  67. vendprcs %1 -xr%2xts -y "         Pay: TravCkSame: @" -na >> %3
  68. vendprcs %1 -xr%2xto -y "         Pay: TrvCkOther: @" -na >> %3
  69. vendprcs %1 -xr%2xa  -y "         Pay:     AmexMO: @" -na >> %3
  70. vendprcs %1 -xr%2xe  -y "         Pay: EuroCheque: @" -na >> %3
  71. vendprcs %1 -xr%2xd  -y "         Pay: DirectBank: @" -na >> %3
  72. vendprcs %1 -xr%2xon -y "         Pay:   PONumber: @" -na >> %3
  73. vendprcs %1 -xr%2xoh -y "         Pay:   POHrdcpy: @" -na >> %3
  74. :nocredit
  75. vendprcs %1 -er%2mp
  76. if errorlevel 51 goto exit
  77. vendprcs %1 -xr%2c  -y "         Prices Currency: @" -na >> %3
  78. vendprcs %1 -xr%2i1 -y "           Minimum Price: @" -na >> %3
  79. vendprcs %1 -xr%2i2 -y "           Maximum Price: @" -na >> %3
  80. vendprcs            -y "        Shipping and Handlg"           >> %3
  81. vendprcs %1 -xr%2sc -y "            Same Country: @" -na >> %3
  82. vendprcs %1 -xr%2sn -y "           North America: @" -na >> %3
  83. vendprcs %1 -xr%2ss -y "           South America: @" -na >> %3
  84. vendprcs %1 -xr%2se -y "                  Europe: @" -na >> %3
  85. vendprcs %1 -xr%2sa -y "                    Asia: @" -na >> %3
  86. vendprcs %1 -xr%2sf -y "                  Africe: @" -na >> %3
  87. vendprcs %1 -xr%2sp -y "             Pacific Rim: @" -na >> %3
  88.  
  89. :exit
  90. 
  91.