# check to see that Subsystem Dump is enabled
# and alert if any dumps have occurred.
listfile @.sdump.telesup;format=disc >sdctmp1
/bin/awk ''' &
  /^TDUMP[0-9]+\*/ {active=1} &
  /^SDUMP[0-9]+ /  {new=1} &
  END              {if(!(active)) print &
    "WARNING! Subsystem Dump is disabled! Notify System Manager."; &
                    if(new) print &
    "WARNING! A Subsystem Dump has occurred! Notify System Manager.";} &
''' <sdctmp1
purge sdctmp1,temp