/*
 Check HTTPD's disks
*/
 
say date('S') time() userid() 'Starting CHKD....'
d4 = substr(userid(),1,5)
If d4 = 'HTTPR' Then Signal endit
 
'PIPE CMS Q SEARCH |' ,
   'spec /=DISK./ 1 word 3 n /=/ n word 1 n word 5 n |' ,
   'varload'
 
chk.C = '-ACADEM:EWEBADM.CODECOMP'
chk.D = '-ACADEM:EWEBADM.RXSOCKET'
chk.E = 'TC3592'
chk.E = 'TCM592'
chk.E = 'ALQ592'
chk.M = 'LSTSRV'
chk.N = 'LISTS'
chk.W = '-ACADEM:HTTPD.COMMON'
chk.X = '-ACADEM:HTTPD2.'
chk.X = '-ACADEM:'userid()'.'
chklist = 'CDEMNWX'
 
If d4 = 'HTTPF' Then do
  chk.C = '-FDRWEB:EWEBFDR.CODE'
  chk.D = '-FDRWEB:EWEBFDR.RXSOCKET'
  chklist = 'CDE'
end /* httpf */
 
If disk.c = 'EWCODE' Then do
  say date() time() 'Running without SFS'
  exit
end
 
do i = 1 to length(chklist)
  chr = substr(chklist,i,1)
  If chk.chr = disk.chr Then say date() time() disk.chr 'ok'
    Else do
      say '***' date() time() disk.chr userid()
      Call AlertAll chr disk.chr
      'QUERY ACCESSED'
      'EXECMAP'
      'NUCXMAP'
      'STORMAP'
      'CP IPL CMS PARM AUTOCR'
    end
end
 
EndIt:
say date('S') time() userid() 'Ending CHKD' time('E')
exit
 
 
AlertAll:
  Procedure
  Parse arg txt
  list = 'URMM HARRY URLW'
  do i = 1 to words(list)
    user = word(list,i)
    'EXEC TELL' user 'CHKD error.  Missing' txt
  end
return