home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / lan / qrev1.arc / Q.BAT < prev    next >
DOS Batch File  |  1987-07-05  |  3KB  |  108 lines
  1. echo off
  2. if exist c:\batch\down. goto NOT_UP
  3. if %1.BAT == .BAT goto CHECK_QUEUE
  4. if %1 == ? goto ERROR
  5. if %1 == Q goto QUIT
  6. if %1 == q goto QUIT
  7. if %1 == D goto DELETE
  8. if %1 == d goto DELETE
  9. if exist c:\batch\quit. goto NO_QUEUE
  10. if not exist %1.BAT goto NO_FILE
  11.  
  12. :QUEUE3
  13. if exist c:\batch\in3.bat goto QUEUE2
  14. type c:\batch\cd > c:\batch\in3.bat
  15. cd >> c:\batch\in3.bat
  16. type %1.bat >> c:\batch\in3.bat
  17. set N=3
  18. echo %1%.BAT > c:\batch\Q3
  19. goto SENTOK
  20.  
  21. :QUEUE2
  22. if exist c:\batch\in2.bat goto queue1
  23. type c:\batch\cd > c:\batch\in2.bat
  24. cd >> c:\batch\in2.bat
  25. type %1.bat >> c:\batch\in2.bat
  26. set N=2
  27. echo %1%.BAT > c:\batch\Q2
  28. goto SENTOK
  29.  
  30. :QUEUE1
  31. if exist c:\batch\in1.bat goto holdoff
  32. type c:\batch\cd > c:\batch\in1.bat
  33. cd >> c:\batch\in1.bat
  34. type %1.bat >> c:\batch\in1.bat
  35. set N=1
  36. echo %1%.BAT > c:\batch\Q1
  37. goto SENTOK
  38.  
  39. :SENTOK
  40. echo Batch process %1 now queued as %N%.
  41. goto END
  42.  
  43. :HOLDOFF
  44. beep /f600 /d5
  45. echo The queue is full.  Please retry later.
  46. goto CHECK_QUEUE
  47.  
  48. :QUIT
  49. echo Sending QUIT command.
  50. copy c:\batch\null c:\batch\quit > nul
  51. goto END
  52.  
  53. :ERROR
  54. echo ------------------------------------------------------------
  55. echo Syntax is: Q [{batch file}] / [Q] / [D {batch number}] / [?]
  56. echo ------------------------------------------------------------
  57. echo Entering Q by itself will display the current queue status
  58. echo {batch file} is the name of the file to be processed
  59. echo Q terminates remote processing
  60. echo D deletes batch request {batch number}
  61. echo ? displays this message.
  62. echo ------------------------------------------------------------
  63. goto END
  64.  
  65. :NO_FILE
  66. beep /f400 /d10
  67. echo Cannot find %1.BAT
  68. goto END
  69.  
  70. :NO_QUEUE
  71. beep /f400 /d10
  72. echo Quit command has been sent to remote system.  No further queuing allowed.
  73. goto END
  74.  
  75. :NOT_UP
  76. beep /f400 /d10
  77. echo The remote system is not operating. No queing is possible.
  78. goto END
  79.  
  80. :DELETE
  81. if %2.O == .O goto ERROR
  82. if not exist c:\batch\Q%2. beep /f400 /d10
  83. if not exist c:\batch\Q%2. echo Batch job %2 is not in the Queue; Cannot delete.
  84. if not exist c:\batch\Q%2. goto CHECK_QUEUE
  85. if exist c:\batch\RQ%2 beep /f400 /d10
  86. if exist c:\batch\RQ%2 echo Job %2 is currently running; Cannot delete.
  87. if exist c:\batch\RQ%2 goto CHECK_QUEUE
  88. del c:\batch\Q%2.
  89. del c:\batch\IN%2.BAT
  90. echo Batch job %2 is removed from the queue.
  91.  
  92. :CHECK_QUEUE
  93. echo -------------------------------
  94. echo List of processes now in queue:
  95. if exist c:\batch\Q1  echo ----- 1 -------
  96. if exist c:\batch\RQ1 echo (RUNNING)
  97. if exist c:\batch\Q1 type c:\batch\Q1
  98. if exist c:\batch\Q2  echo ----- 2 -------
  99. if exist c:\batch\RQ2 echo (RUNNING)
  100. if exist c:\batch\Q2 type c:\batch\Q2
  101. if exist c:\batch\Q3  echo ----- 3 -------
  102. if exist c:\batch\RQ3 echo (RUNNING)
  103. if exist c:\batch\Q3 type c:\batch\Q3
  104. echo -------------------------------
  105. goto END
  106.  
  107. :END
  108.