# IBM_PROLOG_BEGIN_TAG # This is an automatically generated prolog. # # bos720 src/bos/usr/lib/kdb/as_600.perlmod 1.1 # # Licensed Materials - Property of IBM # # Restricted Materials of IBM # # COPYRIGHT International Business Machines Corp. 2001 # All Rights Reserved # # US Government Users Restricted Rights - Use, duplication or # disclosure restricted by GSA ADP Schedule Contract with IBM Corp. # # IBM_PROLOG_END_TAG package Master; if($led != 600){ return(-1); } if ($led == 600) { infoprint(0, "This crash is some kind of RAS error\n"); $retstring = "\nThis crash is some kind of RAS error\n"; return ($retstring); } 1;