home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pcm45tkt.zip / bootdrv / os2 / asvrrslt.cmd next >
OS/2 REXX Batch file  |  1999-05-18  |  47KB  |  836 lines
  1. /* ------------------------------------------------------------*/
  2. /* ASVRRSLT.CMD - Analyze results diskette logfiles for        */
  3. /*                pass-fail-missing and update of PCMSCORE.TXT */
  4. /* Parameters: NONE                                            */
  5. /* Invoked from PCMRSLTS.EXE for results diskette processing.  */
  6. /* ------------------------------------------------------------*/
  7. '@echo off'
  8. arg parm.1 comments
  9. 'cls'
  10. say ''
  11. if left(parm.1,1) = '?' then signal INFO_PLEASE
  12.  
  13. os2drv = value('PCM_BOOTDRV',,'OS2ENVIRONMENT');
  14.  
  15. if pos(os2drv,'CDEFGHIJKLMNOPQRSTUVWXYZ') = 0 then do
  16. say '┌─────────────────────────────────────────────────────────────┐'
  17. say '│ OS2 environment variable PCM_BOOTDRV not set.  Run LANSETUP │'
  18. say '│ to update config.sys, then shutdown & reboot to continue.   │'
  19. say '└─────────────────────────────────────────────────────────────┘'
  20. exit
  21. end
  22.  
  23. CALL RxFuncAdd 'SysSleep', 'RexxUtil', 'SysSleep'
  24. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  25. CALL RxFuncAdd 'SysFileTree','RexxUtil','SysFileTree'
  26. CALL SysLoadFuncs
  27.  
  28. grepchk = '-y -r'
  29. rcx = value('grepopt',grepchk,'OS2ENVIRONMENT');
  30.  
  31. if stream(os2drv':\pcmlogs\temp'  ,'c','query size') = '' then 'md 'os2drv':\pcmlogs\temp'
  32. 'cd 'os2drv':\'
  33.  
  34. 'xcopy a:\ 'os2drv':\pcmlogs\temp /s/e/v >nul'  /* get dirs-logfiles for processing */
  35.  
  36. 'echo . >> 'os2drv':\pcmlogs\temp\testbad'
  37. 'echo . >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  38.  
  39. /*---*/
  40. D01.ITLLS56.S01:
  41. if stream(os2drv':\pcmlogs\temp\d01logs\ITLLS56.S01'  ,'c','query size') = '' then signal D01.ITLLS56.S01.MISSING
  42.  
  43. 'grep "ITLLS56 Completed successfully" 'os2drv':\pcmlogs\temp\d01logs\ITLLS56.S01 > nul'
  44. if rc \= 1 then signal D01.ITLLS56.S01.FAIL
  45.  
  46. 'echo PCM LAN Domain_______ITLLS56.S01________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  47. signal D01.ITLLS56.R01
  48.  
  49. D01.ITLLS56.S01.MISSING:
  50. 'echo PCM LAN Domain_______ITLLS56.S01________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  51. 'echo ITLLS56.S01 - logfile is missing.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  52. 'echo     be run separately.  The LAN exerciser tests the DOMAIN system and >> 'os2drv':\pcmlogs\temp\testbad'
  53. 'echo     MUST be run on 3 systems (S01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  54. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  55. 'echo     exists with the LAN support on the DOMAIN when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  56. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  57. signal D01.ITLLS56.R01
  58.  
  59. D01.ITLLS56.S01.FAIL:
  60. 'echo PCM LAN Domain_______ITLLS56.S01________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  61. 'echo ITLLS56.S01 - logfile shows fail.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  62. 'echo     be run separately.  Check the logfile under \S01LOGS to determine >> 'os2drv':\pcmlogs\temp\testbad'
  63. 'echo     the cause, and rerun.  The LAN exerciser tests the DOMAIN system and >> 'os2drv':\pcmlogs\temp\testbad'
  64. 'echo     MUST be run on 3 systems (S01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  65. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  66. 'echo     exists with the LAN support on the DOMAIN when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  67. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  68.  
  69.  
  70. /*---*/
  71. D01.ITLLS56.R01:
  72. if stream(os2drv':\pcmlogs\temp\d01logs\ITLLS56.R01'  ,'c','query size') = '' then signal D01.ITLLS56.R01.MISSING
  73.  
  74. 'grep "ITLLS56 Completed successfully" 'os2drv':\pcmlogs\temp\d01logs\ITLLS56.R01 > nul'
  75. if rc \= 1 then signal D01.ITLLS56.R01.FAIL
  76.  
  77. 'echo PCM LAN Domain_______ITLLS56.R01________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  78. signal D01.ITLLS56.R02
  79.  
  80. D01.ITLLS56.R01.MISSING:
  81. 'echo PCM LAN Domain_______ITLLS56.R01________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  82. 'echo ITLLS56.R01 - logfile is missing.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  83. 'echo     be run separately.  The LAN exerciser tests the DOMAIN system and >> 'os2drv':\pcmlogs\temp\testbad'
  84. 'echo     MUST be run on 3 systems (S01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  85. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  86. 'echo     exists with the LAN support on the DOMAIN when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  87. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  88. signal D01.ITLLS56.R02
  89.  
  90. D01.ITLLS56.R01.FAIL:
  91. 'echo PCM LAN Domain_______ITLLS56.R01________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  92. 'echo ITLLS56.R01 - logfile shows fail.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  93. 'echo     be run separately.  Check the logfile under \R01LOGS to determine >> 'os2drv':\pcmlogs\temp\testbad'
  94. 'echo     the cause, and rerun.  The LAN exerciser tests the DOMAIN system and >> 'os2drv':\pcmlogs\temp\testbad'
  95. 'echo     MUST be run on 3 systems (S01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  96. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  97. 'echo     exists with the LAN support on the DOMAIN when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  98. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  99.  
  100.  
  101. /*---*/
  102. D01.ITLLS56.R02:
  103. if stream(os2drv':\pcmlogs\temp\d01logs\ITLLS56.R02'  ,'c','query size') = '' then signal D01.ITLLS56.R02.MISSING
  104.  
  105. 'grep "ITLLS56 Completed successfully" 'os2drv':\pcmlogs\temp\d01logs\ITLLS56.R02 > nul'
  106. if rc \= 1 then signal D01.ITLLS56.R02.FAIL
  107.  
  108. 'echo PCM LAN Domain_______ITLLS56.R02________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  109. signal D01.ITLMSG.D01
  110.  
  111. D01.ITLLS56.R02.MISSING:
  112. 'echo PCM LAN Domain_______ITLLS56.R02________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  113. 'echo ITLLS56.R02 - logfile is missing.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  114. 'echo     be run separately.  The LAN exerciser tests the DOMAIN system and >> 'os2drv':\pcmlogs\temp\testbad'
  115. 'echo     MUST be run on 3 systems (S01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  116. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  117. 'echo     exists with the LAN support on the DOMAIN when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  118. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  119. signal D01.ITLMSG.D01
  120.  
  121. D01.ITLLS56.R02.FAIL:
  122. 'echo PCM LAN Domain_______ITLLS56.R02________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  123. 'echo ITLLS56.R02 - logfile shows fail.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  124. 'echo     be run separately.  Check the logfile under \R02LOGS to determine >> 'os2drv':\pcmlogs\temp\testbad'
  125. 'echo     the cause, and rerun.  The LAN exerciser tests the DOMAIN system and >> 'os2drv':\pcmlogs\temp\testbad'
  126. 'echo     MUST be run on 3 systems (S01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  127. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  128. 'echo     exists with the LAN support on the DOMAIN when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  129. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  130.  
  131.  
  132. /*---*/
  133. D01.ITLMSG.D01:
  134. if stream(os2drv':\pcmlogs\temp\d01logs\ITLMSG.D01'  ,'c','query size') = '' then signal D01.ITLMSG.D01.MISSING
  135.  
  136. 'grep "ITLMSG Completed successfully" 'os2drv':\pcmlogs\temp\d01logs\ITLMSG.D01 > nul'
  137. if rc \= 1 then signal D01.ITLMSG.D01.FAIL
  138.  
  139. 'echo PCM LAN Domain_______ITLMSG.D01_________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  140. signal D01.ITLMSG.R01
  141.  
  142. D01.ITLMSG.D01.MISSING:
  143. 'echo PCM LAN Domain_______ITLMSG.D01_________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  144. 'echo ITLMSG.D01  - logfile is missing.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  145. 'echo     run separately.  From the DOMAIN Controller run the command       >> 'os2drv':\pcmlogs\temp\testbad'
  146. 'echo     ITLMSG.CMD.  Then UPDATE the results diskette.                    >> 'os2drv':\pcmlogs\temp\testbad'
  147. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  148. signal D01.ITLMSG.R01
  149.  
  150. D01.ITLMSG.D01.FAIL:
  151. 'echo PCM LAN Domain_______ITLMSG.D01_________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  152. 'echo ITLMSG.D01  - logfile shows fail.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  153. 'echo     run separately.  Check the logfile under \D01LOGS to determine    >> 'os2drv':\pcmlogs\temp\testbad'
  154. 'echo     the cause, then from the DOMAIN Controller run the command        >> 'os2drv':\pcmlogs\temp\testbad'
  155. 'echo     ITLMSG.CMD.  Then UPDATE the results diskette.                    >> 'os2drv':\pcmlogs\temp\testbad'
  156. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  157.  
  158.  
  159. /*---*/
  160. D01.ITLMSG.R01:
  161. if stream(os2drv':\pcmlogs\temp\d01logs\ITLMSG.R01'  ,'c','query size') = '' then signal D01.ITLMSG.R01.MISSING
  162.  
  163. 'grep "ITLMSG Completed successfully" 'os2drv':\pcmlogs\temp\d01logs\ITLMSG.R01 > nul'
  164. if rc \= 1 then signal D01.ITLMSG.R01.FAIL
  165.  
  166. 'echo PCM LAN Domain_______ITLMSG.R01_________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  167. signal D01.ITLFTP02.R02
  168.  
  169. D01.ITLMSG.R01.MISSING:
  170. 'echo PCM LAN Domain_______ITLMSG.R01_________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  171. 'echo ITLMSG.R01  - logfile is missing.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  172. 'echo     run separately.  From the CLIENT #1 system, run the command       >> 'os2drv':\pcmlogs\temp\testbad'
  173. 'echo     ITLMSG.CMD.  Then UPDATE the results diskette.                    >> 'os2drv':\pcmlogs\temp\testbad'
  174. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  175. signal D01.ITLFTP02.R02
  176.  
  177. D01.ITLMSG.R01.FAIL:
  178. 'echo PCM LAN Domain_______ITLMSG.R01_________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  179. 'echo ITLMSG.R01  - logfile shows fail.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  180. 'echo     run separately.  Check the logfile under \R01LOGS to determine    >> 'os2drv':\pcmlogs\temp\testbad'
  181. 'echo     the cause, then from the CLIENT #1 system, run the command        >> 'os2drv':\pcmlogs\temp\testbad'
  182. 'echo     ITLMSG.CMD.  Then UPDATE the results diskette.                    >> 'os2drv':\pcmlogs\temp\testbad'
  183. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  184.  
  185.  
  186. /*---*/
  187. D01.ITLFTP02.R02:
  188. if stream(os2drv':\pcmlogs\temp\d01logs\ITLFTP02.R02'  ,'c','query size') = '' then signal D01.ITLFTP02.R02.MISSING
  189.  
  190. 'grep "ITLFTP02 Completed successfully" 'os2drv':\pcmlogs\temp\d01logs\ITLFTP02.R02 > nul'
  191. if rc \= 1 then signal D01.ITLFTP02.R02.FAIL
  192.  
  193. 'echo PCM LAN Domain_______ITLFTP02.R02_______PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  194. signal D01.ITLTCP01.D01
  195.  
  196. D01.ITLFTP02.R02.MISSING:
  197. 'echo PCM LAN Domain_______ITLFTP02.R02_______MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  198. 'echo ITLFTP02.R02  logfile is missing.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  199. 'echo     run separately.  From the CLIENT #2 system, run the command       >> 'os2drv':\pcmlogs\temp\testbad'
  200. 'echo     ITLFTP02.CMD.  Then UPDATE the results diskette.                  >> 'os2drv':\pcmlogs\temp\testbad'
  201. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  202. signal D01.ITLTCP01.D01
  203.  
  204. D01.ITLFTP02.R02.FAIL:
  205. 'echo PCM LAN Domain_______ITLFTP02.R02_______FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  206. 'echo ITLFTP02.R02  logfile shows fail.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  207. 'echo     run separately.  Check the logfile under \R02LOGS to determine    >> 'os2drv':\pcmlogs\temp\testbad'
  208. 'echo     the cause, then from the CLIENT #2 system, run the command        >> 'os2drv':\pcmlogs\temp\testbad'
  209. 'echo     ITLFTP02.CMD.  Then UPDATE the results diskette.                  >> 'os2drv':\pcmlogs\temp\testbad'
  210. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  211.  
  212.  
  213. /*---*/
  214. D01.ITLTCP01.D01:
  215. if stream(os2drv':\pcmlogs\temp\d01logs\ITLTCP01.D01'  ,'c','query size') = '' then signal D01.ITLTCP01.D01.MISSING
  216.  
  217. 'grep "ITLTCP01 Completed successfully" 'os2drv':\pcmlogs\temp\d01logs\ITLTCP01.D01 > nul'
  218. if rc \= 1 then signal D01.ITLTCP01.D01.FAIL
  219.  
  220. 'echo PCM LAN Domain_______ITLTCP01.D01_______PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  221. signal D01.ITLDUMP
  222.  
  223. D01.ITLTCP01.D01.MISSING:
  224. 'echo PCM LAN Domain_______ITLTCP01.D01_______MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  225. 'echo ITLTCP01.D01  logfile is missing.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  226. 'echo     run separately.  From the DOMAIN Controller run the command       >> 'os2drv':\pcmlogs\temp\testbad'
  227. 'echo     ITLTCP01.CMD.  Then UPDATE the results diskette.                  >> 'os2drv':\pcmlogs\temp\testbad'
  228. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  229. signal D01.ITLDUMP
  230.  
  231. D01.ITLTCP01.D01.FAIL:
  232. 'echo PCM LAN Domain_______ITLTCP01.D01_______FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  233. 'echo ITLTCP01.D01  logfile shows fail.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  234. 'echo     run separately.  Check the logfile under \D01LOGS to determine    >> 'os2drv':\pcmlogs\temp\testbad'
  235. 'echo     the cause, then from the DOMAIN Controller run the command        >> 'os2drv':\pcmlogs\temp\testbad'
  236. 'echo     ITLTCP01.CMD.  Then UPDATE the results diskette.                  >> 'os2drv':\pcmlogs\temp\testbad'
  237. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  238.  
  239.  
  240. /*---*/
  241. D01.ITLDUMP:
  242. if stream(os2drv':\pcmlogs\temp\d01logs\ITLDUMP.TXT'  ,'c','query size') = '' then signal ITLDUMP.INCOMPLETE
  243.  
  244. 'grep x 'os2drv':\pcmlogs\temp\d01logs\itldump.txt > nul'
  245. if rc < 5 then signal ITLDUMP.INCOMPLETE
  246.  
  247. 'grep "│    │x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLDUMP.TXT > nul'
  248. if rc > 0 then signal ITLDUMPCMT
  249. 'grep "│    │ x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLDUMP.TXT > nul'
  250. if rc > 0 then signal ITLDUMPCMT
  251. 'grep "│    │  x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLDUMP.TXT > nul'
  252. if rc > 0 then signal ITLDUMPCMT
  253. 'grep "│    │   x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLDUMP.TXT > nul'
  254. if rc > 0 then signal ITLDUMPCMT
  255.  
  256. 'grep "┤    │x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLDUMP.TXT > nul'
  257. if rc > 0 then signal ITLDUMPCMT
  258. 'grep "┤    │ x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLDUMP.TXT > nul'
  259. if rc > 0 then signal ITLDUMPCMT
  260. 'grep "┤    │  x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLDUMP.TXT > nul'
  261. if rc > 0 then signal ITLDUMPCMT
  262. 'grep "┤    │   x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLDUMP.TXT > nul'
  263. if rc > 0 then signal ITLDUMPCMT
  264.  
  265. 'echo PCM LAN Domain_______ITLDUMP.D01________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  266. signal D01.ITLPSNS
  267.  
  268. ITLDUMP.INCOMPLETE:
  269. 'echo PCM LAN Domain_______ITLDUMP.D01________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  270. 'echo ITLDUMP.TXT file has not been updated.  Complete the ITLDUMP testcase >> 'os2drv':\pcmlogs\temp\testbad'
  271. 'echo     and update \ITLUTIL\ITLDUMP.TXT, then UPDATE the results diskette >> 'os2drv':\pcmlogs\temp\testbad'
  272. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  273. signal D01.ITLPSNS
  274.  
  275. ITLDUMPCMT:
  276. 'echo PCM LAN Domain_______ITLDUMP.D01________COMMENTS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  277. 'echo ITLDUMP.TXT shows problems occurred.  Remember to update the PCMHDW >> 'os2drv':\pcmlogs\temp\testbad'
  278. 'echo     system information PANEL-4 Comments area with details. >> 'os2drv':\pcmlogs\temp\testbad'
  279. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  280.  
  281.  
  282. /*---*/
  283. D01.ITLPSNS:
  284. if stream(os2drv':\pcmlogs\temp\d01logs\ITLPSNS.TXT'  ,'c','query size') = '' then signal ITLPSNS.INCOMPLETE
  285.  
  286. 'grep x 'os2drv':\pcmlogs\temp\d01logs\itlpsns.txt > nul'
  287. if rc < 6 then signal ITLPSNS.INCOMPLETE
  288.  
  289. 'grep "│    │x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLPSNS.TXT > nul'
  290. if rc = 1 then signal ITLPSNSCMT
  291. 'grep "│    │ x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLPSNS.TXT > nul'
  292. if rc = 1 then signal ITLPSNSCMT
  293. 'grep "│    │  x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLPSNS.TXT > nul'
  294. if rc = 1 then signal ITLPSNSCMT
  295. 'grep "│    │   x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLPSNS.TXT > nul'
  296. if rc = 1 then signal ITLPSNSCMT
  297.  
  298. 'grep "┤    │x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLPSNS.TXT > nul'
  299. if rc = 1 then signal ITLPSNSCMT
  300. 'grep "┤    │ x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLPSNS.TXT > nul'
  301. if rc = 1 then signal ITLPSNSCMT
  302. 'grep "┤    │  x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLPSNS.TXT > nul'
  303. if rc = 1 then signal ITLPSNSCMT
  304. 'grep "┤    │   x" 'os2drv':\PCMLOGS\TEMP\D01LOGS\ITLPSNS.TXT > nul'
  305. if rc = 1 then signal ITLPSNSCMT
  306.  
  307. 'echo PCM LAN Domain_______ITLPSNS.D01________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  308. signal D01.ITLRAID.D01
  309.  
  310. ITLPSNS.INCOMPLETE:
  311. 'echo PCM LAN Domain_______ITLPSNS.D01________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  312. 'echo ITLPSNS.TXT file has not been updated.  Complete the ITLPSNS testcase >> 'os2drv':\pcmlogs\temp\testbad'
  313. 'echo     and update \ITLUTIL\ITLPSNS.TXT, then UPDATE the results diskette >> 'os2drv':\pcmlogs\temp\testbad'
  314. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  315. signal D01.ITLRAID.D01
  316.  
  317. ITLPSNSCMT:
  318. 'echo PCM LAN Domain_______ITLPSNS.D01________COMMENTS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  319. 'echo ITLPSNS.TXT shows problems occurred.  Remember to update the PCMHDW >> 'os2drv':\pcmlogs\temp\testbad'
  320. 'echo     system information PANEL-4 Comments area with details. >> 'os2drv':\pcmlogs\temp\testbad'
  321. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  322.  
  323.  
  324. /*---*/
  325. D01.ITLRAID.D01:
  326.  
  327. 'grep "RAID System" 'os2drv':\pcmlogs\temp\D01LOGS\ITLRAID.D01 > nul'
  328. if rc > 1 then signal CHK_RAID
  329.  
  330. 'echo PCM LAN Domain_______ITLRAID.D01________NOT RUN >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  331. signal S01.ITLLS57.D01
  332.  
  333. CHK_RAID:
  334. alertlog = os2drv':\pcmlogs\temp\D01LOGS\ITLRAID.D01'
  335. x=stream(alertlog,'c','open read');
  336. sta = 'Status'
  337. raidstat = 0;
  338.  
  339. do forever;
  340.    line = LINEIN(alertlog);
  341.    if pos('Device Defunct', line) > 0 then
  342.      do
  343.        parse value line with dev ')' sta  unused;
  344.        tstdev = right(dev,1);
  345.        say 'device failed number ='tstdev
  346.          do forever;
  347.            line = LINEIN(alertlog);
  348.            if pos('RAID Device Online', line) > 0 then
  349.              do
  350.                parse value line with dev ')' sta  unused;
  351.                num = right(dev,1);
  352.                say 'device online number ='num
  353.                if num = tstdev then raidstat = 2;
  354.              end
  355.            if lines(alertlog) = 0 then leave
  356.          end
  357.      end
  358. if lines(alertlog) = 0 then leave
  359. end
  360.  
  361.  
  362. /* ---------------------------------------------------------------------- */
  363. x=stream(alertlog,'c','close')
  364. if raidstat = 2 then signal RAID_PASS
  365.  
  366. 'echo PCM LAN Domain_______ITLRAID.D01________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  367. 'echo ITLRAID.D01 - alert.log indicates RAID drives, but removal alert and  >> 'os2drv':\pcmlogs\temp\testbad'
  368. 'echo     online after rebuild alerts were not both found.  Please run the  >> 'os2drv':\pcmlogs\temp\testbad'
  369. 'echo     ITLRAID test as outlined in the documentation.  >> 'os2drv':\pcmlogs\temp\testbad'
  370. 'echo     Then UPDATE the results diskette. >> 'os2drv':\pcmlogs\temp\testbad'
  371. signal S01.ITLLS57.D01
  372.  
  373. RAID_PASS:
  374. 'echo PCM LAN Domain_______ITLRAID.D01________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  375.  
  376.  
  377. /*---*/
  378. S01.ITLLS57.D01:
  379.  
  380. 'echo . >> 'os2drv':\pcmlogs\temp\testbad'
  381. 'echo . >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  382.  
  383. if stream(os2drv':\pcmlogs\temp\S01logs\ITLLS57.D01'  ,'c','query size') = '' then signal S01.ITLLS57.D01.MISSING
  384.  
  385. 'grep "ITLLS57 Completed successfully" 'os2drv':\pcmlogs\temp\S01LOGS\ITLLS57.D01 > nul'
  386. if rc \= 1 then signal S01.ITLLS57.D01.FAIL
  387.  
  388. 'echo PCM LAN Server_______ITLLS57.D01________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  389. signal S01.ITLLS57.R01
  390.  
  391. S01.ITLLS57.D01.MISSING:
  392. 'echo PCM LAN Server_______ITLLS57.D01________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  393. 'echo ITLLS57.D01 - logfile is missing.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  394. 'echo     be run separately.  The LAN exerciser tests the SERVER system and >> 'os2drv':\pcmlogs\temp\testbad'
  395. 'echo     MUST be run on 3 systems (D01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  396. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  397. 'echo     exists with the LAN support on the SERVER when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  398. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  399. signal S01.ITLLS57.R01
  400.  
  401. S01.ITLLS57.D01.FAIL:
  402. 'echo PCM LAN Server_______ITLLS57.D01________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  403. 'echo ITLLS57.D01 - logfile shows fail.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  404. 'echo     be run separately.  Check the logfile under \D01LOGS to determine >> 'os2drv':\pcmlogs\temp\testbad'
  405. 'echo     the cause, and rerun.  The LAN exerciser tests the SERVER system and >> 'os2drv':\pcmlogs\temp\testbad'
  406. 'echo     MUST be run on 3 systems (D01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  407. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  408. 'echo     exists with the LAN support on the SERVER when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  409. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  410.  
  411. /*-----------------*/
  412. S01.ITLLS57.R01:
  413. if stream(os2drv':\pcmlogs\temp\S01logs\ITLLS57.R01'  ,'c','query size') = '' then signal S01.ITLLS57.R01.MISSING
  414.  
  415. 'grep "ITLLS57 Completed successfully" 'os2drv':\pcmlogs\temp\S01LOGS\ITLLS57.R01 > nul'
  416. if rc \= 1 then signal S01.ITLLS57.R01.FAIL
  417.  
  418. 'echo PCM LAN Server_______ITLLS57.R01________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  419. signal S01.ITLLS57.R02
  420.  
  421. S01.ITLLS57.R01.MISSING:
  422. 'echo PCM LAN Server_______ITLLS57.R01________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  423. 'echo ITLLS57.R01 - logfile is missing.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  424. 'echo     be run separately.  The LAN exerciser tests the SERVER system and >> 'os2drv':\pcmlogs\temp\testbad'
  425. 'echo     MUST be run on 3 systems (D01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  426. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  427. 'echo     exists with the LAN support on the SERVER when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  428. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  429. signal S01.ITLLS57.R02
  430.  
  431. S01.ITLLS57.R01.FAIL:
  432. 'echo PCM LAN Server_______ITLLS57.R01________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  433. 'echo ITLLS57.R01 - logfile shows fail.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  434. 'echo     be run separately.  Check the logfile under \R01LOGS to determine >> 'os2drv':\pcmlogs\temp\testbad'
  435. 'echo     the cause, and rerun.  The LAN exerciser tests the SERVER system and >> 'os2drv':\pcmlogs\temp\testbad'
  436. 'echo     MUST be run on 3 systems (D01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  437. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  438. 'echo     exists with the LAN support on the SERVER when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  439. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  440.  
  441. /*-----------------*/
  442. S01.ITLLS57.R02:
  443. if stream(os2drv':\pcmlogs\temp\S01logs\ITLLS57.R02'  ,'c','query size') = '' then signal S01.ITLLS57.R02.MISSING
  444.  
  445. 'grep "ITLLS57 Completed successfully" 'os2drv':\pcmlogs\temp\S01LOGS\ITLLS57.R02 > nul'
  446. if rc \= 1 then signal S01.ITLLS57.R02.FAIL
  447.  
  448. 'echo PCM LAN Server_______ITLLS57.R02________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  449. signal S01.ITLFTP01.R01
  450.  
  451. S01.ITLLS57.R02.MISSING:
  452. 'echo PCM LAN Server_______ITLLS57.R02________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  453. 'echo ITLLS57.R02 - logfile is missing.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  454. 'echo     be run separately.  The LAN exerciser tests the SERVER system and >> 'os2drv':\pcmlogs\temp\testbad'
  455. 'echo     MUST be run on 3 systems (D01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  456. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  457. 'echo     exists with the LAN support on the SERVER when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  458. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  459. signal S01.ITLFTP01.R01
  460.  
  461. S01.ITLLS57.R02.FAIL:
  462. 'echo PCM LAN Server_______ITLLS57.R02________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  463. 'echo ITLLS57.R02 - logfile shows fail.  This test is required and MUST NOT >> 'os2drv':\pcmlogs\temp\testbad'
  464. 'echo     be run separately.  Check the logfile under \R02LOGS to determine >> 'os2drv':\pcmlogs\temp\testbad'
  465. 'echo     the cause, and rerun.  The LAN exerciser tests the SERVER system and >> 'os2drv':\pcmlogs\temp\testbad'
  466. 'echo     MUST be run on 3 systems (D01,R01,R02) at the same time in order  >> 'os2drv':\pcmlogs\temp\testbad'
  467. 'echo     to place the correct load on the system to determine if a problem >> 'os2drv':\pcmlogs\temp\testbad'
  468. 'echo     exists with the LAN support on the SERVER when under light load.  >> 'os2drv':\pcmlogs\temp\testbad'
  469. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  470.  
  471. /*-----------------*/
  472. S01.ITLFTP01.R01:
  473. if stream(os2drv':\pcmlogs\temp\S01logs\ITLFTP01.R01'  ,'c','query size') = '' then signal S01.ITLFTP01.R01.MISSING
  474.  
  475. 'grep "ITLFTP01 Completed successfully" 'os2drv':\pcmlogs\temp\S01LOGS\ITLFTP01.R01 > nul'
  476. if rc \= 1 then signal S01.ITLFTP01.R01.FAIL
  477.  
  478. 'echo PCM LAN Server_______ITLFTP01.R01_______PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  479. signal S01.ITLALERT.S01
  480.  
  481. S01.ITLFTP01.R01.MISSING:
  482. 'echo PCM LAN Server_______ITLFTP01.R01_______MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  483. 'echo ITLFTP01.R01  logfile is missing.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  484. 'echo     run separately.  From the CLIENT #1 system, run the command       >> 'os2drv':\pcmlogs\temp\testbad'
  485. 'echo     ITLFTP01.CMD.  Then UPDATE the results diskette.                  >> 'os2drv':\pcmlogs\temp\testbad'
  486. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  487. signal S01.ITLALERT.S01
  488.  
  489. S01.ITLFTP01.R01.FAIL:
  490. 'echo PCM LAN Server_______ITLFTP01.R01_______FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  491. 'echo ITLFTP01.R01  logfile shows fail.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  492. 'echo     run separately.  Check the logfile under \R01LOGS to determine    >> 'os2drv':\pcmlogs\temp\testbad'
  493. 'echo     the cause, then from the CLIENT #1 system, run the command        >> 'os2drv':\pcmlogs\temp\testbad'
  494. 'echo     ITLFTP01.CMD.  Then UPDATE the results diskette.                  >> 'os2drv':\pcmlogs\temp\testbad'
  495. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  496.  
  497. /*-----------------*/
  498. S01.ITLALERT.S01:
  499. if stream(os2drv':\pcmlogs\temp\S01logs\ITLALERT.S01'  ,'c','query size') = '' then signal S01.ITLALERT.S01.MISSING
  500.  
  501. 'grep "ITLALERT Completed successfully" 'os2drv':\pcmlogs\temp\S01LOGS\ITLALERT.S01 > nul'
  502. if rc \= 1 then signal S01.ITLALERT.S01.FAIL
  503.  
  504. 'echo PCM LAN Server_______ITLALERT.S01_______PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  505. signal S01.ITLLD.R02
  506.  
  507. S01.ITLALERT.S01.MISSING:
  508. 'echo PCM LAN Server_______ITLALERT.S01_______MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  509. 'echo ITLALERT.S01  logfile is missing.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  510. 'echo     run separately.  From the SERVER system, run the command          >> 'os2drv':\pcmlogs\temp\testbad'
  511. 'echo     ITLALERT.CMD.  Then UPDATE the results diskette.                  >> 'os2drv':\pcmlogs\temp\testbad'
  512. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  513. signal S01.ITLLD.R02
  514.  
  515. S01.ITLALERT.S01.FAIL:
  516. 'echo PCM LAN Server_______ITLALERT.S01_______FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  517. 'echo ITLALERT.S01  logfile shows fail.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  518. 'echo     run separately.  Check the logfile under \S01LOGS to determine    >> 'os2drv':\pcmlogs\temp\testbad'
  519. 'echo     the cause, then from the SERVER system, run the command           >> 'os2drv':\pcmlogs\temp\testbad'
  520. 'echo     ITLALERT.CMD.  Then UPDATE the results diskette.                  >> 'os2drv':\pcmlogs\temp\testbad'
  521. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  522.  
  523. /*-----------------*/
  524. S01.ITLLD.R02:
  525. if stream(os2drv':\pcmlogs\temp\S01logs\ITLLD.R02'  ,'c','query size') = '' then signal S01.ITLLD.R02.MISSING
  526.  
  527. 'grep "ITLLD Completed successfully" 'os2drv':\pcmlogs\temp\S01LOGS\ITLLD.R02 > nul'
  528. if rc \= 1 then signal S01.ITLLD.R02.FAIL
  529.  
  530. 'echo PCM LAN Server_______ITLLD.R02__________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  531. signal S01.SYSINFO.RPT
  532.  
  533. S01.ITLLD.R02.MISSING:
  534. 'echo PCM LAN Server_______ITLLD.R02__________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  535. 'echo ITLLD.R02 --  logfile is missing.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  536. 'echo     run separately.  From the CLIENT #2 system run the command        >> 'os2drv':\pcmlogs\temp\testbad'
  537. 'echo     LANRBOOT.CMD which will switch system to LAN Distance, reboot and >> 'os2drv':\pcmlogs\temp\testbad'
  538. 'echo     run the ITLLD.CMD testcase.  Then UPDATE the results diskette.    >> 'os2drv':\pcmlogs\temp\testbad'
  539. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  540. signal S01.SYSINFO.RPT
  541.  
  542. S01.ITLLD.R02.FAIL:
  543. 'echo PCM LAN Server_______ITLLD.R02__________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  544. 'echo ITLLD.R02 --  logfile shows fail.  This test is required and can be   >> 'os2drv':\pcmlogs\temp\testbad'
  545. 'echo     run separately.  Check the logfile in \R02LOGS to determine the   >> 'os2drv':\pcmlogs\temp\testbad'
  546. 'echo     cause, and then from the CLIENT #2 system run the command         >> 'os2drv':\pcmlogs\temp\testbad'
  547. 'echo     LANRBOOT.CMD which will switch system to LAN Distance, reboot and >> 'os2drv':\pcmlogs\temp\testbad'
  548. 'echo     run the ITLLD.CMD testcase.  Then UPDATE the results diskette.    >> 'os2drv':\pcmlogs\temp\testbad'
  549. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  550.  
  551. /*-----------------*/
  552. S01.SYSINFO.RPT:
  553. if stream(os2drv':\pcmlogs\temp\S01LOGS\SYSINFO.RPT'  ,'c','query size') = '' then signal SYSINFO.RPT.MISSING
  554.  
  555. 'grep "IT01S01" 'os2drv':\pcmlogs\temp\S01LOGS\SYSINFO.RPT > nul'
  556. if rc = 0 then signal SYSINFO.RPT.FAIL
  557.  
  558. 'echo PCM LAN Server_______SYSINFO.RPT________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  559. signal SYSFILE.SETUP
  560.  
  561. SYSINFO.RPT.MISSING:
  562. 'echo PCM LAN Server_______SYSINFO.RPT________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  563. 'echo SYSINFO.RPT - output file missing.  This test is required and can be  >> 'os2drv':\pcmlogs\temp\testbad'
  564. 'echo     run separately.  From the SERVER system, follow the directions    >> 'os2drv':\pcmlogs\temp\testbad'
  565. 'echo     to run the manual testcase ITLSV11 to generate the output file.   >> 'os2drv':\pcmlogs\temp\testbad'
  566. 'echo     Then UPDATE the results diskette.                                 >> 'os2drv':\pcmlogs\temp\testbad'
  567. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  568. signal SYSFILE.SETUP
  569.  
  570. SYSINFO.RPT.FAIL:
  571. 'echo PCM LAN Server_______SYSINFO.RPT________FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  572. 'echo SYSINFO.RPT - output incorrect.     This test is required and can be  >> 'os2drv':\pcmlogs\temp\testbad'
  573. 'echo     run separately.  From the SERVER system, follow the directions    >> 'os2drv':\pcmlogs\temp\testbad'
  574. 'echo     to run the manual testcase ITLSV11 to generate the output file.   >> 'os2drv':\pcmlogs\temp\testbad'
  575. 'echo     Then UPDATE the results diskette.                                 >> 'os2drv':\pcmlogs\temp\testbad'
  576. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  577.  
  578. SYSFILE.SETUP:
  579. Call SysFileTree os2drv':\pcmlogs\temp\s01logs\*.inv', 'sysview', 'FO'
  580.  
  581. do i = 1 to sysview.0
  582.  
  583.    'grep "IT01D01" 'os2drv':\pcmlogs\temp\S01LOGS\'right(sysview.i,12)' > nul'
  584.    if rc = 1 then do
  585.       d01inv = right(sysview.i,12)
  586.       d01hst = left(d01inv,8) || .hst
  587.       iterate
  588.       end
  589.  
  590.    'grep "IT01S01" 'os2drv':\pcmlogs\temp\S01LOGS\'right(sysview.i,12)' > nul'
  591.    if rc = 1 then do
  592.       s01inv = right(sysview.i,12)
  593.       s01hst = left(s01inv,8) || .hst
  594.       iterate
  595.       end
  596.  
  597.    'grep "IT01R01" 'os2drv':\pcmlogs\temp\S01LOGS\'right(sysview.i,12)' > nul'
  598.    if rc = 1 then do
  599.       r01inv = right(sysview.i,12)
  600.       r01hst = left(r01inv,8) || .hst
  601.       iterate
  602.       end
  603.  
  604.    'grep "IT01R02" 'os2drv':\pcmlogs\temp\S01LOGS\'right(sysview.i,12)' > nul'
  605.    if rc = 1 then do
  606.       r02inv = right(sysview.i,12)
  607.       r02hst = left(r02inv,8) || .hst
  608.       iterate
  609.       end
  610. end
  611.  
  612. /*-----*/
  613. D01.HST:
  614. if stream(os2drv':\pcmlogs\temp\S01LOGS\'d01hst  ,'c','query size') = '' then signal D01.HST.MISSING
  615.  
  616. 'echo PCM LAN Server_______IT01D01.HST________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  617. signal D01.INV
  618.  
  619. D01.HST.MISSING:
  620. 'echo PCM LAN Server_______IT01D01.HST________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  621. 'echo IT01D01.HST - output file missing.  This test is required and uses    >> 'os2drv':\pcmlogs\temp\testbad'
  622. 'echo     the group setup from test ITLSV00 to schedule data gathering.     >> 'os2drv':\pcmlogs\temp\testbad'
  623. 'echo     From the SERVER system (after running ITLSV00) follow the         >> 'os2drv':\pcmlogs\temp\testbad'
  624. 'echo     directions to run manual testcase ITLSV07 to generate output file >> 'os2drv':\pcmlogs\temp\testbad'
  625. 'echo     Then UPDATE the results diskette.                                 >> 'os2drv':\pcmlogs\temp\testbad'
  626. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  627.  
  628. /*-----*/
  629. D01.INV:
  630. if stream(os2drv':\pcmlogs\temp\S01LOGS\'d01inv  ,'c','query size') = '' then signal D01.INV.MISSING
  631.  
  632. 'echo PCM LAN Server_______IT01D01.INV________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  633. signal S01.HST
  634.  
  635. D01.INV.MISSING:
  636. 'echo PCM LAN Server_______IT01D01.INV________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  637. 'echo IT01D01.INV - output file missing.  This test is required and uses    >> 'os2drv':\pcmlogs\temp\testbad'
  638. 'echo     the group setup from test ITLSV00 to schedule data gathering.     >> 'os2drv':\pcmlogs\temp\testbad'
  639. 'echo     From the SERVER system (after running ITLSV00) follow the         >> 'os2drv':\pcmlogs\temp\testbad'
  640. 'echo     directions to run manual testcase ITLSV08 to generate output file >> 'os2drv':\pcmlogs\temp\testbad'
  641. 'echo     Then UPDATE the results diskette.                                 >> 'os2drv':\pcmlogs\temp\testbad'
  642. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  643.  
  644. /*-----*/
  645. S01.HST:
  646. if stream(os2drv':\pcmlogs\temp\S01LOGS\'s01hst  ,'c','query size') = '' then signal S01.HST.MISSING
  647.  
  648. 'echo PCM LAN Server_______IT01S01.HST________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  649. signal S01.INV
  650.  
  651. S01.HST.MISSING:
  652. 'echo PCM LAN Server_______IT01S01.HST________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  653. 'echo IT01S01.HST - output file missing.  This test is required and uses    >> 'os2drv':\pcmlogs\temp\testbad'
  654. 'echo     the group setup from test ITLSV00 to schedule data gathering.     >> 'os2drv':\pcmlogs\temp\testbad'
  655. 'echo     From the SERVER system (after running ITLSV00) follow the         >> 'os2drv':\pcmlogs\temp\testbad'
  656. 'echo     directions to run manual testcase ITLSV07 to generate output file >> 'os2drv':\pcmlogs\temp\testbad'
  657. 'echo     Then UPDATE the results diskette.                                 >> 'os2drv':\pcmlogs\temp\testbad'
  658. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  659.  
  660. /*-----*/
  661. S01.INV:
  662. if stream(os2drv':\pcmlogs\temp\S01LOGS\'s01inv  ,'c','query size') = '' then signal S01.INV.MISSING
  663.  
  664. 'echo PCM LAN Server_______IT01S01.INV________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  665. signal R01.INV
  666.  
  667. S01.INV.MISSING:
  668. 'echo PCM LAN Server_______IT01S01.INV________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  669. 'echo IT01S01.INV - output file missing.  This test is required and uses    >> 'os2drv':\pcmlogs\temp\testbad'
  670. 'echo     the group setup from test ITLSV00 to schedule data gathering.     >> 'os2drv':\pcmlogs\temp\testbad'
  671. 'echo     From the SERVER system (after running ITLSV00) follow the         >> 'os2drv':\pcmlogs\temp\testbad'
  672. 'echo     directions to run manual testcase ITLSV08 to generate output file >> 'os2drv':\pcmlogs\temp\testbad'
  673. 'echo     Then UPDATE the results diskette.                                 >> 'os2drv':\pcmlogs\temp\testbad'
  674. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  675.  
  676.  
  677. /*-----*/
  678. R01.INV:
  679. if stream(os2drv':\pcmlogs\temp\S01LOGS\'r01inv  ,'c','query size') = '' then signal R01.INV.MISSING
  680.  
  681. 'echo PCM LAN Server_______IT01R01.INV________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  682. signal R02.HST
  683.  
  684. R01.INV.MISSING:
  685. 'echo PCM LAN Server_______IT01R01.INV________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  686. 'echo IT01R01.INV - output file missing.  This test is required and uses    >> 'os2drv':\pcmlogs\temp\testbad'
  687. 'echo     the group setup from test ITLSV00 to schedule data gathering.     >> 'os2drv':\pcmlogs\temp\testbad'
  688. 'echo     From the SERVER system (after running ITLSV00) follow the         >> 'os2drv':\pcmlogs\temp\testbad'
  689. 'echo     directions to run manual testcase ITLSV08 to generate output file >> 'os2drv':\pcmlogs\temp\testbad'
  690. 'echo     Then UPDATE the results diskette.                                 >> 'os2drv':\pcmlogs\temp\testbad'
  691. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  692.  
  693. /*-----*/
  694. R02.HST:
  695. if stream(os2drv':\pcmlogs\temp\S01LOGS\'r02hst  ,'c','query size') = '' then signal R02.HST.MISSING
  696.  
  697. 'echo PCM LAN Server_______IT01R02.HST________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  698. signal R02.INV
  699.  
  700. R02.HST.MISSING:
  701. 'echo PCM LAN Server_______IT01R02.HST________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  702. 'echo IT01R02.HST - output file missing.  This test is required and uses    >> 'os2drv':\pcmlogs\temp\testbad'
  703. 'echo     the group setup from test ITLSV00 to schedule data gathering.     >> 'os2drv':\pcmlogs\temp\testbad'
  704. 'echo     From the SERVER system (after running ITLSV00) follow the         >> 'os2drv':\pcmlogs\temp\testbad'
  705. 'echo     directions to run manual testcase ITLSV07 to generate output file >> 'os2drv':\pcmlogs\temp\testbad'
  706. 'echo     Then UPDATE the results diskette.                                 >> 'os2drv':\pcmlogs\temp\testbad'
  707. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  708.  
  709. /*-----*/
  710. R02.INV:
  711. if stream(os2drv':\pcmlogs\temp\S01LOGS\'r02inv  ,'c','query size') = '' then signal R02.INV.MISSING
  712.  
  713. 'echo PCM LAN Server_______IT01R02.INV________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  714. signal D01.ITLPSF00
  715.  
  716. R02.INV.MISSING:
  717. 'echo PCM LAN Server_______IT01R02.INV________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  718. 'echo IT01R02.INV - output file missing.  This test is required and uses    >> 'os2drv':\pcmlogs\temp\testbad'
  719. 'echo     the group setup from test ITLSV00 to schedule data gathering.     >> 'os2drv':\pcmlogs\temp\testbad'
  720. 'echo     From the SERVER system (after running ITLSV00) follow the         >> 'os2drv':\pcmlogs\temp\testbad'
  721. 'echo     directions to run manual testcase ITLSV08 to generate output file >> 'os2drv':\pcmlogs\temp\testbad'
  722. 'echo     Then UPDATE the results diskette.                                 >> 'os2drv':\pcmlogs\temp\testbad'
  723. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  724.  
  725. /*---------*/
  726. D01.ITLPSF00:
  727. if stream(os2drv':\pcmlogs\temp\s01logs\ITLPSF00.TXT'  ,'c','query size') = '' then signal ITLPSF00.INCOMPLETE
  728.  
  729. 'grep x 'os2drv':\pcmlogs\temp\s01logs\ITLPSF00.txt > nul'
  730. if rc < 5 then signal ITLPSF00.INCOMPLETE
  731.  
  732. 'grep "│    │x" 'os2drv':\PCMLOGS\TEMP\S01LOGS\ITLPSF00.TXT > nul'
  733. if rc = 1 then signal ITLPSF00CMT
  734. 'grep "│    │ x" 'os2drv':\PCMLOGS\TEMP\S01LOGS\ITLPSF00.TXT > nul'
  735. if rc = 1 then signal ITLPSF00CMT
  736. 'grep "│    │  x" 'os2drv':\PCMLOGS\TEMP\S01LOGS\ITLPSF00.TXT > nul'
  737. if rc = 1 then signal ITLPSF00CMT
  738. 'grep "│    │   x" 'os2drv':\PCMLOGS\TEMP\S01LOGS\ITLPSF00.TXT > nul'
  739. if rc = 1 then signal ITLPSF00CMT
  740.  
  741. 'grep "┤    │x" 'os2drv':\PCMLOGS\TEMP\S01LOGS\ITLPSF00.TXT > nul'
  742. if rc = 1 then signal ITLPSF00CMT
  743. 'grep "┤    │ x" 'os2drv':\PCMLOGS\TEMP\S01LOGS\ITLPSF00.TXT > nul'
  744. if rc = 1 then signal ITLPSF00CMT
  745. 'grep "┤    │  x" 'os2drv':\PCMLOGS\TEMP\S01LOGS\ITLPSF00.TXT > nul'
  746. if rc = 1 then signal ITLPSF00CMT
  747. 'grep "┤    │   x" 'os2drv':\PCMLOGS\TEMP\S01LOGS\ITLPSF00.TXT > nul'
  748. if rc = 1 then signal ITLPSF00CMT
  749.  
  750. 'echo PCM LAN Server_______ITLPSF00.S01_______PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  751. signal SYSMON.SETUP
  752.  
  753. ITLPSF00.INCOMPLETE:
  754. 'echo PCM LAN Server_______ITLPSF00.S01_______FAIL >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  755. 'echo ITLPSF00.TXT file has not been updated.  Complete the ITLPSF00 testcase >> 'os2drv':\pcmlogs\temp\testbad'
  756. 'echo     and update \ITLUTIL\ITLPSF00.TXT, then UPDATE the results diskette >> 'os2drv':\pcmlogs\temp\testbad'
  757. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  758. signal SYSMON.SETUP
  759.  
  760. ITLPSF00CMT:
  761. 'echo PCM LAN Server_______ITLPSF00.S01_______COMMENTS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  762. 'echo ITLPSF00.TXT shows problems occurred.  Remember to update the PCMHDW >> 'os2drv':\pcmlogs\temp\testbad'
  763. 'echo     system information PANEL-4 Comments area with details. >> 'os2drv':\pcmlogs\temp\testbad'
  764. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  765.  
  766.  
  767. SYSMON.SETUP:
  768. Call SysFileTree os2drv':\pcmlogs\temp\s01logs\*.dbf', 'sysmons', 'FO'
  769. monfle = '';
  770. do i = 1 to sysmons.0
  771.  
  772.    'grep "IT01D01" 'os2drv':\pcmlogs\temp\S01LOGS\'right(sysmons.i,12)' > nul'
  773.    if rc > 0 then do
  774.       monfle = right(sysmons.i,12)
  775.       leave
  776.       end
  777.  
  778.    'grep "IT01R01" 'os2drv':\pcmlogs\temp\S01LOGS\'right(sysmons.i,12)' > nul'
  779.    if rc > 0 then do
  780.       monfle = right(sysmons.i,12)
  781.       leave
  782.       end
  783.  
  784.    'grep "IT01R02" 'os2drv':\pcmlogs\temp\S01LOGS\'right(sysmons.i,12)' > nul'
  785.    if rc > 0 then do
  786.       monfle = right(sysmons.i,12)
  787.       leave
  788.       end
  789. end
  790.  
  791. if monfle = '' then signal SYSMONITOR.MISSING
  792.  
  793. 'grep "MONITOR_VALUE" 'os2drv':\pcmlogs\temp\S01LOGS\'monfle' > nul'
  794. if rc > 0 then signal SYSMONITOR.PASS
  795.  
  796. SYSMONITOR.MISSING:
  797. 'echo PCM LAN Server_______ITLSV06.S01________MISSING >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  798. 'echo ITLSV06.S01 - output file from Monitor Remote System Resources is     >> 'os2drv':\pcmlogs\temp\testbad'
  799. 'echo     missing.  From the SERVER system (after running ITLSV00) follow   >> 'os2drv':\pcmlogs\temp\testbad'
  800. 'echo     the directions to run manual testcase ITLSV06 to generate the     >> 'os2drv':\pcmlogs\temp\testbad'
  801. 'echo     output file.  Then UPDATE the results diskette.                   >> 'os2drv':\pcmlogs\temp\testbad'
  802. 'echo ********************************************************************* >> 'os2drv':\pcmlogs\temp\testbad'
  803. signal CLEANUP
  804.  
  805. SYSMONITOR.PASS:
  806. 'echo PCM LAN Server_______ITLSV06.S01________PASS >> 'os2drv':\pcmlogs\temp\pcmscore.txt'
  807.  
  808.  
  809. CLEANUP:
  810.  
  811. if stream(os2drv':\pcmlogs\temp\pcmscore.txt'  ,'c','query size') \= '' then do
  812.    'copy 'os2drv':\pcmlogs\temp\pcmscore.txt A:\ > nul'
  813.    'copy 'os2drv':\pcmlogs\temp\pcmscore.txt 'os2drv':\PCMLOGS > nul'
  814.    end
  815.  
  816.  
  817. if stream(os2drv':\pcmlogs\temp\testbad'  ,'c','query size') \= '' then do
  818.    'copy 'os2drv':\pcmlogs\temp\testbad A:\ > nul'
  819.    end
  820.  
  821. 'zap 'os2drv':\PCMLOGS\TEMP > nul'
  822. exit
  823.  
  824. INFO_PLEASE:
  825. say '╔═══════════════════════════════════════════════════════════════╗'
  826. say '║ ASVRRSLT.CMD - Analyzes testkit results diskette and logfiles ║'
  827. say '║                for PASS-FAIL-MISSING and updates PCMSCORE.TXT ║'
  828. say '║                                                               ║'
  829. say '║ Parameters: NONE                                              ║'
  830. say '║                                                               ║'
  831. say '║ REQUIRES DISKETTE IN DRIVE A: PREPARED WITH PSVRRSLT.CMD      ║'
  832. say '║                                                               ║'
  833. say '║ Called by PCMRSLTS.EXE after running PSVRRSLT.CMD             ║'
  834. say '╚═══════════════════════════════════════════════════════════════╝'
  835. exit
  836.