home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pcm45tkt.zip / bootdrv / os2 / psvrrslt.cmd < prev   
OS/2 REXX Batch file  |  1999-02-23  |  4KB  |  93 lines
  1. /*-------------------------------------------------------*/
  2. /* PSVRRSLT.CMD - Copies LAN Testing logfiles to Results */
  3. /*                Diskette for analysis of pass-fail     */
  4. /* Parameters: NONE                                      */
  5. /* called by PCMRSLTS.EXE for results processing.        */
  6. /*-------------------------------------------------------*/
  7. '@echo off'
  8.  
  9. arg parm.1 comments
  10.  
  11. 'cls'
  12. say ''
  13.  
  14. if left(parm.1,1) = '?' then signal INFO_PLEASE
  15.  
  16. grepchk = '-y'
  17. rcx = value('grepopt',grepchk,'OS2ENVIRONMENT');
  18.  
  19. os2drv = value('PCM_BOOTDRV',,'OS2ENVIRONMENT');
  20.  
  21. if pos(os2drv,'CDEFGHIJKLMNOPQRSTUVWXYZ') = 0 then do
  22.    say '***************************************************************'
  23.    say '* OS2 environment variable PCM_BOOTDRV not set.  Run PCMSETUP *'
  24.    say '* to update config.sys, then shutdown & reboot to continue.   *'
  25.    say '***************************************************************'
  26.    exit
  27. end
  28.  
  29. if stream('A:\D01LOGS'  ,'c','query size') = '' then 'md A:\D01LOGS'
  30. if stream('A:\S01LOGS'  ,'c','query size') = '' then 'md A:\S01LOGS'
  31.  
  32. if stream(OS2DRV':\D01LOGS' ,'c','query size') \= '' then do
  33.    'copy 'OS2DRV':\D01LOGS\ITLLS56.S01   A:\D01LOGS >nul'
  34.    'copy 'OS2DRV':\D01LOGS\ITLLS56.R01   A:\D01LOGS >nul'
  35.    'copy 'OS2DRV':\D01LOGS\ITLLS56.R02   A:\D01LOGS >nul'
  36.    'copy 'OS2DRV':\D01LOGS\ITLMSG.D01    A:\D01LOGS >nul'
  37.    'copy 'OS2DRV':\D01LOGS\ITLMSG.R01    A:\D01LOGS >nul'
  38.    'copy 'OS2DRV':\D01LOGS\ITLFTP02.R02  A:\D01LOGS >nul'
  39.    'copy 'OS2DRV':\D01LOGS\ITLTCP01.D01  A:\D01LOGS >nul'
  40.  
  41.    'copy 'OS2DRV':\ITLUTIL\ITLDUMP.TXT   A:\D01LOGS >nul'
  42.    'copy 'OS2DRV':\ITLUTIL\ITLPSNS.TXT   A:\D01LOGS >nul'
  43.    /*-----------------------------------------------*/
  44.    /* Warp Server V4 - SystemView/TME10 alert log.  */
  45.    /*-----------------------------------------------*/
  46.    'copy 'OS2DRV':\SYSVIEW2\BIN\ALERTS.LOG  A:\D01LOGS >nul'
  47.    'grep "RAID" 'OS2DRV':\SYSVIEW2\BIN\ALERTS.LOG  >A:\D01LOGS\ITLRAID.D01'
  48.    /*-----------------------------------------------*/
  49.    /* Warp Server e-business - Netfinity alert log. */
  50.    /*-----------------------------------------------*/
  51.    'copy 'OS2DRV':\NETFIN\ALERTS.LOG  A:\D01LOGS >nul'
  52.    'grep "RAID" 'OS2DRV':\NETFIN\ALERTS.LOG  >A:\D01LOGS\ITLRAID.D01'
  53. end
  54.  
  55. if stream(OS2DRV':\S01LOGS' ,'c','query size') \= '' then do
  56.    'copy 'OS2DRV':\S01LOGS\ITLLS57.D01   A:\S01LOGS >nul'
  57.    'copy 'OS2DRV':\S01LOGS\ITLLS57.R01   A:\S01LOGS >nul'
  58.    'copy 'OS2DRV':\S01LOGS\ITLLS57.R02   A:\S01LOGS >nul'
  59.    'copy 'OS2DRV':\S01LOGS\ITLFTP01.R01  A:\S01LOGS >nul'
  60.    'copy 'OS2DRV':\S01LOGS\ITLALERT.S01  A:\S01LOGS >nul'
  61.    'copy 'OS2DRV':\S01LOGS\ITLLD.R02     A:\S01LOGS >nul'
  62.    'copy 'OS2DRV':\ITLUTIL\ITLPSF00.TXT  A:\S01LOGS >nul'
  63.    /*-------------------------------------------------*/
  64.    /* Warp Server V4 - SystemView/TME10 output files. */
  65.    /*-------------------------------------------------*/
  66.    'copy 'OS2DRV':\SYSVIEW2\BIN\SYSINFO.RPT  A:\S01LOGS >nul'
  67.    'copy 'OS2DRV':\SYSVIEW2\BIN\IT01*.HST    A:\S01LOGS >nul'
  68.    'copy 'OS2DRV':\SYSVIEW2\BIN\IT01*.INV    A:\S01LOGS >nul'
  69.    'copy 'OS2DRV':\IT01*.DBF                 A:\S01LOGS >nul'
  70.    /*-------------------------------------------------*/
  71.    /* Warp Server e-business - Netfinity output files.*/
  72.    /*-------------------------------------------------*/
  73.    'copy 'OS2DRV':\NETFIN\SYSINFO.RPT  A:\S01LOGS >nul'
  74.    'copy 'OS2DRV':\NETFIN\IT01*.HST    A:\S01LOGS >nul'
  75.    'copy 'OS2DRV':\NETFIN\IT01*.INV    A:\S01LOGS >nul'
  76.    'copy 'OS2DRV':\NETFIN\IT01*.DBF    A:\S01LOGS >nul'
  77. end
  78.  
  79. exit
  80.  
  81. INFO_PLEASE:
  82. say '╔════════════════════════════════════════════════════════╗'
  83. say '║ PSVRRSLT.CMD - Copies LAN testcase logfiles to Results ║'
  84. say '║                Diskette for analysis of pass-fail.     ║'
  85. say '║                                                        ║'
  86. say '║ Parameters: NONE                                       ║'
  87. say '║                                                        ║'
  88. say '║ REQUIRES DISKETTE IN DRIVE A: Write-Protect OFF        ║'
  89. say '║                                                        ║'
  90. say '║ Called by PCMRSLTS.EXE                                 ║'
  91. say '╚════════════════════════════════════════════════════════╝'
  92. exit
  93.