home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / tapeutils.zip / maketape.wylbur < prev    next >
Text File  |  1988-08-02  |  5KB  |  212 lines
  1. ; Modified by fdc, 23 Jan 87, to add tape C.
  2. ; Modified by Chris & Frank, Aug 87, to add tapes D, E, F, etc etc etc
  3. ; Make CMS or OS SL tape at 1600 or 6250 bpi.  Choose between the Kermit
  4. ; mainframe or micros section.
  5. EXEC TERSE NOLOG
  6. SET ESC %
  7. COMM
  8. @ N1 0
  9. CP LINK KERMIT 197 397 RR RDFROG
  10. CP LINK KERMIT 198 398 RR RDFROG
  11. CP LINK KERMIT 199 399 RR RDFROG
  12. CP LINK KERMIT 19A 39A RR RDFROG
  13. CP LINK KERMIT 19B 39B RR RDFROG
  14. CP LINK KERMIT 19C 39C RR RDFROG
  15. CP LINK KERMIT 19F 39F RR RDFROG
  16. CP LINK KERMIT 1A0 3A0 RR RDFROG
  17. ACC 397 C
  18. ACC 398 D
  19. ACC 399 E
  20. ACC 39A F
  21. ACC 39B G
  22. ACC 39C H
  23. ACC 39F I
  24. ACC 3A0 J
  25. SET STOR FREE 80
  26.  
  27. ; Get number of files that should be written out to the tape.
  28. ; For first Kermit area.
  29. CMQ Q DISK C (STACK FIFO
  30. READ STR S1
  31. READ STR S1
  32. @ S1 SUBSTR("%S1",36)
  33. CLEAR STACK
  34. SCAN "%S1"
  35. @ N3 SCKW
  36. CLEAR STACK
  37. ; For second Kermit area.
  38. CMQ Q DISK D (STACK FIFO
  39. READ STR S1
  40. READ STR S1
  41. @ S1 SUBSTR("%S1",36)
  42. CLEAR STACK
  43. SCAN "%S1"
  44. @ N4 SCKW
  45. CLEAR STACK
  46. ; For third Kermit area
  47. CMQ Q DISK E (STACK FIFO
  48. READ STR S1
  49. READ STR S1
  50. @ S1 SUBSTR("%S1",36)
  51. CLEAR STACK
  52. SCAN "%S1"
  53. @ N5 SCKW
  54. CLEAR STACK
  55. ; For fourth Kermit area
  56. CMQ Q DISK F (STACK FIFO
  57. READ STR S1
  58. READ STR S1
  59. @ S1 SUBSTR("%S1",36)
  60. CLEAR STACK
  61. SCAN "%S1"
  62. @ N6 SCKW
  63. CLEAR STACK
  64. ; For fifth Kermit area
  65. CMQ Q DISK G (STACK FIFO
  66. READ STR S1
  67. READ STR S1
  68. @ S1 SUBSTR("%S1",36)
  69. CLEAR STACK
  70. SCAN "%S1"
  71. @ N7 SCKW
  72. CLEAR STACK
  73. ; For sixth Kermit area
  74. CMQ Q DISK H (STACK FIFO
  75. READ STR S1
  76. READ STR S1
  77. @ S1 SUBSTR("%S1",36)
  78. CLEAR STACK
  79. SCAN "%S1"
  80. @ N8 SCKW
  81. CLEAR STACK
  82. ; Get more info.
  83. READ STR S0 PRO 'Are you starting fresh (Y/N) ..'
  84. IF (S0 EQ 'Y') GOTO GETINFO
  85. READ VAL N0 PRO 'How many tapes left to write ..'
  86. GOTO GOTT
  87. GETINFO:
  88. READ VAL N0 PRO 'How many tapes would you like to write ..'
  89. CMS TELL OP I need to write %N0 Kermit tapes
  90. CMS TELL OP Please let me know when you are ready
  91. WAITT:
  92. COMM Wait until get msg from Operator.  Wakeup on carriage return.
  93. CP SL
  94. READ STR S0 PRO 'Did you get your requested tapes (Y/N) ..'
  95. IF (S0 EQ 'Y') GOTO GOTT
  96. MSGOP:
  97. READ STR S0 PRO 'Do you need to send a msg to the Operator (Y/N) ..'
  98. IF (S0 EQ 'N') GOTO WAITT
  99. READ STR S0 PRO 'Enter msg to send ..'
  100. CMS TELL OP %S0
  101. GOTO MSGOP
  102. GOTT:
  103. @ N1 = N1 + 1
  104. COMM For tape number %N1 ....
  105. GETTYPE:
  106. READ STR S2 PRO 'Is tape CMS or OS ..'
  107. IF (S2 EQ 'CMS') GOTO GETBPI
  108. IF (S2 EQ 'OS')  GOTO GETBPI
  109. GOTO GETTYPE
  110. GETBPI:
  111. READ STR S3 PRO 'Is bpi 1600 or 6250 ..'
  112. IF (S3 EQ '1600') GOTO GETFORM
  113. IF (S3 EQ '6250') GOTO GETFORM
  114. GOTO GETBPI
  115. GETFORM:
  116. READ STR S1 PRO 'Area A (micros), B (mainframes), C, D, or E ..'
  117. IF (S1 EQ 'A') GOTO MOUNTT
  118. IF (S1 EQ 'B') GOTO MOUNTT
  119. IF (S1 EQ 'C') GOTO MOUNTT
  120. IF (S1 EQ 'D') GOTO MOUNTT
  121. IF (S1 EQ 'E') GOTO MOUNTT
  122. GOTO GETFORM
  123. MOUNTT:
  124. COMM Tape number %N1 is %S2 %S3 from group %S1
  125. READ STR S0 PRO 'Is this correct (Y/N) ..'
  126. IF (S0 EQ 'Y') GOTO MOUNT0
  127. GOTO GETTYPE
  128. MOUNT0:
  129. CMS TELL OP Label tape %N1 as: %S2 %S3 number %N1 group %S1
  130. COMM Requesting tape mount now.  You will be hung until the
  131. COMM tape is mounted.
  132. SP CONS STOP CLOSE
  133. SP CONS TO * START
  134. COMM Ask BATCH for setup notape
  135. SMSG BATCH SETUP NOTAPE
  136. WTAP:
  137. SLEEP 10 SEC
  138. CPQ Q V 181
  139. IF (RC NE 0) GOTO WTAP
  140. COMM Ask BATCH for secondary setup
  141. SMSG BATCH SETUP VOL KERMCO RING SECOND
  142. COMM Do the rewind
  143. CMS TAPE REW
  144. COMM Tape %N1, %S2 %S3 group %S1, is now being written.
  145. IF (S1 EQ 'A') @ N9 N3
  146. IF (S1 EQ 'B') @ N9 N4
  147. IF (S1 EQ 'C') @ N9 N5
  148. IF (S1 EQ 'D') @ N9 N6
  149. IF (S1 EQ 'E') @ N9 N7
  150. IF (S1 EQ 'A') ACC 397 B
  151. IF (S1 EQ 'B') ACC 398 B
  152. IF (S1 EQ 'C') ACC 399 B
  153. IF (S1 EQ 'D') ACC 39A B
  154. IF (S1 EQ 'E') ACC 39B B
  155. WRITET:
  156. ; SET STOR MIN
  157. IF (S2 EQ 'CMS') CMS CCDUMP %S3
  158. IF (S2 EQ 'OS')  XCMS EXEC OSDUMP %S3
  159. CP REW 181
  160. SCR TAPE MAP A NOMSG
  161. IF (S2 EQ 'CMS') CMS VMFPLC2 SCAN * * (DISK
  162. IF (S2 EQ 'OS')  XCMS TPLABELS 181 FILE TAPE MAP A1
  163. ; SET STOR MAX
  164. SET A4
  165. CLEAR ACT
  166. U TAPE MAP A
  167. IF (S2 EQ 'CMS') D F,L
  168. IF (S2 EQ 'CMS') GOTO CHKT
  169. P 'OSTAPE ASSEMBLE' N
  170. IF (CURRENT EQ -1) COMM Ostape Assemble is not the first file
  171. IF (CURRENT EQ -1) GOTO NOTOK
  172. DEL F/CURRENT
  173. DEL L
  174. CHKT:
  175. NUMBER
  176. IF (N9 EQ LINES) GOTO ISOK
  177. COMM The number of files on the tape does not match the
  178. COMM number of files on the disk.
  179. IF (N9 GT LINES) COMM Some files are missing.
  180. IF (N9 LT LINES) COMM The log file has extra lines.
  181. NOTOK:
  182. COMM Do you want to (A) rewrite the tape or (B) dismount it?
  183. READ STR S0 PRO 'A or B ..'
  184. IF (S0 EQ 'B') GOTO BADT
  185. COMM Rewriting tape %N1
  186. CP REW 181
  187. GOTO WRITET
  188. ISOK:
  189. U TAPE MAP A CLR
  190. @ S0 "TAPE" || %N1 || "%S1"
  191. @ FN %S0
  192. @ S0 "%S2" || "%S3"
  193. SET FT %S0
  194. PRINT
  195. @ S9 'Correctly'
  196. CP REW 181
  197. CP DET 181
  198. GOTO DONE
  199. BADT:
  200. CP REW 181
  201. CP DET 181
  202. @ S9 'Incorrectly'
  203. GOTO DONE
  204. DONE:
  205. COMM
  206. COMM Tape %N1 written %S9
  207. COMM
  208. CMS TELL OP Please put tape in Bin 7 Watson.  Thanks.
  209. SP CONS STOP CLOSE
  210. IF (N1 NE N0) GOTO GOTT
  211. QUIT CLEAR
  212.