summ

#!/usr/bin/perl -w

#
# AIX I/O error summarizer v0.6.52 (08/30/2013)
# Send suggestions, complaints, requests for updates to:
# Brian Hart (hartb@us.ibm.com)
#
# - 04/28/2006 - bwh - initial cut from err_decode
# - 02/17/2007 - bwh - LVM_ errors
# - 04/09/2007 - bwh - first FCS_ERRs
# - 04/12/2007 - bwh - enhanced some dyntrk related FSCSI_ERRs
# - 07/18/2007 - bwh - FCS_ERR 00000021
# - 07/23/2007 - bwh - FCS_ERR 0000005D & 0000005E
# - 07/31/2007 - bwh - Show abending program for CORE_DUMP errors, FSCSI_ERR 4E
# - 08/01/2007 - bwh - FCS_ERR 00000026
# - 08/15/2007 - bwh - [SC_]TAPE_ERRx, J2/JFS errors, SDDPCM_PATH_RECOVER, etc.
# - 08/16/2007 - bwh - Fixed FS errors, added FCS_ERR 0x30, 0x51, 0x53, etc
# - 08/17/2007 - bwh - LOST_EVENTS, DISK_ERR, refactor some routines
# - 08/20/2007 - bwh - Fix: FSCSI 0x15, 0x2E, 0xAA, 0xAC, 0xD9; CORE_DUMP;
#                      FCS 0x21; JFS_general errno; NS&LS reject codes;
#                      [SC_]DISK_ERR.
#                      Add: FSCSI 0x4F; FCS 0x5, 0x6, 0x7; PCI_xxx_ERR
# - 08/21/2007 - bwh - Fix: FSCSI 0x01, 0x03, 0x29; tidy up layout, improve
#                      comments
# - 09/14/2007 - bwh - Typos
# - 11/09/2007 - bwh - Typos, disk driver status 0x84
# - 01/03/2008 - bwh - FCS_ERR 0x127 
# - 02/29/2008 - bwh - DMA_ERR; Happy Leap Year!
# - 05/23/2008 - bwh - FCS_ERR 0x0c, 0x48
# - 05/29/2008 - bwh - Decode RSP_CODEs from FCP_RSP's RSP_INFO
# - 08/12/2008 - bwh - Add "-s" flag to force printing of Sequence Number
# - 08/18/2008 - bwh - Retrieve LBAs from LVM_* errors
# - 09/09/2008 - bwh - Add new SCSI-3 driver adapter stats
# - 09/25/2008 - bwh - Add specific EEH error codes for PCI_RECOVERABLE_ERR
# - 09/29/2008 - bwh - FCP_ERR for some Emulex errors; DMA_ERR changes for 6.1;
#		       EEH_ERR
# - 10/21/2008 - bwh - FSCSI/FCP_ERR 0x41, 0x42, 0xb7; Add OPMSG & VFC_ERR
# - 10/23/2008 - bwh - FCA_ERR 0x06, 0x21
# - 10/27/2008 - bwh - FSCSI_ERR 0x25
# - 11/13/2008 - bwh - Emulex FCA_ERR 0x24, 0x27, and 0xD303
#                      Emulex FCP_ERR 0xA5, 0xAC
# - 11/14/2008 - bwh - Emulex FCA_ERR 0xD300, 0xD301, 0xD302
#                      Emulex FCP_ERR 0x29, 0xA30
# - 11/15/2008 - bwh - Emulex FCA_ERR 0xC0, 0xC1, 0xC2, 0xC3, 0xC4, 0xC5, 0xA5,
#                      0x11, correct 0x24, 0xD300, 0xD301, 0xD302, 0xD303
#		       Emulex FCP_ERR 0xB5; add ELS 'ACCEPT'
# - 11/25/2008 - bwh - Emulex FCP_ERR 0x23, 0x2A, 0x6B, 0x6C, 0x6E, 0x6F, 0xAD,
#                      0xAF, 0xB8
# - 11/30/2008 - bwh - FSCSI_ERR 0xB4, 0xBD, 0xC7
# - 12/17/2008 - bwh - First QLogic FCP_ERRs, 0x0B, 0x4A, 0x4E
# - 03/04/2009 - bwh - Emulex FCP_ERR 0x73, 0x327; Emulex FCA_ERR 0x41
# - 03/26/2009 - bwh - Treat SC_DISK_PCM_ERR label same as SC_DISK_ERR
# - 04/21/2009 - bwh - First QLogic v4/NPIV FCP_ERRs; QLogic FCP 0x1EA;
#                      Emulex FCP 0x07, 0x70
# - 04/22/2009 - bwh - First QLogic FCA_ERRs; QLogic FCA_ERR 0x2E;
#                      QLogic FCP_ERR 0x16, 0x2C, 0xA1
# - 04/23/2009 - bwh - QLogic FCP_ERR 0x23, 0x26, 0x29;
#                      QLogic FCA_ERR 0x26, 0x41; Emulex FCP_ERR 0x302
#                      VFC_HOST errors
# - 04/24/2009 - bwh - QLogic FCP_ERR 0xb1
# - 04/30/2009 - bwh - Tweak VFC_HOST errors
# - 05/04/2009 - bwh - Emulex FCP_ERR 0xD3
# - 05/07/2009 - bwh - Many new QLogic FCP_ERRs; QLogic FCA_ERR 0x30
# - 05/20/2009 - bwh - Emulex FCP_ERR 0x26; QLogic FCA_ERR 0x4A;
#                      Quiet complaint about substitution in regex
# - 06/09/2009 - bwh - QLogic FCA_ERRs 0x1E, 0x34
# - 06/12/2009 - bwh - FSCSI_ERR 0x73
# - 06/16/2009 - bwh - Emulex FCP_ERR 0x4A, 0xC0; FCS_ERR 0x1B, 0x24 & be
#                      explicit about Unknown error numbers;
#                      Emulex FCA_ERR 0x52, 0x38
# - 06/30/2009 - bwh - QLogic FCA_ERR 0x16, 0x39, 0x3A
# - 07/01/2009 - bwh - QLogic FCA_ERR 0x23, 0x105; QLogic FCP_ERR 0x40
# - 08/10/2009 - bwh - Fix Emulex FCA_ERR 0xD301
# - 08/11/2009 - bwh - QLogic FCP_ERR 0x17, 0x48
# - 08/14/2009 - bwh - QLogic FCA_ERR 0x29;
#                      QLogic FCP_ERR 0x6C, 0xA5, 0xAC, 0xAD, 0xAF, 0xB8
# - 08/20/2009 - bwh - Emulex FCP_ERR 0x4F, 0xAA, 0xB01; QLogic FCP_ERR 0xAA
# - 08/25/2009 - bwh - QLogic FCA_ERR 0x10, 0x82
# - 09/16/2009 - bwh - Emulex FCA_ERR 0x4C
# - 09/17/2009 - bwh - Emulex FCP_ERR 0x09; QLogic FCA_ERR 0x03
# - 11/11/2009 - bwh - Emulex FCA_ERR 0x17, 0x30, 0x51, 0x53;
#                      QLogic FCA_ERR 0x6A; QLogic FCP_ERR 0xA2, 0xC3
# - 01/06/2010 - bwh - Emulex FCP_ERR 0xD9
# - 02/05/2010 - bwh - Emulex FSCSI_ERR 0x7; Add Location to VFC_ERR;
#                      Generalize SDDPCM_* to just SDDPCM and collect path_id;
#                      Generalize VFC_HOST and VSCSI_HOST to Vxx_HOST;
#                      Add old & new serial for disk serial mismatch;
#                      Initial SAS_ERR processing
# - 02/19/2010 - bwh - Handle all 0xAF errors same; include WWPN
# - 02/22/2010 - bwh - Complete ELS listing; QLogic FCP_ERR 0x03, 0xC8
# - 04/26/2010 - bwh - Added Emulex error version 0x11
# - 06/01/2010 - bwh - Emulex FCP_ERR 0x5B2
# - 06/11/2010 - bwh - Emulex FCP_ERR 0xB9
# - 06/15/2010 - bwh - Fix problem w/ strip leading zeros in VFC_HOST
# - 11/15/2010 - rew - QLogic FCP_ERR 0x1, 0x4, 0x1ED; QLogic FCA_ERR 0x27, 0x75
# - 12/10/2010 - rew - Show error numbers for protocol & adapter errors
# - 12/16/2010 - bwh - Include CDB op and failure reason for SC_DISK_ERR7
#                      path fail.  FSCSI_ERR 0xB1 include retry count.
#                      Emulex FCP_ERR 0x3E, 0xBFF
# - 12/17/2010 - bwh - Emulex FCA_ERR 0x14, 0x29, 0x4B;
#                      Emulex FCS_ERR 0x3A;
#                      Emulex FCP_ERR 0x4E, 0xA2, 0x509, 0x525;
#                      QLogic FCA_ERR 0x4B, 0x75;
#                      Initial support for SC_DISK_SDDAPPCM_ER;
#                      Fixed Emulex FCA_ERR 0x21 for V11 errlog;
#                      Improved argument handling; print errnums w/ '-e';
#                      Improved VFC_ERR parsing;
#                      Fixed Emulex FSCSI_ERR 0xD9
# - 12/20/2010 - bwh - Emulex FCS_ERR 0xC4; QLogic FCA_ERR 0x0E;
#                      QLogic FCP_ERR 0xE5; Minor cleanups;
#                      Fix QLogic FCP_ERR 0xA2, Emulex FCS_ERR 0x41;
#                      Initial support for DMPCHK_NOSPACE, DUMP_STATS, 
#                      FIRMWARE_EVENT, INIT_RAPID, LVM_GS_RLEAVE, SRC_RSTRT,
#                      SRC_TRYX
# - 12/21/2010 - bwh - Improve FIRMWARE_EVENT, Emulex FCP_ERR 0xBFF,
#                      Emulex FCA_ERR 0x27, QLogic FCA_ERR 0x1E;
#                      Initial support for DMPCHK_LDMPFSFULL, DMPCHK_TOOSMALL,
#                      DSI_*, SISSAS_*, SH_LOST_IO;
#                      Sort per-error decoders; Gather only last SENSE DATA;
#                      SIS SAS IOASC 01080000, 04050000, 066B9100, 066B9200;
#                      Generalize handling of SRC_* errors;
#                      QLogic FCP_ERR 0x07, 0x6A
# - 01/25/2011 - bwh - QLogic FCA_ERR 0x49
# - 03/19/2012 - bwh - Initial Emulex SLI-4 driver errors
# - 03/21/2012 - bwh - Emulex SLI-4 FCA errors 0x158, 0x178, 0x300, 0xA20,
#                      0xEAB.  Initial Emulex SLI-4 FCP error handling.
# - 03/22/2012 - bwh - Emulex SLI-4 FCA error 0x140, 0x62A, 0xDB8, 0xC9C
# - 04/16/2012 - bwh - Emulex SLI-4 FCA error 0x12C, 0x809
# - 04/27/2012 - bwh - Emulex SLI-4 FCA error 0x168, 0x23C, 0x403, 0x405,
#                      0x470, 0x60C, 0x80F, 0x827, 0xA30, 0xA50, 0xA80, 0xC1C,
#                      0xE22, 0xE23, 0xE27, 0xE2A, 0xE36, 0xE42, 0xE48, 0xE54,
#                      0xEAF; Initial support for LDMP_COMPLETE
# - 05/04/2012 - bwh - Initial support for LDMP_PASSTIME;
#                      Emulex SLI-4 FCA error 0xC28, 0xE62, 0xE66
# - 05/07/2012 - bwh - Emulex SLI-4 FCP error 0x48, 0x61, 0xA5, 0xAC, 0xAF,
#                      0x326, 0x327, 0x328, 0x403;
#                      Emulex SLI-4 FCA error 0x104, 0x624, 0x67B, 0x80E,
#                      0x833, 0x958;
#                      Update Emulex SLI-4 FCA error 0x80F, 0xA20;
#                      Emulex SLI-3 FCP error 0x403
# - 06/15/2012 - bwh - Pulled in Marcus' changes for Emulex SLI-4 FCA error
#                      0xE45 and 0xE4F;
#                      Emulex SLI-4 FCA error 0x621, 0x928, 0xA60, 0xC26,
#                      0xDB0, 0xE2D;
#                      Emulex SLI-4 FCP error 0x7, 0x30, 0xB8, 0xA3, 0x402
# - 06/21/2012 - bwh - Emulex SLI-4 FCA error 0xA48, 0xE63
#                      Emulex SLI-4 FCP error 0x2A, 0xA1
#                      Emulex SLI-3 FCP error 0xBD
# - 06/27/2012 - bwh - Emulex SLI-4 FCA error 0x170, 0xC48
#                      Emulex SLI-4 FCP error 0x6A
# - 07/05/2012 - bwh - Emulex SLI-4 FCA error 0xC4C
#                      Emulex SLI-4 FCP error 0x36
# - 07/09/2012 - bwh - Emulex SLI-4 FCA error 0x812
#                      Emulex SLI-4 FCP error 0x71
# - 07/10/2012 - bwh - Emulex SLI-4 FCA error 0x530, 0x68A, 0x81B, 0x88D,
#                      0xBA8, 0xE57
# - 07/10/2012 - bwh - Emulex SLI-4 FCA error 0x530, 0x68A, 0x81B, 0x88D,
# - 07/25/2012 - bwh - Emulex SLI-4 FCA error 0xDC8, 0xE6C
#                      Emulex SLI-4 FCP error 0x2E, 0x302
# - 08/14/2012 - bwh - Emulex SLI-4 FCA error 0x410, 0x460, 0x550
#                      Emulex SLI-4 FCP error 0xAC (improved)
#                      Emulex SLI-3 FCA error 0x26
#                      Emulex SLI-3 FCP error 0xC8
#                      Initial support for LDMP_DUMPERR
# - 08/15/2012 - bwh - QLogic FCA error 0x2B
#                      Emulex SLI-4 FCP error 0xC8, 0x330
#                      Initial support for KERNEL_ABEND
# - 08/21/2012 - bwh - Emulex SLI-4 FCA error 0x402, 0x812 (improved),
#                      0x81B (improved), 0x84B, 0xC1B, 0xCD0
# - 08/22/2012 - mg  - Emulex SLI-4 FCA error 0x6C8 (link recovery),
#                      0xE4F (improved)
# - 08/23/2012 - mg  - Emulex SLI-4 FCA error 0xC04, 0x68A (improved)
# - 08/24/2012 - bwh - Emulex SLI-4 FCA error 0x160, 0x6C8 (mark INFO)
# - 08/27/2012 - bwh - Emulex SLI-4 FCA error 0x4B0, 0xAB4, 0xABC, 0xCDA, 0xEB0
#                      Emulex SLI-4 FCP error 0xB
# - 08/29/2012 - bwh - Emulex SLI-4 FCP error 0x4A
#                      Emulex SLI-3 FCP error 0x3
# - 09/04/2012 - bwh - Emulex SLI-4 FCA error 0x250, 0xB08, 0xDC4, 0xE64, 0xEB4
#                      Emulex SLI-4 FCP error 0x1, 0x28, 0x2c, 0x49,
#                      0x70, 0x277
# - 09/07/2012 - bwh - Emulex SLI-4 FCA error 0xDA0, 0xE66 (improve), 0xE79,
#                      0xEB4 (improve)
# - 09/13/2012 - bwh - Emulex SLI-4 FCA error 0x612
# - 09/14/2012 - bwh - Emulex SLI-4 FCP error 0x323
# - 09/19/2012 - bwh - Emulex SLI-4 FCA error 0x4A1, 0xE25, 0xEAB (improve),
#                      0xEC4, 0xECC, 0xED0
# - 09/20/2012 - bwh - Emulex SLI-4 FCA error 0xEC6, 0xECE
# - 09/24/2012 - bwh - Emulex SLI-4 FCP error 0x1B8
#                      Emulex SLI-4 FCA error 0x402 (defunct), 0x405 (defunct)
# - 10/02/2012 - bwh - Initial support for Emulex SLI-4 FCP Version 1 layout
# - 10/04/2012 - bwh - Emulex SLI-4 FCA error 0xAB8, 0xEC2
#                      Emulex SLI-4 FCP V1 errors 0x402 (improve),
#                      0x403 (improve)
# - 10/09/2012 - bwh - Emulex SLI-4 FCP errors - fix version retrieval
# - 10/10/2012 -  mg - Emulex SLI-4 FCP error 0xAA (improve)
# - 10/10/2012 - bwh - Emulex SLI-4 FCP V0 error 0x402 (improve),
#                      0x403 (improve both)
#                      Emulex SLI-3 FCP error 0x402, 0x403 (improve)
# - 10/10/2012 -  lm - Emulex SLI-3 FCA error 0x7, 0x19, 0x1F, 0x2E, 0x121,
#                      0xD04; QLogic FCA error 0x114; Emulex SLI-3 FCP error
#                      0x4, 0x1F, 0x71, 0xD3 (improve), 0xE2, 0x326;
#                      QLogic FCP error 0x2E, 0xD3; FSCSI_ERR 0xD3
# - 10/15/2012 - bwh - Emulex SLI-4 FCA error 0xE14, 0xE15
#                      Emulex SLI-4 FCP v0 error 0xA30
#                      Emulex SLI-4 FCP v1 error 0x26, 0x4F, 0x277 (fix),
#                      0x279, 0xA30
# - 10/16/2012 - bwh - Emulex SLI-4 FCP v1 error 0x7A
# - 10/25/2012 - bwh - Emulex SLI-4 FCP v1 error 0xA2
# - 10/30/2012 - bwh - Emulex SLI-4 FCA error 0xCD6, 0xEC8, and fix ordering
# - 11/14/2012 - bwh - Initial VFC_CLIENT_FAILURE decoding
# - 11/19/2012 - bwh - Emulex SLI-3 FCP error 0x25, 0x226;
#                      QLogic FCP error 0x6D, 0x6F, 0x402, 0x403;
#                      QLogic FCA error 0x3E, 0x72;
#                      Improved handling of some SC_DISK_PCM_ERRx
# - 11/20/2012 - bwh - Emulex SLI-4 FCA error 0xA00, 0xEAE, 0xECA
# - 12/12/2012 - bwh - Emulex SLI-4 FCP v1 error 0x3, 0x4, 0x228, remove FIXME
#                      from 0x1
# - 12/17/2012 - bwh - Emulex SLI-4 FCA error 0x690
# - 01/16/2013 - bwh - Emulex SLI-4 FCA error 0x6C6
# - 02/18/2013 - bwh - QLogic FCP error 0x47; QLogic FCA_ERR 0x107
# - 02/27/2013 - bwh - Emulex SLI-4 FCP error 0x150 - 0x159
# - 02/28/2013 - bwh - Emulex SLI-4 FCP renumber 0x150 - 0x15B
# - 03/13/2013 - bwh - Emulex SLI-3 FCP error 0x150 - 0x15B
# - 03/25/2013 - bwh - QLogic FCP error 0x150 - 0x15B
# - 04/03/2013 - bwh - Emulex SLI-4 FCP error 0x25
# - 08/08/2013 - bwh - QLogic FCP error 0x30, 0x71, 0xA3
# - 08/14/2013 -  mg - QLogic FCA error 0x50, 0x94, 0x306
#                      update to QLogic FCP error 0xA3
# - 08/19/2013 - gsd - Add support for SC_DISK_PPRC_ERRx
# - 08/30/2013 - bwh - Emulex SLI-3 FCA error 0xBB
#                      Emulex SLI-3 FCP error 0x31, 0x32, 0x33, 0x38, 0x48, 0x61
#                      Emulex SLI-4 FCP error 0x22
#                      Emulex SLI-4 FCA error 0xAD0

use strict; 


#
# We use several lookup tables for common translations (errno names,
# SCSI opcodes, etc).  To keep the code clean we'll declare them all
# global and initialize them up front.
#

my %aix_d_map_list_rc_lt;
my %aix_errno_lt;
my %aix_rdac_stat_lt;
my %aix_s2_adap_stat_lt;
my %aix_s3_adap_stat_lt;
my %aix_scdisk_stat_lt;
my %scsi_sbcop_lt;
my %scsi_sscop_lt;
my %scsi_status_lt;
my %scsi_skey_lt;
my %scsi_ascq_lt;
my %fc_payload_op_lt;
my %fc_nsrjt_lt;
my %fc_lsrjt_rc_lt;
my %fc_lsrjt_re_lt;
my %fcp_rsp_code_lt;
my %plat_eeh_err_lt;
&initialize_lookup_tables();

#
# Check for commandline options:
#
# -s  Include sequence numbers in each line's header.  Useful for
#     re-sorting errors from an error log recovered with 'errlog_recover'.
#
# -e  Include FC driver error numbers for each error.
#
#
# Setting STANDARD_HELP_VERSION causes processing to stop immediately
# if --help is specified.  (Without that "summ --help" would print the
# help message then wait for data on stdin.)
#

use Getopt::Std;

$Getopt::Std::STANDARD_HELP_VERSION = 1;

my %opts;

my $SEQNO = 0;
my $ERRNUMS = 0;

getopts('se', \%opts);

$SEQNO   = 1 if defined $opts{'s'};
$ERRNUMS = 1 if defined $opts{'e'};


#
# Read each error into an array then decode it.
#
# We assume that each error entry starts with the "LABEL:" line and ends
# with a line of dashes ("---").  The last entry may (will) not be followed
# by a line of dashes so we may need one extra decode call at EOF.
#
#

my @error;
my $need_decode = 0;

while (<>)
{

	if (/^LABEL:/)
	{
		undef @error;
		$need_decode = 1;
	}
	elsif (/^----------------/)
	{
		# First is often dashes--not ready to decode then.
		if ($need_decode)
		{
			&decode(@error);
		}
		$need_decode = 0;
	}

	$error[$#error + 1] = $_;
}

if ($need_decode)
{
	&decode(@error);
}

exit 0;



#######################################################################
##
#  Main dispatcher and header routines
#
#  The dispatcher routine prints a header that's common for all
#  errors then calls out a specific decoder to further summarize
#  the error.
#
#  Then individual decoders are given a copy of the complete error
#  and are expected to _print_ (to stdout) a one-line string that
#  summarizes the error.  The printed strings need not start with
#  any spaces and should not include a newline.
##
#######################################################################

#
# decode - The main dispatcher routine.  Print the header for the
# error then call out an appropriate decoder based on the error's
# LABEL:
#
sub decode
{
	my @error = @_;

	#
	# Print a line "header" that's common to any error.  print_header
	# will not emit a newline--that will be the responsibility of the
	# individual decoders below.
	#

	&print_header(@error);

	my $label = "";
	for (my $i = 0; $i <= $#error; $i++)
	{
		my @f;
		if ($error[$i] =~ /^LABEL:/)
		{
			@f = split /\s+/, $error[$i];
			$label = $f[1];
			last;
		}
	}

	if    ($label =~ /^CORE_DUMP/)
	{
		&CORE_DUMP(@error)
	}
	elsif ($label =~ /^DISK_ERR/)
	{
		&DISK_ERR(@error)
	}
	elsif ($label =~ /^DMA_ERR/)
	{
		&DMA_ERR(@error)
	}
	elsif ($label =~ /^DMPCHK_LDMPFSFULL/)
	{
		&DMPCHK_LDMPFSFULL(@error)
	}
	elsif ($label =~ /^DMPCHK_NOSPACE/)
	{
		&DMPCHK_NOSPACE(@error)
	}
	elsif ($label =~ /^DMPCHK_TOOSMALL/)
	{
		&DMPCHK_TOOSMALL(@error)
	}
	elsif ($label =~ /^DUMP_STATS/)
	{
		&DUMP_STATS(@error)
	}
	elsif ($label =~ /^DSI_/)
	{
		&DSI_general(@error)
	}
	elsif ($label =~ /^EEH_ERR/)
	{
		&EEH_ERR(@error)
	}
	elsif ($label =~ /^FCA_ERR/)
	{
		&FCA_ERR(@error);
	}
	elsif ($label =~ /^FCP_ARRAY_ERR/)
	{
		&SC_DISK_ERR(@error);
	}
	elsif ($label =~ /^FCP_ERR/)
	{
		&FCP_ERR(@error);
	}
	elsif ($label =~ /^FCS_ERR/)
	{
		&FCS_ERR(@error);
	}
	elsif ($label =~ /^FIRMWARE_EVENT/)
	{
		&FIRMWARE_EVENT(@error);
	}
	elsif ($label =~ /^FSCSI_ERR/)
	{
		&FSCSI_ERR(@error);
	}
	elsif ($label =~ /^INIT_RAPID/)
	{
		&INIT_RAPID(@error)
	}
	elsif ($label =~ /^ISCSISW_ERR/)
	{
		&ISCSISW_ERR(@error)
	}
	elsif ($label =~ /^JFS_/)
	{
		&JFS_general(@error)
	}
	elsif ($label =~ /^J2_/)
	{
		&JFS_general(@error)
	}
	elsif ($label =~ /^KERNEL_ABEND/)
	{
		&KERNEL_ABEND(@error)
	}
	elsif ($label =~ /^LDMP_COMPLETE/)
	{
		&LDMP_COMPLETE(@error)
	}
	elsif ($label =~ /^LDMP_DUMPERR/)
	{
		&LDMP_DUMPERR(@error)
	}
	elsif ($label =~ /^LDMP_PASSTIME/)
	{
		&LDMP_PASSTIME(@error)
	}
	elsif ($label =~ /^LOST_EVENTS/)
	{
		&LOST_EVENTS(@error)
	}
	elsif ($label =~ /^LVM_GS_RLEAVE/)
	{
		&LVM_GS_RLEAVE(@error)
	}
	elsif ($label =~ /^LVM_/)
	{
		&LVM_ERR(@error)
	}
	elsif ($label =~ /^OPMSG/)
	{
		&OPMSG(@error)
	}
	elsif ($label =~ /^PCI_/)
	{
		&PCI_err(@error)
	}
	elsif ($label =~ /^SAS_ERR/)
	{
		&SAS_ERR(@error);
	}
	elsif ($label =~ /^SC_DISK_ERR/)
	{
		&SC_DISK_ERR(@error);
	}
	elsif ($label =~ /^SC_DISK_PCM_ERR/)
	{
		&SC_DISK_ERR(@error);
	}
	elsif ($label =~ /^SC_DISK_PPRC_ERR/)
	{
		&SC_DISK_PPRC_ERR(@error);
	}
	elsif ($label =~ /^SC_DISK_SDDAPPCM_ER/)
	{
		&SC_DISK_ERR(@error);
	}
	elsif ($label =~ /^SC_TAPE_ERR/)
	{
		&SC_TAPE_ERR(@error);
	}
	elsif ($label =~ /^SDDPCM/)
	{
		&SDDPCM(@error);
	}
	elsif ($label =~ /^SH_LOST_IO/)
	{
		&SH_LOST_IO(@error);
	}
	elsif ($label =~ /^SISSAS_/)
	{
		&SAS_ERR_SIS_proto(@error);
	}
	elsif ($label =~ /^SRC_/)
	{
		&SRC_general(@error);
	}
	elsif ($label =~ /^TAPE_ERR/)
	{
		&TAPE_ERR(@error);
	}
	elsif ($label =~ /^VFC_CLIENT_FAILURE/)
	{
		&VFC_CLIENT_FAILURE(@error);
	}
	elsif ($label =~ /^VFC_ERR/)
	{
		&VFC_ERR(@error);
	}
	elsif ($label =~ /^VFC_HOST/)
	{
		&Vxx_HOST(@error);
	}
	elsif ($label =~ /^VSCSI_HOST/)
	{
		&Vxx_HOST(@error);
	}
	else
	{
		# Unknown error label--no decoder.
	}

	printf("\n");

	return;
}


#
# print_header - Prints a common header for any error, including things
# like the date/time, label, resource, and type.  E.g.:
#
# An error with the following header would produce the header shown below.
#
# ---------------------------------------------------------------------------
# LABEL:          FSCSI_ERR6
# IDENTIFIER:     B8FBD189
# 
# Date/Time:       Mon Aug  4 08:24:20 2008
# Sequence Number: 76736
# Machine Id:      00C252B04C00
# Node Id:         tsm00p20
# Class:           S
# Type:            TEMP
# Resource Name:   fscsi3
# ---------------------------------------------------------------------------
#
# Aug  4 08:24:20 fscsi3     T FSCSI_ERR6
#
# -or, if the '-s' flag was used
#
# 76736 Aug  4 08:24:20 fscsi3     T FSCSI_ERR6
#
sub print_header
{
	my @error = @_;

	my $label	= "";
	my $tstamp	= "";
	my $seqno	= 0;
	my $etype	= "";
	my $res		= "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		my @f = split /\s+/, $error[$i];
	
		if ($error[$i] =~ /^LABEL:/)
		{
			$label = defined($f[1]) ? $f[1] : "";
		}
		elsif ($error[$i] =~ /^Date\/Time:/)
		{
			# TODO: Not all dates are in US format
			$tstamp = sprintf("%s %2d %s", $f[2], $f[3], $f[4]);
		}
		elsif ($error[$i] =~ /^Sequence Number:/)
		{
			$seqno = defined($f[2]) ? $f[2] : 0;
		}
		elsif ($error[$i] =~ /^Type:/)
		{
			$etype = defined($f[1]) ? substr($f[1], 0, 1) : "?";
		}
		elsif ($error[$i] =~ /^Resource Name:/)
		{
			$res = defined($f[2]) ? $f[2] : "(none)";
		}
	}

	if ($SEQNO eq 1)
	{
		printf("%d %s %-10s %1s %-19s ", $seqno, $tstamp, $res, $etype,
			$label);
	}
	else
	{
		printf("%s %-10s %1s %-19s ", $tstamp, $res, $etype, $label);
	}

	return;
}



#######################################################################
##
#  Subroutines for common operations
#
#  Includes service routines that are be used by several of the
#  individual decoders.  Things like routines to break apart sense
#  data or do simple lookups, etc. 
#
#  These routines do not produce any output.
#
#  Note that some of the retrieval routines may traverse the entire
#  error to find the requested information.  Callers may wish to cache
#  the retrieved information locally, rather than using multiple calls
#  to the retrieval function.
#
##
#######################################################################

#############################################
##
#  Routines for manipulating hex SENSE DATA
##
#############################################

#
# get_sense_data - Retrieve and return the SENSE DATA section from an
# error entry.  Assumes the sense data follows the LAST line starting with
# "SENSE DATA" or "ADDITIONAL HEX DATA" and spans to the end of the error
# entry.
#
# The return is a hexstring (ASCII-encoded hex digits, e.g. "DEADBEEF")
# with no whitespace.
#
# TODO: Note that the returned string may contain non-hex characters if,
# say, other text follows the actual SENSE DATA.  Perhaps we should stop
# gathering at the first non-hex digit, or at the first line that contains
# a non-hex digit.
#
sub get_sense_data
{
	my @error = @_;
	my $sense = "";

	#
	# Search backwards from the bottom of the error so that we
	# find only the last batch of sense data.
	#
	for (my $i = $#error; $i >= 0; $i--)
	{
		if (($error[$i] =~ /^SENSE DATA/) ||
                    ($error[$i] =~ /^ADDITIONAL HEX DATA/))
		{
			# Found the start of the SENSE DATA; grab it all
			# then get out.

			for (my $j = $i + 1; $j <= $#error; $j++)
			{
				$sense = $sense . $error[$j];
			}
			last;
		}
	}

	$sense =~ s/\s+//g;

	return $sense;
}

#
# nibbles - Return a hexstring representing one or more nibbles 
# retrieved from the input hexstring.
#
# &nibbles("DEADBEEF", 3, 2) returns "DB"
#
sub nibbles
{
	my ($hexstr, $offset, $len) = @_;
	return substr($hexstr, $offset, $len);
}

#
# bytes - See nibbles.  Return one or more bytes (8-bit) from a hexstring.
#
# &bytes("DEADBEEF", 1, 2) returns "ADBE"
#
sub bytes
{
	my ($hexstr, $offset, $len) = @_;
	return substr($hexstr, $offset * 2, $len * 2);
}

#
# shorts - See nibbles.  Return one or more shorts (16-bit) from a hexstring.
#
# &shorts("DEADBEEF", 1, 1) returns "BEEF"
#
sub shorts
{
	my ($hexstr, $offset, $len) = @_;
	return substr($hexstr, $offset * 4, $len * 4);
}

#
# words - See nibbles.  Return one or more words (32-bit) from a hexstring.
#
sub words
{
	my ($hexstr, $offset, $len) = @_;
	return substr($hexstr, $offset * 8, $len * 8);
}

#
# longs - See nibbles.  Return one or more longs (64-bit) from a hexstring.
#
sub longs
{
	my ($hexstr, $offset, $len) = @_;
	return substr($hexstr, $offset * 16, $len * 16);
}

#
# mask - Given a hexstring and a mask (also expressed as a hexstring), 
# apply the mask to the hexstring.  If the mask is shorter than the 
# source hexstring, the mask is effectively zero-padded to length.
#
# Returns a hexstring the same length as the input string.
#
# &mask("AAAAAAAA", "0707") returns "00000202"
#
sub mask
{
	my ($val, $mask) = @_;

	my $len = length($val);

	return int2hex(hex($val) & hex($mask), $len);
}

#
# int2hex - Given an int value and a length, converts the int value
# to a hexstring of _at least_ the requested length, padding with zeros
# as necessary.
#
# Returns the hexstring representing the value.
#
# &int2hex(255, 4) returns "00FF"
# 
sub int2hex
{
	my ($num, $digits) = @_;

        my $hex = "";
	my $len = 0;

        while (($num > 0) || ($len < $digits))
        {
                $hex = substr("0123456789ABCDEF", ($num % 16), 1) . $hex;
		$len++;
                $num = int($num / 16);
        }

        return $hex
}

#
# hex2int - Convert a hexstring to an int.
#
# Returns the value represented by the hexstring
#
# &hex2int("FF") returns 255
#
sub hex2int
{
	# TODO: Assumes upper case!

	my ($hex) = @_;
	my $i;
	my $value = 0;

	for ($i = 0; $i < length($hex); $i++)
	{
		my $digval = index("0123456789ABCDEF", substr($hex, $i, 1));
		$value = $value * 16 + $digval;
	}

	return $value;
}

#
# hex2ipaddr - Convert a hexstring to a IP-style address, expressed as
# ASCII-encoded decimal values (one-per-byte) seperated by dots (".").
#
# Returns a string containing the IP-style address.
#
# &hex2ipaddr("C0A80001") returns "192.168.0.1"
#
sub hex2ipaddr
{

	my ($hex) = @_;

	my $i;
	my $num_octets = length($hex)/2;
	my $addr = "";


	for ($i = 0; $i < $num_octets; $i++)
	{

		if ($i != 0)
		{
			$addr .= ".";
		}

		$addr .= hex(&bytes($hex, $i, 2));

	}
	
	return $addr;
}

#
# byte_reverse - Reverse the byte order of a hexstring.
#
# Returns a hexstring with bytes reversed.
#
# &byte_reverse("DEADBEEF") returns "EFBEADDE"
#
sub byte_reverse
{
	my ($hexstr) = @_;

	my $reversed = "";
	my $bytenum = (length($hexstr) / 2) - 1;

	while ($bytenum >= 0)
	{
		$reversed .= &bytes($hexstr, $bytenum--, 1);
	}

	return $reversed;
}

#############################################
##
#  Routines for simple lookups
##
#############################################

#
# lookup - Perform a hash table lookup.
#
# Given a prefix-string, a key, and a reference to a hash, retrieves
# the key's value in the hash.
#
# Returns:
#
# - Hash value if the key is present in the hash
#     &lookup("Opcode ", "2A", \%sbc_opcodes) returns "WRITE(10)"
#
# - String consisting of the prefix-string and the key value if the
#   key is not present in the hash (note no whitespace is inserted
#   between the prefix and the key):
#     &lookup("Opcode ", "FF", \%sbc_opcodes) returns "Opcode FF"
#
sub lookup
{
	my ($decoration, $key, $hashref) = @_;

	return exists $hashref->{$key} ? $hashref->{$key} : "$decoration$key";
}


#############################################
##
#  Routines to retrieve specific fields from
#  the error
##
#############################################

#
# get_description - Retrieve and return the text in the Description field.
#
sub get_description
{
	my @error = @_;
	my $description = "";

	#
	# Search error for the description

	#
	for (my $i = 0; $i < $#error; $i++)
	{
		if ($error[$i] =~ /^Description/)
		{
			# Found the start of the Description. grab it 
			# and get out.
		        $description = $error[$i+1];
			last;
		}
	}
	$description =~ s/\s+$//;
	return $description;
}

#
# get_group_name - Retrieve and return the group name from PPRC errors
#
sub get_group_name
{
	my @error = @_;
	my $group_name = "";

	#
	# Search backwards from the bottom of the error so that we
	# find only the last batch of sense data.
	#
	for (my $i = $#error; $i >= 0; $i--)
	{
		if ($error[$i] =~ /^GROUP NAME/)
		{
			# Found the start of the Group Name; grab it
			# then get out.
		        $group_name = $error[$i+1];
			last;
		}
	}
	$group_name =~ s/\s+//g;

	return $group_name;
}



#
# get_label - Get the label field from the error.
#
# Returns a string containing the label or "(unknown)" if the label
# could not be found.
#
# If the error contains:
#
# LABEL: SC_DISK_ERR4
#
# &get_label() returns "SC_DISK_ERR4"
# 
sub get_label
{
	my @error = @_;
	my $label = "(unknown)";

	for (my $i = 0; $i < $#error; $i++)
	{
		if ($error[$i] =~ /^LABEL:/)
		{
			my @f = split /\s+/, $error[$i];
			$label = $f[1];
			last;
		}
	}

	return $label;
}

#
# get_path_id - Get the path ID from the error.  The path ID is assumed
# to be alone on a line following a line starting with "PATH ID".
#
# Returns a scalar containing the path ID or undefined if the path ID
# could not be found.
#
# If the error contains:
#
# PATH ID
#        7
#
# &get_path_id() returns 7
#
sub get_path_id
{
	my @error = @_;
	my $path;

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^PATH ID/)
		{
			$path = $error[$i + 1];
			$path =~ s/^\s+//;
			chomp($path);
			last;
		}
	}

	return $path;
}


#######################################################################
##
#  Decoders
#
#  Decoders for the full error entries and for self-contained data
#  items that may appear in various log entries (e.g. SCSI Autosense
#  data).
#
#
#
##
#######################################################################

#############################################
##
#  Decoders for self-contained objects
#
#  These generally build a message string
#  to be returned to the caller
##
#############################################

#
# sbc_command - Decode a SCSI Block-device CDB (as described by the SPC/SBC
# standards available from www.t10.org)
#
# Returns a string describing the command, which is provided as a hexstring.
# The returned string will include the command opcode and may include other
# fields from the command as well, such as LBA and transfer length.  E.g.
#
# &sbc_command("2A00031F280000000804") returns "WRITE(10)      (031F2800,0008)"
#
sub sbc_command
{
	my ($command) = @_;
	my $op = substr($command, 0, 2);
	my $msg = "";

	if (defined($scsi_sbcop_lt{$op}))
	{
		$msg = sprintf("%-16s", $scsi_sbcop_lt{$op});

		if ($op eq '28' || $op eq '2A' || $op eq '2E')
		{
			my $lba = &bytes($command, 2, 4);
			my $len = &bytes($command, 7, 2);

			$msg = sprintf("%s (%s,%s)", $msg, $lba, $len);
		}
	}
	else
	{
		$msg = sprintf("(unknown SCSI block command %s)", $op);
	}

	return $msg;
}

#
# ssc_command - Decode a SCSI Stream-device CDB (as described in the SPC/SSC
# standard available from www.t10.org)
#
# Returns a string describing the command, which is provided as a hexstring.
# The returned string will include the command opcode and may include other
# fields from the command as well, such as LBA and transfer length.  E.g.
#
# &ssc_command("080004000000") returns "READ(6)        (040000)"
#
sub ssc_command
{
	my ($command) = @_;
	my $op = substr($command, 0, 2);
	my $msg = "";

	if (defined($scsi_sscop_lt{$op}))
	{
		$msg = sprintf("%-16s", $scsi_sscop_lt{$op});

		if ($op eq '08' || $op eq '0A')
		{
			my $len = &bytes($command, 2, 3);

			$msg = sprintf("%s (%s)", $msg, $len);
		}
	}
	else
	{
		$msg = sprintf("(unknown SCSI stream command %s)", $op);
	}

	return $msg;
}

#
# FCP_RSP_IU - Decode an FCP_RSP IU (as described in the FCP standard
# available from www.t11.org)
#
# Returns a string describing interesting bits relating to the FCP and
# SCSI status returned in the FCP_RSP IU (which is provided as a hexstring).
# Tries to include the SCSI Autosense data if it was provided in the FCP_RSP.
#
sub FCP_RSP_IU
{
	my ($rsp) = @_;

	my $flags   = &bytes($rsp, 10, 1);
	my $rlvalid = &mask($flags, "01");
	my $slvalid = &mask($flags, "02");
	my $over    = &mask($flags, "04");
	my $under   = &mask($flags, "08");

	my $sstat = &bytes($rsp, 11, 1);
	my $resid = &bytes($rsp, 12, 4);

	my $rsp_len = 0;
	my $rsp_info = "";

	my $sns_len = 0;
	my $sns_info = "";

	# Retrieve FCP_RSP_LEN and FCP_RSP_INFO if FCP_RSP_LEN_VALID set
	if ($rlvalid ne '00')
	{
		$rsp_len  = &hex2int(&bytes($rsp, 20, 4));
		$rsp_info = &bytes($rsp, 24, $rsp_len);
	}

	# Retrieve FCP_SNS_LEN and FCP_SNS_INFO if FCP_SNS_LEN_VALID set
	if ($slvalid ne '00')
	{
		$sns_len = &hex2int(&bytes($rsp, 16, 4));
		$sns_info = &bytes($rsp, 24 + $rsp_len, $sns_len);
	}

	#
	# FCP Section
	#
	# Include names of interesting FCP flags and the FCP_RSP_INFO
	# field if included
	#
	my $msg = "FCP:";
	if ($rlvalid ne '00' || $over ne '00' || $under ne '00')
	{
		if ($over ne '00' || $under ne '00')
		{
			if ($over ne '00')
			{
				$msg .= " OVER";
			}
			if ($under ne '00')
			{
				$msg .= " UNDER";
			}
			$msg .= " ($resid)";
		}
		if ($rlvalid ne '00')
		{
			#
			# Decode the RSP_CODE in the RSP_INFO if possible.
			# But if something's wrong (reserved field is non-zero
			# or insufficient length of RSP_INFO, then just go
			# with the whole RSP_INFO
			#
			if ($rsp_info =~ /^000000..0*$/)
			{
				my $rsp_code = &bytes($rsp_info, 3, 1);
				$msg .= " " . &lookup("RSP_CODE ", $rsp_code, 
					\%fcp_rsp_code_lt);
			}
			else
			{
				$msg .= " RSP_INFO $rsp_info";
			}
		}
	}
	else
	{
		$msg .= " -no flags-";
	}

	#
	# SCSI section
	#
	$msg .= "; SCSI: ";
	$msg .= &lookup("status ", $sstat, \%scsi_status_lt);

	#
	# SCSI Autosense data if included.  The included Autosense
	# may be too small to include the Sense Key or ASC/Q.  Or,
	# the full FCP_RSP IU may not have been provided, which would
	# have the effect of truncating the Autosense.  Note either of
	# those situations.
	#
	if ($slvalid ne '00')
	{
		if (length($sns_info) >= 13)
		{
			# Got enough SENSE to fully decode
			$msg .= "; " . &scsi_sense($sns_info);
		}
		elsif (length($sns_info) >= 3)
		{
			# Only enough to get the Key
			my $sk = &bytes($sns_info, 2, 1);
			$msg =  "; " . &lookup("Key ", $sk, \%scsi_skey_lt);
		}
	
		if ($sns_len < 13 && (length($sns_info) < $sns_len))
		{
			$msg .= " (short, truncated)";
		}
		elsif ($sns_len < 13)
		{
			$msg .= " (short)";
		}
		elsif (length($sns_info) < $sns_len)
		{
			$msg .= " (truncated)";
		}
	}

	return $msg;
}

#
# scsi_sense - Decode SCSI Autosense data (as described in the SPC standard
# available from www.t10.org)
#
# Returns a string describing the Autosense data (which is provided as a 
# hexstring).  The string will include the name of the Sense Key an the
# decoded string representing the ASC/ASCQ.
#
# &scsi_sense("F00005000000000F000000002400...") returns
#     "ILLEGAL REQUEST; INVALID FIELD IN CDB"
#
sub scsi_sense
{
	my ($sense) = @_;
	my $msg = "";

	my $cur  = &bytes($sense, 0, 1);
	my $sk   = substr(&bytes($sense, 2, 1), 1, 1);
	my $ascq = &bytes($sense, 12, 2);

	if ($cur ne '00')
	{
		$msg =  &lookup("Key ", $sk, \%scsi_skey_lt);
		$msg .= "; " . &lookup("ASC/ASCQ ", $ascq, \%scsi_ascq_lt);
	}

	return $msg
}


#############################################
##
#  Full decoders for various errors
#
#  These will make use of any of the service
#  or decode routines above and will _print_
#  the decoding string before returning to
#  the dispatcher.
##
#############################################


#---------------------------------------------------------------------------
#LABEL:          CORE_DUMP
#
#[...]
#
#Detail Data
#SIGNAL NUMBER
#           6
#USER'S PROCESS ID:
#              25538658
#FILE SYSTEM SERIAL NUMBER
#          24
#INODE NUMBER
#       12352
#PROCESSOR ID
#           4
#CORE FILE NAME
#/epeople/log/hrwtprod/cdump/core_25538658/core
#PROGRAM NAME
#oracle
#STACK EXECUTION DISABLED
#           0
#ADDITIONAL INFORMATION
#slcra 40C
#??
#ssexhd 2C0
#??
#
#Symptom Data
#REPORTABLE
#1
#INTERNAL ERROR
#0
#SYMPTOM CODE
#PCSS/SPI2 FLDS/oracle SIG/6 FLDS/slcra VALU/40c
#---------------------------------------------------------------------------
sub CORE_DUMP
{
	my @error 	= @_;
	my $prog	= "(unknown)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^PROGRAM NAME/)
		{
			$prog = $error[$i + 1];
			chomp($prog);
			last;
		}
	}
	printf("Program %s", $prog);

	return;
}


#
#---------------------------------------------------------------------------
#LABEL:          DISK_ERR4
#
#[...]
#
#Detail Data
#PATH ID
#           0
#SENSE DATA
#0A08 0000 2800 0349 AB18 0000 0800 0000 0102 0000 F000 0400 0000 070A 0000 0000
#4200 1500 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 243B 000D
#---------------------------------------------------------------------------
#
sub DISK_ERR
{
	my @error = @_;
	my $sense = &get_sense_data(@error);
	my $path  = &get_path_id(@error);

	if (defined($path))
	{
		printf("path %2s ", $path);
	}

	#
	# Extract and print the SCSI command information
	#

	my $cdb = &bytes($sense, 4, 10);
	print &sbc_command($cdb) . " ";


	#
	# Now the SS/VV/AA section
	#

	my $sv  = &bytes($sense, 16, 1);
	my $ss  = &bytes($sense, 17, 1);
	my $as  = &bytes($sense, 18, 1);
	my $r3	= &bytes($sense, 19, 1);

	if ($sv eq '01')
	{
		print &lookup("SCSI status ", $ss, \%scsi_status_lt);
	}
	elsif ($sv eq '02')
	{
		print &lookup("adap_stat=", $as, \%aix_s2_adap_stat_lt);
	}
	

	#
	# And the SCSI sense data if this was a CHECK or if a 
	# REQUEST SENSE just finished
	#
	if (($sv eq '01' && $ss eq '02') || (substr($cdb, 0, 2) eq '03'))
	{
		print " " . &scsi_sense(&bytes($sense, 20, 14));
	}

	return;
}


#---------------------------------------------------------------------------
#LABEL:          DMA_ERR
#
#[...]
#
#Detail Data
#BUS NUMBER
#FFFF FFFF 9000 00C1 
#CHANNEL UNIT ADDRESS
#0000 0000 0000 0005 
#ERROR CODE
#0000 0000 1000 0003
#---------------------------------------------------------------------------
#
# -or-
#
#---------------------------------------------------------------------------
#LABEL:          DMA_ERR
#IDENTIFIER:     02D12055
#
#[...]
#
#Detail Data
#BUS ID
#9000 0385 
#EVENT CODE
#2000 0000 
#LINK REGISTER
#0000 0000 043E EEB8 
#SOURCE LOCATION
#line: 3150 file: pci_bus.c
#PROBLEM DATA
#0000 0000 0100 0205 0000 0000
#---------------------------------------------------------------------------
sub DMA_ERR
{
	my @error 	= @_;
	my $bn		= "unknown";
	my $cu		= "unknown";
	my $ec		= "unknown";
	my $sl		= "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^BUS NUMBER/ ||
		    $error[$i] =~ /^BUS ID/)
		{
			$bn = $error[$i + 1];
			chomp($bn);
			$bn =~ s/\s+//g;
			next
		}
		if ($error[$i] =~ /^CHANNEL UNIT ADDRESS/ ||
		    $error[$i] =~ /^EVENT CODE/)
		{
			$cu = $error[$i + 1];
			chomp($cu);
			$cu =~ s/\s+//g;
			next
		}
		if ($error[$i] =~ /^ERROR CODE/ ||
		    $error[$i] =~ /^LINK REGISTER/)
		{
			$ec = $error[$i + 1];
			chomp($ec);
			$ec =~ s/\s+//g;
			next
		}
		if ($error[$i] =~ /^SOURCE LOCATION/)
		{
			$sl = $error[$i + 1];
			chomp($sl);
			$sl = "[" . $sl . "]";
			next
		}
	}
	printf("%s %s %s %s", $bn, $cu, $ec, $sl);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          DMPCHK_LDMPFSFULL
# 
# [...]
# 
# Detail Data
# percent free
#           24
# desired percent free
#           25
# FILE SYSTEM MOUNT POINT
# /var/adm/ras/livedump
# ---------------------------------------------------------------------------
sub DMPCHK_LDMPFSFULL
{
	my @error 	= @_;
	my $dev		= "(unknown)";
	my $free	= "(unknown)";
	my $desired	= "(unknown)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^FILE SYSTEM MOUNT POINT/)
		{
			$dev = $error[$i + 1];
			chomp($dev);
			$dev =~ s/\s+//g;
			next;
		}

		if ($error[$i] =~ /^percent free$/)
		{
			$free = $error[$i + 1];
			chomp($free);
			$free =~ s/\s+//g;
			next;
		}

		if ($error[$i] =~ /^desired percent free/)
		{
			$desired = $error[$i + 1];
			chomp($desired);
			$desired =~ s/\s+//g;
			next;
		}
	}

	printf("%s  Desired percent free: %s  Actual: %s",
		$dev, $desired, $free);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          DMPCHK_NOSPACE
# 
# [...]
# 
# Detail Data
# File system name
# /var/adm/ras
#     
# Current free space in kb
#       643840
# Current estimated dump size in kb
#      1391411
# ---------------------------------------------------------------------------
sub DMPCHK_NOSPACE
{
	my @error 	= @_;
	my $dev		= "(unknown)";
	my $free	= "(unknown)";
	my $est		= "(unknown)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^File system name/)
		{
			$dev = $error[$i + 1];
			chomp($dev);
			$dev =~ s/\s+//g;
			next;
		}

		if ($error[$i] =~ /^Current free space in kb/)
		{
			$free = $error[$i + 1];
			chomp($free);
			$free =~ s/\s+//g;
			next;
		}

		if ($error[$i] =~ /^Current estimated dump size in kb/)
		{
			$est = $error[$i + 1];
			chomp($est);
			$est =~ s/\s+//g;
			next;
		}
	}

	printf("%s  Estimated KB: %s, Free KB: %s", $dev, $est, $free);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          DMPCHK_TOOSMALL
# 
# [...]
# 
# Detail Data
# Largest dump device
# lg_dumplv
#     
# Largest dump device size in kb
#      2621440
# Current estimated dump size in kb
#      5871616
# ---------------------------------------------------------------------------
sub DMPCHK_TOOSMALL
{
	my @error 	= @_;
	my $dev		= "(unknown)";
	my $size	= "(unknown)";
	my $est		= "(unknown)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^Largest dump device$/)
		{
			$dev = $error[$i + 1];
			chomp($dev);
			$dev =~ s/\s+//g;
			next;
		}

		if ($error[$i] =~ /^Largest dump device size in kb/)
		{
			$size = $error[$i + 1];
			chomp($size);
			$size =~ s/\s+//g;
			next;
		}

		if ($error[$i] =~ /^Current estimated dump size in kb/)
		{
			$est = $error[$i + 1];
			chomp($est);
			$est =~ s/\s+//g;
			next;
		}
	}

	printf("%s  Estimated KB: %s, Size KB: %s", $dev, $est, $size);

	return;
}


#
# DSI error handling
#
# The various DSI errors will log any of the data items below.
# The list was generated with the following command:
#
# $ errpt -a -t | awk '/^-----/       {f=0}
#                      /Label: DSI_/  {f++; next}
#                      /Detail Data/  {f++; next}
#                      f==2           {print}' | sort -u
#
# -----------------------------------------
# CHANNEL STATUS REGISTER 15, CSR15
# DATA STORAGE INTERRUPT ADDRESS REGISTER
# DATA STORAGE INTERRUPT REASON REGISTER
# DATA STORAGE INTERRUPT STATUS REGISTER
# EXVAL
# SEGMENT REGISTER, SEGREG
# -----------------------------------------
sub DSI_general
{
	my @error 	= @_;
	my $csr15	= "";
	my $dar		= "";
	my $dsirr	= "";
	my $dsisr	= "";
	my $exval	= "";
	my $srval	= "";
	my $msg		= "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^CHANNEL STATUS REGISTER 15, CSR15/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$csr15 = "CSR15 $_";
		}

		if ($error[$i] =~ /^DATA STORAGE INTERRUPT ADDRESS REGISTER/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$dar = "DAR $_";
		}

		if ($error[$i] =~ /^DATA STORAGE INTERRUPT REASON REGISTER/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$dsirr = "DSIRR $_";
		}

		if ($error[$i] =~ /^DATA STORAGE INTERRUPT STATUS REGISTER/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$dsisr = "DSISR $_";
		}

		if ($error[$i] =~ /^EXVAL/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$exval = "EXVAL $_";
		}

		if ($error[$i] =~ /^SEGMENT REGISTER, SEGREG/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$srval = "SRVAL $_";
		}

	}

	$msg = "$dar $dsisr $srval $exval $dsirr $csr15";
	$msg =~ s/^\s+//g;
	$msg =~ s/\s+/ /g;
	printf("%s", $msg);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          DUMP_STATS
# 
# [...]
# 
# Detail Data
# DUMP DEVICE
# /dev/lg_dumplv1
# DUMP SIZE
#              537529856
# TIME
# Wed Jul  7 13:41:01 2010
# DUMP TYPE (1 = PRIMARY, 2 = SECONDARY)
#            1
# DUMP STATUS
#            0
# ERROR CODE
# 0000 0000 0000 0000 
# DUMP INTEGRITY
# Compressed dump - Run dmpfmt with -c flag on dump after uncompressing. 
# 
# FILE NAME
# 
# PROCESSOR ID
#            0
# ---------------------------------------------------------------------------
sub DUMP_STATS
{
	my @error 	= @_;
	my $dev		= "unknown";
	my $size	= "unknown";
	my $when	= "unknown";
	my $status	= "unknown";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^DUMP DEVICE/)
		{
			$dev = $error[$i + 1];
			chomp($dev);
			$dev =~ s/\s+//g;
			next;
		}

		if ($error[$i] =~ /^DUMP SIZE/)
		{
			$size = $error[$i + 1];
			chomp($size);
			$size =~ s/\s+//g;
			next;
		}

		if ($error[$i] =~ /^TIME/)
		{
			$when = $error[$i + 1];
			chomp($when);
			$when =~ s/\s+/ /g;
			next;
		}

		if ($error[$i] =~ /^DUMP STATUS/)
		{
			$status = $error[$i + 1];
			chomp($status);
			$status =~ s/\s+//g;
			next;
		}
	}

	printf("%s Status: %s Size: %s Dev: %s", $when, $status, $size, $dev);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          EEH_ERR
# IDENTIFIER:     32651A56
# 
# Resource Name:   PCIEEH          
# 
# [...]
# 
# Detail Data
# BID
# 9000 0385 
# DEVFUNC
# 0000 0000 
# RTAS TOKEN
# FFFF FFFF 
# ERROR CODE
# 1000 0006 
# PROBLEM DATA
# 0000 0000 0000 0000 0000 0000 [...]
# ---------------------------------------------------------------------------
sub EEH_ERR
{
	my @error 	= @_;
	my $msg		= "";
	my $bid		= "(unknown)";
	my $err		= "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^BID/)
		{
			$bid = $error[$i + 1];
			chomp($bid);
			$bid =~ s/\s+//g;

			$msg = "Bus ID " . $bid;
			next;
		}

		if ($error[$i] =~ /^ERROR CODE/)
		{
			$err = $error[$i + 1];
			chomp($err);
			$err =~ s/\s+//g;

			$msg .= " " . &lookup("Error ", $err,
						\%plat_eeh_err_lt);
			next;
		}
	}
	printf("%s", $msg);
}


# ---------------------------------------------------------------------------
# LABEL:          FCA_ERR6
# IDENTIFIER:     ECCE4018
# 
# [...]
# 
# Detail Data
# SENSE DATA
# 0000 0010 0000 0047 [...]
# ---------------------------------------------------------------------------
sub FCA_ERR
{
	my @error = @_;
	my $sense = &get_sense_data(@error);
	my $driver = &bytes($sense, 3, 1);

	#
	# A few drivers use this error log, with different indicators:
	#
	# 0x01 - Qlogic 2G adapter driver (qfcdd)
	# 0x03 - Qlogic 4G & 8G adapter driver (qlfcdd)
	# 0x10 - Emulex FC adapter (efcdd)
	# 0x11 - Emulex FC adapter (efcdd)
	#
	if ($driver eq '01')
	{
	}
	elsif ($driver eq '03')
	{
		&FCA_ERR_QLogic_qlfc(@error)
	}
	elsif (($driver eq '10') || ($driver eq '11'))
	{
		&FCA_ERR_Emulex_v10v11(@error)
	}
	elsif ($driver eq '20')
        {
		&FCA_ERR_emfcs_v0(@error)
        }
	else
	{
		printf("unknown driver type: " . $driver);
	}
}


sub FCA_ERR_emfcs_v0
{
	my @error   = @_;
	my $sense   = &get_sense_data(@error);
	my $version = &bytes($sense, 3, 1);
	my $errnum  = &words($sense, 1, 1);
	my $msg     = ""; 

	if    ($errnum eq 'xxxxxxxx')
	{
		$msg  = "huh?";
	}
	elsif ($errnum eq '00000104')
	{
                my $exchange = &bytes($sense, 412, 2);
		$msg  = "Abort Process abandoned while exchange ($exchange) ";
                $msg .= "still busy; exchange indicator may be leaked";
	}
	elsif ($errnum eq '0000012C')
	{
		$msg  = "Abort process initiated for XRI-less command";
	}
	elsif ($errnum eq '00000140')
	{
		$msg  = "DEFECT: No VPI found for active RPI";
	}
	elsif ($errnum eq '00000160')
	{
		$msg  = "Adapter and driver disagree about who initiated ";
                $msg .= "an aborted exchange";
	}
	elsif ($errnum eq '00000168')
	{
		$msg  = "Adapter and driver disagree about who aborted ";
                $msg .= "a request";
	}
	elsif ($errnum eq '00000158')
	{
		$msg  = "Could not find abort context for XRI Aborted";
	}
	elsif ($errnum eq '00000170')
	{
		$msg  = "DEFECT: Bad or already-ineligible exchange context ";
		$msg .= "in XRI Aborted";
	}
	elsif ($errnum eq '00000178')
	{
		$msg  = "Unexpected status in XRI Aborted completion";
	}
	elsif ($errnum eq '0000023C')
	{
                my $errno = &hex2int(&bytes($sense, 388, 4));

		$msg  = "Control N_Port logout unregister mailbox failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000250')
	{
		$msg  = "Virtual port failed to idle during clear; will reset";
	}
	elsif ($errnum eq '00000300')
	{
		$msg  = "Adapter firmware dump time out";
	}
	elsif ($errnum eq '00000402')
	{
		$msg  = "DEFUNCT: Attempt to claim spontaneous adapter dump ";
                $msg .= "failed";
	}
	elsif ($errnum eq '00000403')
	{
		$msg  = "Intended to dump adapter, but adapter not ready";
	}
	elsif ($errnum eq '00000405')
	{
		$msg  = "DEFUNCT: Spontaneous adapter dump detected; will ";
                $msg .= "collect";
	}
	elsif ($errnum eq '00000410')
	{
                my $rc = &bytes($sense, 384, 4);
		$msg  = "Collection of 'SID' data for dump failed; rc = $rc";
	}
	elsif ($errnum eq '00000410')
	{
                my $rc = &bytes($sense, 384, 4);
		$msg  = "Collection of 'SID' data for dump failed; rc = $rc";
	}
	elsif ($errnum eq '00000470')
	{
                my $krc = &bytes($sense, 388, 8);
		$msg  = "Attempt to force livedump failed (krc $krc)";
	}
	elsif ($errnum eq '000004A1')
	{
		$msg  = "INFO: Adapter not ready for dump (already dumping?)";
        }
	elsif ($errnum eq '000004B0')
	{
		$msg  = "Unable to force dump; adapter not READY";
        }
	elsif ($errnum eq '00000530')
	{
		$msg  = "Firmware update failed due to image write failure";
	}
	elsif ($errnum eq '00000550')
	{
                my $errno = &hex2int(&bytes($sense, 384, 4));

		$msg  = "Reset failed after firmware update; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000060C')
	{
		$msg  = "DEFECT: Completion with invalid type on receive CQ";
	}
	elsif ($errnum eq '00000612')
	{
		$msg  = "DEFECT: Completed mailbox does not match issued ";
                $msg .= "mailbox"
	}
	elsif ($errnum eq '00000621')
	{
		$msg  = "DEFECT: No active admin request matches request tag";
	}
	elsif ($errnum eq '00000624')
	{
		$msg  = "Protocol CQE surprisingly failed with invalid RPI";
	}
	elsif ($errnum eq '0000062A')
	{
		$msg  = "Protocol CQE surprisingly indicates XRI busy";
	}
	elsif ($errnum eq '0000067B')
	{
		$msg  = "Async ELS for inactive local context";
	}
	elsif ($errnum eq '0000068A')
	{
                my $els = &bytes($sense, 384, 4);
                my $sid = &bytes($sense, 389, 3);

		$msg  = "Unrecognized async ELS from $sid; ";
		$msg .= &lookup("ELS ", $els, \%fc_payload_op_lt);
        }
	elsif ($errnum eq '00000690')
	{
		$msg  = "Received unsolicited LOGO ELS with missing payload ";
                $msg .= "N_Port ID";
        }
	elsif ($errnum eq '000006C6')
	{
                my $async = &bytes($sense, 384, 4);

		$msg  = "Async event ($async) dropped for lack of queue elems";
	}
	elsif ($errnum eq '000006C8')
	{
		$msg  = "INFO: Adapter link up recovery";
	}
	elsif ($errnum eq '00000809')
	{
                my $cmd    = &bytes($sense, 385, 1);
                my $status = &bytes($sense, 386, 2);

		$msg  = "Mailbox command failure (cmd $cmd, status $status)";
	}
	elsif ($errnum eq '00000827')
	{
		$msg  = "Dumping adapter due to mailbox failure";
	}
	elsif ($errnum eq '00000833')
	{
                my $status = &bytes($sense, 386, 2);
		$msg  = "Mailbox failure (status $status) registering ";
                $msg .= "target port context";
	}
	elsif ($errnum eq '0000080E')
	{
                my $cmd    = &bytes($sense, 385, 1);
                my $status = &bytes($sense, 386, 2);

		$msg  = "Mailbox command failure (cmd $cmd, status $status)";
	}
	elsif ($errnum eq '0000080F')
	{
                my $cmd    = &bytes($sense, 385, 1);
                my $status = &bytes($sense, 386, 2);

		$msg  = "Mailbox command failed with unknown status ";
                $msg .= "(cmd $cmd, status $status)";
	}
	elsif ($errnum eq '00000812')
	{
                my $embed  = &mask(&bytes($sense, 388, 1), "01");

		$msg  = "Config mailbox subcommand failure ";

                if ($embed eq "01") {

                    my $opcode = &bytes($sense, 408, 1);
                    my $subsys = &bytes($sense, 409, 1);
                    my $status = &bytes($sense, 412, 1);
                    my $add_st = &bytes($sense, 413, 1);

                    $msg .= "(subsys $subsys, op $opcode, ";
                    $msg .= "status $status, add status $add_st)";

                } else {

                    my $status = &bytes($sense, 386, 2);

                    $msg .= "(cmd not embedded, wrapper status $status)";
                }
	}
	elsif ($errnum eq '0000081B')
	{
                my $embed  = &mask(&bytes($sense, 388, 1), "01");

		$msg  = "Config mailbox subcommand failure w/ unknown status ";

                if ($embed eq "01") {

                    my $opcode = &bytes($sense, 408, 1);
                    my $subsys = &bytes($sense, 409, 1);
                    my $status = &bytes($sense, 412, 1);
                    my $add_st = &bytes($sense, 413, 1);

                    $msg .= "(subsys $subsys, op $opcode, ";
                    $msg .= "status $status, add status $add_st)";

                } else {

                    my $status = &bytes($sense, 386, 2);

                    $msg .= "(cmd not embedded, wrapper status $status)";
                }
	}
	elsif ($errnum eq '0000084B')
	{
                my $embed  = &mask(&bytes($sense, 388, 1), "01");

		$msg  = "Config mailbox buffer too small for response";

                if ($embed eq "01") {

                    my $opcode = &bytes($sense, 408, 1);
                    my $subsys = &bytes($sense, 409, 1);
                    my $status = &bytes($sense, 412, 1);
                    my $add_st = &bytes($sense, 413, 1);

                    $msg .= "(subsys $subsys, op $opcode, ";
                    $msg .= "status $status, add status $add_st)";

                } else {

                    my $status = &bytes($sense, 386, 2);

                    $msg .= "(cmd not embedded, wrapper status $status)";
                }
	}
	elsif ($errnum eq '0000088D')
	{
		$msg  = "Write Object mailbox command failure";
	}
	elsif ($errnum eq '00000908')
	{
		$msg  = "Initialization of control DMA handle failed";
	}
	elsif ($errnum eq '00000910')
	{
		$msg  = "Initialization of I/O DMA handle failed";
	}
	elsif ($errnum eq '00000918')
	{
                my $size = &bytes($sense, 388, 8);

		$msg  = "INFO: I/O DMA handle smaller than ODM requested; ";
                $msg .= "size = $size"
	}
	elsif ($errnum eq '00000928')
	{
                my $size = &bytes($sense, 388, 4);

		$msg  = "INFO: max_xfer_size smaller than ODM requested; ";
                $msg .= "size = $size"
	}
	elsif ($errnum eq '00000958')
	{
		$msg  = "Initialization of adapter driver DMA handle failed";
	}
	elsif ($errnum eq '00000A00')
	{
		$msg  = "Timeout waiting for bootstrap mailbox to come ready";
	}
	elsif ($errnum eq '00000A20')
	{
                my $exchange = &bytes($sense, 412, 2);

		$msg  = "Abort Processing stall (exchange $exchange)";
	}
	elsif ($errnum eq '00000A30')
	{
		$msg  = "POST watchdog retries exceeded";
	}
	elsif ($errnum eq '00000A48')
	{
		$msg  = "Initialization heartbeat timer popped, but not ";
		$msg .= "in heartbeat phase";
	}
	elsif ($errnum eq '00000A50')
	{
                my $cmd    = &bytes($sense, 385, 1);
		$msg  = "Mailbox timeout (cmd $cmd)";
	}
	elsif ($errnum eq '00000A60')
	{
		$msg  = "Admin queue request timed out; aborting it";
	}
	elsif ($errnum eq '00000A80')
	{
		$msg  = "Admin WQE cancel timed out; will reset adapter";
	}
	elsif ($errnum eq '00000AB4')
	{
		$msg  = "Coordinated activity timed out and another function ";
                $msg .= "has pre-empted the session";
	}
	elsif ($errnum eq '00000AB8')
	{
		$msg  = "Coordinated activity timed out and previous ";
                $msg .= "broadcast still incomplete";
        }
	elsif ($errnum eq '00000ABC')
	{
		$msg  = "Coordinated activity timed out; will abnormally ";
                $msg .= "terminate";
	}
	elsif ($errnum eq '00000AD0')
	{
		$msg  = "Unable to preserve FW dump via livedump; discarding";
	}
	elsif ($errnum eq '00000B08')
	{
		$msg  = "DEFECT: Mailbox issue failure";
	}
	elsif ($errnum eq '00000BA8')
	{
		$msg  = "DEFECT: Missing login context for async ELS response";
	}
	elsif ($errnum eq '00000C04')
	{
		$msg  = "INFO: Adapter link in dead state during driver close";
	}
	elsif ($errnum eq '00000C1B')
	{
		$msg  = "Driver failed to come ready for mailboxes during ";
		$msg .= "VPD query";
	}
	elsif ($errnum eq '00000C1C')
	{
                my $cause = &bytes($sense, 391, 1);
		$msg  = "Driver has declared fatal error (cause $cause)";
	}
	elsif ($errnum eq '00000C26')
	{
		$msg  = "Error restoring interrupt vector";
	}
	elsif ($errnum eq '00000C28')
	{
		$msg  = "INFO: An EEH event has been detected";
	}
	elsif ($errnum eq '00000C48')
	{
		$msg  = "DEFECT: Unable to find virtual port to unregister ";
		$msg .= "targets";
	}
	elsif ($errnum eq '00000C4C')
	{
		$msg  = "INFO: WWPN change for Well Known N_Port";
	}
	elsif ($errnum eq '00000C9C')
	{
		$msg  = "DEFECT: Double free of freemap entity";
	}
	elsif ($errnum eq '00000CD0')
	{
		$msg  = "INFO: Lost the race to become broadcast initiator";
	}
	elsif ($errnum eq '00000CD6')
	{
		$msg  = "Received coordinated activity msg that conflicts ";
                $msg .= "with current state";
	}
	elsif ($errnum eq '00000CDA')
	{
		$msg  = "Coordinated activity continuation broadcast failed";
	}
	elsif ($errnum eq '00000D08')
	{
		$msg  = "Command entry point request delayed due to XRI ";
                $msg .= "exhaustion";
	}
	elsif ($errnum eq '00000DA0')
	{
                my $rnport = &bytes($sense, 53, 3);
		$msg  = "Admin WQE failed due to abort by remote port $rnport";
	}
	elsif ($errnum eq '00000DB0')
	{
		$msg  = "Protocol WQE failed with DMA failure indication";
	}
	elsif ($errnum eq '00000DB8')
	{
		$msg  = "Protocol WQE failed with unexpected Invalid RPI";
	}
	elsif ($errnum eq '00000DC4')
	{
		$msg  = "Admin WQE failed with adapter local reject; no XRI";
	}
	elsif ($errnum eq '00000DC8')
	{
		$msg  = "Admin WQE failed with unknown Local Reject code";
	}
	elsif ($errnum eq '00000E14')
	{
                my $adap = &bytes($sense, 386, 2);
                my $odm  = &bytes($sense, 390, 2);
		$msg  = "Adapter supports fewer cmd_elems ($adap) than were ";
		$msg .= "requested in ODM ($odm)";
	}
	elsif ($errnum eq '00000E15')
	{
                my $rtype = &bytes($sense, 387, 1);
                my $count = &bytes($sense, 390, 2);
		$msg  = "Adapter supports fewer resources than needed to ";
                $msg .= "configure ($count of type $rtype)";
	}
	elsif ($errnum eq '00000E22')
	{
		$msg  = "Preferred FCF not found; switching to alternate";
	}
	elsif ($errnum eq '00000E23')
	{
		$msg  = "Switching back to preferred FCF from alternate";
	}
	elsif ($errnum eq '00000E25')
	{
		$msg  = "FLOGI succeeded, but bad connection type";
	}
	elsif ($errnum eq '00000E27')
	{
		$msg  = "Adapter initialization retries exceeded";
	}
	elsif ($errnum eq '00000E2A')
	{
		$msg  = "Adapter initialization POST failed";
	}
	elsif ($errnum eq '00000E2D')
	{
		$msg  = "Adapter initialization adapter info collection ";
                $msg .= "failure";
	}
	elsif ($errnum eq '00000E36')
	{
		$msg  = "Adapter initialization resource setup failure";
	}
	elsif ($errnum eq '00000E42')
	{
		$msg  = "Mailbox failure during unregisters for link down";
	}
	elsif ($errnum eq '00000E45')
	{
		$msg  = "Adapter link up failure";
	}
	elsif ($errnum eq '00000E48')
	{
		$msg  = "Mailbox failure while reading FCF table";
	}
	elsif ($errnum eq '00000E4B')
	{
		$msg  = "Link discovery FCF selection failed";
	}
	elsif ($errnum eq '00000E4F')
	{
		my $els = &words($sense, 160, 1);

		$msg  = "Too many FABRIC_OPS failures (";
		$msg .= &lookup("ELS ", $els, \%fc_payload_op_lt) . " fail)";
	}
	elsif ($errnum eq '00000E54')
	{
		$msg  = "Link registration failed";
	}
	elsif ($errnum eq '00000E57')
	{
		$msg  = "Firmware update image write failure";
	}
	elsif ($errnum eq '00000E60')
	{
                my $cwwpn = &bytes($sense, 184, 8);
		$msg  = "Local context in bad state for Update NPIV ($cwwpn)";
	}
	elsif ($errnum eq '00000E62')
	{
		$msg  = "Fabric logout failed during NPIV teardown";
	}
	elsif ($errnum eq '00000E63')
	{
                my $cwwpn = &bytes($sense, 184, 8);
		$msg  = "VPI unreg failed during NPIV update for $cwwpn";
	}
	elsif ($errnum eq '00000E64')
	{
                my $cwwpn = &bytes($sense, 184, 8);
		$msg  = "RPI unreg failed during NPIV update for $cwwpn";
        }
	elsif ($errnum eq '00000E66')
	{
                my $cwwpn = &bytes($sense, 184, 8);
		$msg  = "VPI init failed during NPIV setup for $cwwpn";
	}
	elsif ($errnum eq '00000E6C')
	{
                my $cwwpn = &bytes($sense, 184, 8);
		$msg  = "FDISC failed during NPIV setup for $cwwpn";
	}
	elsif ($errnum eq '00000E79')
	{
                my $cwwpn = &bytes($sense, 184, 8);
		$msg  = "Nameserver login failed during NPIV setup for $cwwpn";
        }
	elsif ($errnum eq '00000EAB')
	{
		$msg  = "INFO: Adapter firmware dump collected; will ";
		$msg .= "live dump";
	}
	elsif ($errnum eq '00000EAE')
	{
                my $errno = &hex2int(&bytes($sense, 388, 4));

		$msg  = "Firmware dump mailbox failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000EAF')
	{
                my $errno = &hex2int(&bytes($sense, 388, 4));

		$msg  = "Live dump initiation failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000EB0')
	{
		$msg  = "Broadcast of completion message for FW dump failed";
	}
	elsif ($errnum eq '00000EB4')
	{
                my $rnport = &bytes($sense, 53, 3);
		$msg  = "RPI unreg failed during logout with remote $rnport";
        }
	elsif ($errnum eq '00000EC2')
	{
		$msg  = "INFO: Lost the race to become fw dump collector";
        }
	elsif ($errnum eq '00000EC4')
	{
		$msg  = "INFO: Spontaneous adapter dump; will collect";
        }
	elsif ($errnum eq '00000EC6')
	{
		$msg  = "INFO: Expected adapter dump, but none appeared";
        }
	elsif ($errnum eq '00000EC8')
	{
		$msg  = "Broadcast of FINISH_FW_DUMP message failed";
        }
	elsif ($errnum eq '00000ECA')
	{
                my $ps = &bytes($sense, 392, 4);
		$msg  = "INFO: Found undefined Port Status value ($ps)";
        }
	elsif ($errnum eq '00000ECC')
	{
                my $e1 = &bytes($sense, 400, 4);
                my $e2 = &bytes($sense, 404, 4);
		$msg  = "INFO: Adapter has entered error state ($e1, $e2)";
        }
	elsif ($errnum eq '00000ECE')
	{
		$msg  = "Adapter is signalling over temperature condition";
        }
	elsif ($errnum eq '00000ED0')
	{
		$msg  = "INFO: Lost the race to manage adapter error data ";
                $msg .= "collection";
        }
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	if ($ERRNUMS)
	{
        	$msg = "$errnum: $msg";
	}

	printf("%s", $msg);
}


sub FCA_ERR_Emulex_v10v11
{
	my @error   = @_;
	my $sense   = &get_sense_data(@error);
	my $version = &bytes($sense, 3, 1);
	my $errnum  = &words($sense, 1, 1);
	my $msg     = ""; 

	if    ($errnum eq 'xxxxxxxx')
	{
		$msg = "huh?";
	}
	elsif ($errnum eq '00000006')
	{
		my $st = &byte_reverse(&bytes($sense, 322, 2));
		my $mb = &bytes($sense, 321, 1);
		$msg = "Adapter mailbox request ($mb) failed with unknown ";
		$msg .= "status $st";
	}
	elsif ($errnum eq '00000007')
	{
		$msg  = "A config port mailbox failed. Mailbox is included";
	}
	elsif ($errnum eq '00000011')
	{
		my $els = &words($sense, 2, 1);
		$msg  = "LS_RJT Login Required and retries exceeded; ";
		$msg .= &lookup("ELS ", $els, \%fc_payload_op_lt);
	}
	elsif ($errnum eq '00000014')
	{
		my $els  = "unknown";

		if ($version eq '10')
		{
			$els = &words($sense, 88, 1);
		}
		else 
		{
			$els = &words($sense, 96, 1);
		}

		$msg  = &lookup("ELS ", $els, \%fc_payload_op_lt);
		$msg .= " suffered Fabric or N_Port reject: ";
		$msg .= "Fabric Path Not Available";
	}
	elsif ($errnum eq '00000017')
	{
		my $pay_op	= &words($sense,  88, 1);
		my $rc		= &bytes($sense, 338, 1);
		my $re		= &bytes($sense, 337, 1);
		my $rnport;

                $rnport  = &bytes($sense, 342, 1);
                $rnport .= &bytes($sense, 341, 1);
                $rnport .= &bytes($sense, 340, 1);

		$msg = "(1 of 2) ELS to $rnport failed with LS_RJT, ";
		$msg .= &lookup("payload opcode ", $pay_op, \%fc_payload_op_lt);
		$msg .= ", " . &lookup("Reason code ", $rc, \%fc_lsrjt_rc_lt);
		$msg .= ", " . &lookup("Explanation ", $re, \%fc_lsrjt_re_lt);
	}
	elsif ($errnum eq '00000019')
	{
		$msg  = "An IOCB failed with a local reject, with an ";
                $msg .= "undocumented parameter error";
	}
	elsif ($errnum eq '0000001F')
	{
		$msg  = "An IOCB failed with an error indicating link down";
	}
	elsif ($errnum eq '00000021')
	{
		my $icmd = &bytes($sense, 349, 1);
		my $para = &byte_reverse(&bytes($sense, 336, 4));
		my $els  = "unknown";

		if ($version eq '10')
		{
			$els = &words($sense, 88, 1);
		}
		else 
		{
			$els = &words($sense, 96, 1);
		}

		$msg  = "IOCB (";
		$msg .= &lookup("ELS ", $els, \%fc_payload_op_lt);
		$msg .= ") failed with unknown Local Reject ($para)";
	}
	elsif ($errnum eq '00000024')
	{
		$msg  = "Misc (not FLOGI or SCR) adap ring IOCB failure";
	}
	elsif ($errnum eq '00000026')
	{
		my $mb = &bytes($sense, 321, 1);
		my $st = &bytes($sense, 322, 2);
		$msg  = "Mailbox command ($mb) timed out (status $st)";
	}
	elsif ($errnum eq '00000027')
	{
		my $payload_op = &words($sense, 80, 1);
		$msg = "IOCB timeout, ";
		$msg .= &lookup("payload opcode ", $payload_op,
		                \%fc_payload_op_lt);
	}
	elsif ($errnum eq '00000029')
	{
		my $bytes = &bytes($sense, 320, 4);
		$msg  = "DMA map for $bytes bytes failed w/ DMA_NORES";
	}
	elsif ($errnum eq '0000002E')
	{
		$msg  = "An abort IOCB has timed out";
	}
	elsif ($errnum eq '00000030')
	{
		$msg = "Error attention";

		# Some of these have the SENSE DATA decorated with a
		# diagnostic analysis including an SRN.  Retrieve it if so.
		my $srn = "";
		for (my $i = 0; $i <= $#error; $i++)
		{
			if ($error[$i] =~ /^SRN:/)
			{
				$srn = $error[$i];
				chomp($srn);
				$srn =~ s/\s+/ /g;
				$msg = "$msg $srn";
				last;
			}
		}
	}
	elsif ($errnum eq '00000038')
	{
		$msg  = "No free cmd to respond to unsolicited ELS";
	}
	elsif ($errnum eq '00000041')
	{
		$msg  = "Link is dead (has been down several seconds)";
	}
	elsif ($errnum eq '0000004B')
	{
		$msg  = "DMA initialization failed; check adapter tuning and ";
		$msg  .= "slot capability";
	}
	elsif ($errnum eq '0000004C')
	{
		$msg  = "D_MAP_INIT failed; cannot set up initial DMA TCE pool";
	}
	elsif ($errnum eq '00000047')
	{
		my $port = &byte_reverse(&bytes($sense, 328, 3));
		$msg  = "Register login MB completed for port ID not in ";
		$msg .= "login table: $port";
	}
	elsif ($errnum eq '00000051')
	{
		$msg = "Error attention (continued from previous error)";
	}
	elsif ($errnum eq '00000052')
	{
		$msg  = "Unsolicited ELS IOCB arrived with invalid buffer";
	}
	elsif ($errnum eq '00000053')
	{
		$msg = "(2 of 2) ELS failed with LS_RJT";
	}
	elsif ($errnum eq '000000BB')
	{
		$msg  = "Completed mailbox differs from issued; declaring ";
		$msg .= "FATAL";
	}
	elsif ($errnum eq '000000C0')
	{
		my $rpi = &bytes($sense, 8, 2);
		$msg  = "Proto IOCB Invalid RPI ($rpi); no login entry";
	}
	elsif ($errnum eq '000000C1')
	{
		my $rpi = &bytes($sense, 8, 2);
		$msg  = "Proto IOCB Invalid RPI ($rpi); wrong vport";
	}
	elsif ($errnum eq '000000C2')
	{
		my $rpi = &bytes($sense, 8, 2);
		$msg  = "Proto IOCB Invalid RPI ($rpi); wrong RPI";
	}
	elsif ($errnum eq '000000C3')
	{
		my $rpi = &bytes($sense, 8, 2);
		$msg  = "Proto IOCB failed w/ Invalid RPI ($rpi); ";
		$msg .= "expected failure (debug)";
	}
	elsif ($errnum eq '000000C4')
	{
		my $rpi = &bytes($sense, 8, 2);
		$msg  = "Proto IOCB failed w/ Invalid RPI ($rpi); RPI not free";
	}
	elsif ($errnum eq '000000C5')
	{
		my $rpi = &bytes($sense, 8, 2);
		$msg  = "Adap IOCB failed w/ Invalid RPI ($rpi); ";
		$msg .= "expected failure (debug)";
	}
	elsif ($errnum eq '00000121')
	{
		$msg  = "Un-anticipated async IOCB on the proto ring. ";
                $msg .= "The IOCB is included.";
	}
	elsif ($errnum eq '00000D04')
	{
		$msg  = "Failed to unregister target ports during NPIV ";
                $msg .= "tear down";
	}
	elsif ($errnum eq '0000D300')
	{
		my $vpi = &bytes($sense, 8, 2);
		$msg  = "REG_VPI failed and associated VPI ($vpi) not valid";
	}
	elsif ($errnum eq '0000D301')
	{
		my $vpi = &bytes($sense, 326, 2);
		$msg  = "UNREG_VPI completed but included VPI ($vpi) not valid";
	}
	elsif ($errnum eq '0000D302')
	{
		$msg  = "REG_VPI mailbox failure (non-cmd_fcn entry point)";
	}
	elsif ($errnum eq '0000D303')
	{
		$msg  = "Unknown REG_VPI mailbox failure (cmd_fcn entry point)";
	}
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	if ($ERRNUMS)
	{
        	$msg = "$errnum: $msg";
	}

	printf("%s", $msg);
}


sub FCA_ERR_QLogic_qlfc
{
	my @error  = @_;
	my $sense  = &get_sense_data(@error);
	my $errnum = &words($sense, 1, 1);
	my $msg    = ""; 

	if    ($errnum eq 'xxxxxxxx')
	{
		$msg = "huh?";
	}
	elsif ($errnum eq '00000003')
	{
		$msg  = "Adapter suffered an internal error";
	}
	elsif ($errnum eq '0000000E')
	{
		$msg  = "Adapter failed login request with: No PCB";
	}
	elsif ($errnum eq '00000010')
	{
		$msg  = "Unable to connect; GET_ID mailbox failed at startup";
	}
	elsif ($errnum eq '00000012')
	{
		$msg  = "Registration for State Change Notifications failed";
	}
	elsif ($errnum eq '00000016')
	{
		my $rnport = &byte_reverse(&bytes($sense, 208, 3));

		$msg  = "Login to $rnport failed; not in correct state and retry count exceeded";
	}
	elsif ($errnum eq '0000001E')
	{
		$msg = "Link is dead (has been down several seconds)";
	}
	elsif ($errnum eq '00000023')
	{
		$msg  = "Adapter generated unknown interrupt type";
	}
	elsif ($errnum eq '00000026')
	{
		$msg  = "Mailbox timeout";
	}
	elsif ($errnum eq '00000027')
	{
		$msg  = "IOCB timeout";
	}
	elsif ($errnum eq '00000029')
	{
		my $bytes = &bytes($sense, 148, 4);
		$msg  = "DMA map for $bytes bytes failed w/ DMA_NORES";
	}
	elsif ($errnum eq '0000002B')
	{
		$msg  = "Login collision during login (address in use)";
	}
	elsif ($errnum eq '0000002E')
	{
		$msg  = "Format 0 Rpt ID Acquisition mailbox received (info)";
	}
	elsif ($errnum eq '00000030')
	{
		$msg  = "Couldn't find vport for Report ID Acquisition";
	}
	elsif ($errnum eq '00000034')
	{
		$msg  = "Build IOCB routine received unknown adap_opcode";
	}
	elsif ($errnum eq '00000039')
	{
		my $rnport = &byte_reverse(&bytes($sense, 208, 3));

		$msg  = "Login to $rnport failed (usually timeout or LOGO ";
		$msg .= "received)";
	}
	elsif ($errnum eq '0000003A')
	{
		my $rnport = &byte_reverse(&bytes($sense, 208, 3));
		my $rc     =               &bytes($sense, 218, 1);
		my $re     =               &bytes($sense, 217, 1);

		my $rct = &lookup("", $rc, \%fc_lsrjt_rc_lt);
		my $ret = &lookup("", $re, \%fc_lsrjt_re_lt);

		$msg  = "Login to $rnport failed with LS_RJT ($rct/$ret)";
	}
	elsif ($errnum eq '0000003E')
	{
		$msg  = "Adapter driver IOCB failed at startup/shutdown; ";
		$msg .= "will reset at next open";
	}
	elsif ($errnum eq '00000041')
	{
		$msg  = "Adapter reset timeout; DMA wouldn't shut down";
	}
	elsif ($errnum eq '00000049')
	{
		my $rnport = &byte_reverse(&bytes($sense, 208, 3));
		$msg  = "Login/logout request for $rnport failed due to ";
		$msg .= "link down";
	}
	elsif ($errnum eq '0000004A')
	{
		$msg  = "Adapter rejected IOCB due to invalid parameter";
	}
	elsif ($errnum eq '0000004B')
	{
		$msg  = "DMA initialization failed; check adapter tuning and ";
		$msg  .= "slot capability";
	}
	elsif ($errnum eq '00000050')
	{
		$msg  = "Unable to connect; GET_ID mailbox failed";
	}
	elsif ($errnum eq '0000006A')
	{
		$msg  = "Login failed by adapter due to handle in use";
	}
	elsif ($errnum eq '00000072')
	{
		$msg  = "Adapter driver detected login collision due to ";
                $msg .= "STALE target information";
	}
	elsif ($errnum eq '00000075')
	{
		$msg  = "Timed out waiting for link to come up";
	}
	elsif ($errnum eq '00000082')
	{
		$msg  = "Verify checksum failed due to startup failure";
	}
	elsif ($errnum eq '00000094')
	{
		$msg  = "VP0 Enable Timeout; expecting Rpt ID Acq from adapter";
	}
	elsif ($errnum eq '00000105')
	{
		$msg  = "Unexpected inter-driver message received";
	}
	elsif ($errnum eq '00000107')
	{
		$msg  = "Adapter reports FCF discovery timeout; advertising ";
                $msg .= "link down";
	}
	elsif ($errnum eq '00000114')
	{
		$msg  = "FIP Clear VLink received for the physical link. ";
                $msg .= "This is typically associated with a lost link.";
	}
	elsif ($errnum eq '00000306')
	{
		$msg  = "VP0 Enable failed; ";
                $msg .= "likely FLOGI, SCR, or SNS Login failure";
	}
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	if ($ERRNUMS)
	{
        	$msg = "$errnum: $msg";
	}

	printf("%s", $msg);
}


# ---------------------------------------------------------------------------
# LABEL:          FCP_ERR6
# IDENTIFIER:     DC73C03A
# 
# [...]
# Resource Name:   fscsi5          
# 
# [...]
# 
# Detail Data
# SENSE DATA
# 0000 0010 0000 00B1 [...]
# ---------------------------------------------------------------------------
sub FCP_ERR
{
	my @error = @_;
	my $sense = &get_sense_data(@error);
	my $driver = &bytes($sense, 3, 1);

	#
	# A few drivers use this error log, with different indicators:
	#
	# 0x02 - QLogic (qfscsi)
	# 0x03 - QLogic 4Gbps (qlfscsi)
	# 0x10 - Emulex (efscsi)
	#
	if ($driver eq '02')
	{
	}
	elsif (($driver eq '03') || ($driver eq '04'))
	{
		&FCP_ERR_QLogic_qlfsc(@error);
	}
	elsif ($driver eq '10')
	{
		&FCP_ERR_Emulex(@error);
	}
	elsif ($driver eq '20')
	{
		&FCP_ERR_emfcp(@error);
	}
	else
	{
		printf("unknown driver type: " . $driver);
	}
}


sub FCP_ERR_emfcp
{
	my @error = @_;

	my $sense   = &get_sense_data(@error);

        my $version = &bytes($sense, 15, 1);

        if ($version eq '00')
        {
            &FCP_ERR_emfcp_v0(@error);
        }
        elsif ($version eq '01')
        {
            &FCP_ERR_emfcp_v1(@error);
        }
        else
        {
            printf("unknown error log version: " . $version);
        }
}


#
# NOTE: VERSION 0 is DEFUNCT.  Do not add entries here
#
sub FCP_ERR_emfcp_v0
{
	my @error = @_;

	my $sense  = &get_sense_data(@error);

	my $errnum = &bytes($sense,  4, 4);
	my $errno  = &hex2int(&bytes($sense, 8, 4));	# often an errno value
	my $rnport = &bytes($sense, 85, 3);
 	my $wwpn   = &bytes($sense, 96, 8);

	my $msg = ""; 

	if    ($errnum eq 'xxxxxxxx')
	{
		$msg  = "huh?";
	}
	elsif ($errnum eq '00000001')
	{
		my $lun = "lun 0x" . &bytes($sense, 20, 8);
		$msg = "ioctl(SCIOLINQU) timeout; $rnport $lun";
	}
	elsif ($errnum eq '00000007')
	{
		$msg  = "Cancel failed (and wasn't flushed)";
	}
	elsif ($errnum eq '0000000B')
	{
                my $reason = &bytes($sense, 8, 4);
		$msg  = "Directory server rejected GCS_ID for $rnport; ";
                $msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '00000028')
	{
		$msg  = "Target cancel timeout for port $rnport";
	}
	elsif ($errnum eq '0000002A')
	{
		$msg  = "Process Login timeout for port $rnport";
	}
	elsif ($errnum eq '0000002C')
	{
		$msg  = "Target reset timeout for port $rnport";
	}
	elsif ($errnum eq '0000002E')
	{
		my $rspiu = &words($sense, 144, 72);
		$msg = "Data underrun receiving from $rnport ";
		$msg .= &FCP_RSP_IU($rspiu);
	}
	elsif ($errnum eq '00000030')
	{
		$msg  = "Received HARD_FAIL notification from adap DD";
	}
	elsif ($errnum eq '00000036')
	{
		$msg  = "Link came up, but connection type changed";
	}
	elsif ($errnum eq '00000048')
	{
		$msg  = "Adapter failed request for port $rnport; ";
		$msg .= "DMA failure";
	}
	elsif ($errnum eq '00000049')
	{
		$msg  = "Adapter failed request for port $rnport; ";
		$msg .= "formal problem";
	}
	elsif ($errnum eq '0000004A')
	{
		$msg = "Error detected receiving from $rnport ";
		$msg .= "(possible marginal link)";
	}
	elsif ($errnum eq '00000061')
	{
		$msg = "Target $rnport does not support suitable FC classes";
	}
	elsif ($errnum eq '0000006A')
	{
		$msg = "Adapter DD rejected I/O request for port $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000070')
	{
		$msg = "Timeout waiting for link to come up";
	}
	elsif ($errnum eq '00000071')
	{
		$msg = "Timeout waiting for adapter driver to RESUME";
	}
	elsif ($errnum eq '000000A1')
	{
		$msg  = "Relogin to port $rnport failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000A3')
	{
		$msg  = "Reset interface request failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000A5')
	{
		$msg  = "ioctl() send seq failure for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AA')
	{
		$msg  = "CTIU request failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AC')
	{
		$msg = "GID_PN ($wwpn) or GPN_ID ($rnport) failed by ";

                # errno field might be either an errno or a
                # nameserver reject code

                if ($errno < 128) {
                    $msg .= "adapter driver; ";
                    $msg .= &lookup("errno ", $errno, \%aix_errno_lt);
                } else {
                    my $reason = &bytes($sense, 8, 4);
                    $msg .= "directory server; ";
                    $msg .= &lookup("", $reason, \%fc_nsrjt_lt);
                }
	}
	elsif ($errnum eq '000000AD')
	{
		$msg  = "Recovery operation failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AF')
	{
                my $reason = &bytes($sense, 8, 4);

		$msg  = "Nameserver GID_PN reject for " . $wwpn . "; ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '000000B8')
	{
		$msg  = "Adap DD rejected generic request (GEN_REQ)";
                $msg .= " for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000C8')
	{
		$msg  = "Dynamic tracking failed for $wwpn; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000001B8')
	{
		$msg = "Adapter DD rejected CT_IU request for port $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000277')
	{
		my $lun = "lun 0x" . &bytes($sense, 20, 8);
		$msg  = "Dev cancel timed out; escalating to target cancel; ";
		$msg .= "$rnport $lun";
        }
	elsif ($errnum eq '00000302')
	{
		$msg  = "Adapter driver rejected output request for NPIV ";
		$msg .= "client IO";
        }
	elsif ($errnum eq '00000323')
	{
                my $status = &bytes($sense, 16, 4);
		$msg  = "NPIV SCSI command for $rnport failed with unknown ";
		$msg .= "adapter element status $status";
        }
	elsif ($errnum eq '00000326')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "formal problem with request";
        }
	elsif ($errnum eq '00000327')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "poss. dropped or damaged frame";
        }
	elsif ($errnum eq '00000328')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "unexpected reason";
        }
	elsif ($errnum eq '00000330')
	{
		$msg  = "Adap DD rejected NPIV admin request; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
        }
	elsif ($errnum eq '00000402')
	{
                my $reason = &bytes($sense, 8, 4);

                if ($reason eq '00000001')
                {
                    $msg = "Driver is closing with unlogged errors for link";
                }
                elsif ($reason eq '00000002')
                {
                    $msg = "Link has recovered";
                }
                else
                {
                    $msg = "Error counts reset for link (unknown reason)";
                }
	}
	elsif ($errnum eq '00000403')
	{
                my $reason = &bytes($sense, 8, 4);

                if ($reason eq '00000001')
                {
                    $msg  = "Driver is closing with unlogged errors for ";
                    $msg .= "target $rnport";
                }
                elsif ($reason eq '00000002')
                {
                    $msg = "Target $rnport has recovered";
                }
                else
                {
                    $msg  = "Error counts reset for target $rnport ";
                    $msg .= "(unknown reason)";
                }
	}
	elsif ($errnum eq '00000A30')
	{
		$msg  = "Admin cancel command failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
        }
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	if ($ERRNUMS)
	{
        	$msg = "$errnum: $msg";
	}

	printf("%s", $msg);
}


sub FCP_ERR_emfcp_v1
{
	my @error = @_;

	my $sense  = &get_sense_data(@error);

	my $errnum = &bytes($sense,   4, 4);
	my $errno  = &hex2int(&bytes($sense, 8, 4));	# often an errno value
 	my $rwwpn  = &bytes($sense, 192, 8);
	my $rnport = &bytes($sense, 225, 3);

	my $msg = ""; 

	if    ($errnum eq 'xxxxxxxx')
	{
		$msg  = "huh?";
	}
	elsif ($errnum eq '00000001')
	{
                my $lun = "lun 0x" . &bytes($sense, 320, 8);
		$msg = "ioctl(SCIOLINQU) timeout; $rnport $lun";
	}
	elsif ($errnum eq '00000003')
	{
                my $lun = "lun 0x" . &bytes($sense, 320, 8);
		$msg = "ioctl(SCIOLTUR) timeout; $rnport $lun";
        }
	elsif ($errnum eq '00000004')
	{
                my $lun = "lun 0x" . &bytes($sense, 320, 8);
		$msg = "ioctl(SCIOLREAD) timeout; $rnport $lun";
        }
	elsif ($errnum eq '00000007')
	{
		$msg  = "Cancel failed (and wasn't flushed)";
	}
	elsif ($errnum eq '0000000B')
	{
                my $reason = &bytes($sense, 8, 4);
		$msg  = "Directory server rejected GCS_ID for $rnport; ";
                $msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '00000022')
	{
		my $lun = &bytes($sense, 20, 8);
		$msg  = "Device timer popped ($rnport lun $lun), but no ";
                $msg .= "active request!";
	}
	elsif ($errnum eq '00000025')
	{
		$msg  = "Send sequence timed out; will cancel";
	}
	elsif ($errnum eq '00000026')
	{
                my $lun = "lun 0x" . &bytes($sense, 320, 8);
		$msg  = "Return of I/Os timed out after LUN cancel for ";
                $msg .= "$rnport $lun";
	}
	elsif ($errnum eq '00000028')
	{
		$msg  = "Target cancel timeout for port $rnport";
	}
	elsif ($errnum eq '0000002A')
	{
		$msg  = "Process Login timeout for port $rnport";
	}
	elsif ($errnum eq '0000002C')
	{
		$msg  = "Target reset timeout for port $rnport";
	}
	elsif ($errnum eq '0000002E')
	{
		my $rspiu = &words($sense, 144, 72);
		$msg = "Data underrun receiving from $rnport ";
                #	$msg .= &FCP_RSP_IU($rspiu);
                $msg .= "FIXME"
	}
	elsif ($errnum eq '00000030')
	{
		$msg  = "Received HARD_FAIL notification from adap DD";
	}
	elsif ($errnum eq '00000036')
	{
		$msg  = "Link came up, but connection type changed";
	}
	elsif ($errnum eq '00000048')
	{
		$msg  = "Adapter failed request for port $rnport; ";
		$msg .= "DMA failure";
	}
	elsif ($errnum eq '00000049')
	{
		$msg  = "Adapter failed request for port $rnport; ";
		$msg .= "formal problem";
	}
	elsif ($errnum eq '0000004A')
	{
		$msg = "Error detected receiving from $rnport ";
		$msg .= "(possible marginal link)";
	}
	elsif ($errnum eq '0000004F')
	{
		$msg = "CT_IU for $rnport timed out";
	}
	elsif ($errnum eq '00000061')
	{
		$msg = "Target $rnport does not support suitable FC classes";
	}
	elsif ($errnum eq '0000006A')
	{
		$msg = "Adapter DD rejected I/O request for port $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000070')
	{
		$msg = "Timeout waiting for link to come up";
	}
	elsif ($errnum eq '00000071')
	{
		$msg = "Timeout waiting for adapter driver to RESUME";
	}
	elsif ($errnum eq '0000007A')
	{
		$msg = "DEBUG: RESET_ADAP async notification received";
	}
	elsif ($errnum eq '000000A1')
	{
		$msg  = "Relogin to port $rnport failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000A2')
	{
		$msg  = "Relogin or PDISC to $rnport finds unexpected WWPN";
	}
	elsif ($errnum eq '000000A3')
	{
		$msg  = "Reset interface request failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000A5')
	{
		$msg  = "ioctl() send seq failure for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AA')
	{
		$msg  = "Generic request (GEN_REQ) failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AC')
	{
		$msg = "GID_PN ($rwwpn) or GPN_ID ($rnport) failed by ";

                # errno field might be either an errno or a
                # nameserver reject code

                if ($errno < 128) {
                    $msg .= "adapter driver; ";
                    $msg .= &lookup("errno ", $errno, \%aix_errno_lt);
                } else {
                    my $reason = &bytes($sense, 8, 4);
                    $msg .= "directory server; ";
                    $msg .= &lookup("", $reason, \%fc_nsrjt_lt);
                }
	}
	elsif ($errnum eq '000000AD')
	{
		$msg  = "Recovery operation failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AF')
	{
                my $reason = &bytes($sense, 8, 4);

		$msg  = "Nameserver GID_PN reject for " . $rwwpn . "; ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '000000B8')
	{
		$msg  = "Adap DD rejected generic request (GEN_REQ)";
                $msg .= " for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000C8')
	{
		$msg  = "Dynamic tracking failed for rwwpn; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000150')
	{
		$msg  = "INFO: conc. attr. change requested, but driver not ";
                $msg .= "in fit state";
	}
	elsif ($errnum eq '00000151')
	{
		$msg  = "INFO: dyntrk=yes requested, but not fabric attached";
	}
	elsif ($errnum eq '00000153')
	{
                my $lun = &bytes($sense, 320, 8);
		$msg  = "INFO: dyntrk=yes requested, but V1 target has V0 ";
                $msg .= "LUNs ($rwwpn, $lun)";
	}
	elsif ($errnum eq '00000154')
	{
                my $lun = &bytes($sense, 320, 8);
		$msg  = "INFO: dyntrk=yes requested, but LUN doesn't support ";
                $msg .= "concurrent changes ($rwwpn, $lun)";
	}
	elsif ($errnum eq '00000155')
	{
		$msg  = "INFO: dyntrk=no requested, but target recovery is ";
                $msg .= "active ($rwwpn)";
	}
	elsif ($errnum eq '00000156')
	{
                my $lun = &bytes($sense, 320, 8);
		$msg  = "INFO: dyntrk=no requested, but LUN doesn't support ";
                $msg .= "concurrent changes ($rwwpn, $lun)";
	}
	elsif ($errnum eq '00000157')
	{
                my $lun = &bytes($sense, 320, 8);
		$msg  = "INFO: dyntrk=no requested, but LUN awaiting ";
                $msg .= "DEV_RESTART ($rwwpn, $lun)";
	}
	elsif ($errnum eq '00000158')
	{
		$msg  = "INFO: fc_err_recov=fast_fail requested, but not ";
                $msg .= "fabric attached";
	}
	elsif ($errnum eq '0000015A')
	{
                my $lun = &bytes($sense, 320, 8);
		$msg  = "INFO: fc_err_recov=delayed_fail requested, but LUN ";
                $msg .= "has recovery pending ($rwwpn, $lun)";
	}
	elsif ($errnum eq '0000015B')
	{
		$msg  = "INFO: dyntrk=yes succeeded, but target won't ";
                $msg .= "benefit due to V0 LUNs ($rwwpn)";
	}
	elsif ($errnum eq '000001B8')
	{
		$msg = "Adapter DD rejected CT_IU request for port $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000228')
	{
		$msg  = "Target cancel cmd completed, but cancelled commands ";
                $msg .= "still outstanding for $rnport";
	}
	elsif ($errnum eq '00000277')
	{
                my $lun = "lun 0x" . &bytes($sense, 320, 8);
		$msg  = "Dev cancel timed out; escalating to target cancel; ";
		$msg .= "$rnport $lun";
        }
	elsif ($errnum eq '00000279')
	{
                my $lun = "lun 0x" . &bytes($sense, 320, 8);
		$msg  = "Return of cancel timed out after LUN cancel for ";
                $msg .= "$rnport $lun";
	}
	elsif ($errnum eq '00000302')
	{
		$msg  = "Adapter driver rejected output request for NPIV ";
		$msg .= "client IO";
        }
	elsif ($errnum eq '00000323')
	{
                #my $status = &bytes($sense, 16, 4);
                my $status = "FIXME";
		$msg  = "NPIV SCSI command for $rnport failed with unknown ";
		$msg .= "adapter element status $status";
        }
	elsif ($errnum eq '00000326')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "formal problem with request";
        }
	elsif ($errnum eq '00000327')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "poss. dropped or damaged frame";
        }
	elsif ($errnum eq '00000328')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "unexpected reason";
        }
	elsif ($errnum eq '00000330')
	{
		$msg  = "Adap DD rejected NPIV admin request; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
        }
	elsif ($errnum eq '00000402')
	{
                my $reason = &bytes($sense, 8, 4);

                if ($reason eq '00000001')
                {
                    $msg = "Driver is closing with unlogged errors for link";
                }
                elsif ($reason eq '00000002')
                {
                    $msg = "Link has recovered";
                }
                else
                {
                    $msg = "Error counts reset for link (unknown reason)";
                }
	}
	elsif ($errnum eq '00000403')
	{
                my $reason = &bytes($sense, 8, 4);

                if ($reason eq '00000001')
                {
                    $msg  = "Driver is closing with unlogged errors for ";
                    $msg .= "target $rnport";
                }
                elsif ($reason eq '00000002')
                {
                    $msg = "Target $rnport has recovered";
                }
                else
                {
                    $msg  = "Error counts reset for target $rnport ";
                    $msg .= "(unknown reason)";
                }
	}
	elsif ($errnum eq '00000A30')
	{
		$msg  = "Admin cancel command failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
        }
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	if ($ERRNUMS)
	{
        	$msg = "$errnum: $msg";
	}

	printf("%s", $msg);
}


sub FCP_ERR_Emulex
{
	my @error = @_;

	my $sense  = &get_sense_data(@error);

	my $errnum = &bytes($sense,  4, 4);
	my $errno  = &hex2int(&bytes($sense, 8, 4));	# often an errno value
	my $rnport = "port 0x" . &bytes($sense, 85, 3);
	my $wwpn   = "wwpn 0x" . &bytes($sense, 96, 8);

	my $msg = ""; 

	if    ($errnum eq '00000001')
	{
		my $lun = "lun 0x" . &bytes($sense, 20, 8);
		$msg = "ioctl(SCIOLINQU) timeout; $rnport $lun";
	}
	elsif ($errnum eq '00000003')
	{
		my $lun = "lun 0x" . &bytes($sense, 20, 8);
		$msg = "ioctl(SCIOLTUR) timeout; $rnport $lun";
	}
	elsif ($errnum eq '00000004')
	{
		$msg = "Command Time-out in Read Block ioctl.";
	}
	elsif ($errnum eq '00000007')
	{
		$msg = "Cancel request failed for $rnport";
	}
	elsif ($errnum eq '00000009')
	{
		my $reason = &words($sense, 2, 1);
		$msg = "Name server rejected GID_FT with ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '0000000B')
	{
		my $reason = &words($sense, 2, 1);
		$msg = "Name server rejected GCS_ID for $rnport, ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '0000001F')
	{
		$msg  = "Data overrun reported in FCP response IU from ";
                $msg .= "$rnport; cmd element included";
	}
	elsif ($errnum eq '00000023')
	{
		$msg = "Timeout for a command that is not active";
	}
	elsif ($errnum eq '00000025')
	{
		$msg  = "Adapter driver rejected Abort Task Set for $rnport ";
		$msg .= "at cmd timeout; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000026')
	{
		$msg = "Device cancel for $rnport timed out";
	}
	elsif ($errnum eq '00000028')
	{
		$msg = "Target cancel for $rnport timed out";
	}
	elsif ($errnum eq '00000029')
	{
		$msg = "Relogin timed out for $rnport";
	}
	elsif ($errnum eq '0000002A')
	{
		$msg = "Process login timed out for $rnport";
	}
	elsif ($errnum eq '0000002C')
	{
		$msg = "Target reset to $rnport timed out";
	}
	elsif ($errnum eq '0000002E')
	{
		my $rspiu = &words($sense, 136, 72);
		$msg = "Data underrun receiving from $rnport ";
		$msg .= &FCP_RSP_IU($rspiu);
	}
	elsif ($errnum eq '00000030')
	{
		$msg = "Async status - NDD_HARD_FAIL";
	}
	elsif ($errnum eq '00000031')
	{
		$msg = "(Debug) Async status - LINK_DOWN";
	}
	elsif ($errnum eq '00000032')
	{
		$msg = "(Debug) Async status - LINK_UP";
	}
	elsif ($errnum eq '00000033')
	{
		$msg =  "(Debug) Async status - LOGO from known target ";
                $msg .= "$rnport";
	}
	elsif ($errnum eq '00000038')
	{
		$msg = "(Debug) Async status - LINK_DEAD";
	}
	elsif ($errnum eq '0000003E')
	{
		$msg = "V0 SCIOLSTART requested for target ($rnport) already ";
		$msg .= "started V1";
	}
	elsif ($errnum eq '00000041')
	{
		$msg = "Request failed--adapter reported HW failure";
	}
	elsif ($errnum eq '00000042')
	{
		$msg = "Request failed--adapter reported software error";
	}
	elsif ($errnum eq '00000048')
	{
		$msg = "Request failed--adapter reported DMA failure";
	}
	elsif ($errnum eq '0000004A')
	{
		$msg = "Error detected receiving from $rnport ";
		$msg .= "(possible marginal link)";
	}
	elsif ($errnum eq '0000004E')
	{
		$msg = "SCIOLSTART requestor supplied scsi_id and WWPN; ";
		$msg .= "login finds different target ($rnport)";
	}
	elsif ($errnum eq '0000004F')
	{
		$msg = "Nameserver GID_PN timed out";
	}
	elsif ($errnum eq '00000061')
	{
		$msg = "Target $rnport does not support suitable FC classes";
	}
	elsif ($errnum eq '0000006A')
	{
		$msg = "Adapter driver rejected I/O request for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006B')
	{
		$msg = "Adapter driver rejected device cancel for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006C')
	{
		$msg = "Adapter driver rejected target cancel for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006E')
	{
		$msg = "Adapter driver rejected target reset for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006F')
	{
		$msg = "Adapter driver rejected target tg_cancel for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000070')
	{
		$msg = "Time out waiting for link up";
	}
	elsif ($errnum eq '00000071')
	{
		$msg = "We timed out waiting for the adapter to resume";
	}
	elsif ($errnum eq '00000073')
	{
		$msg = "Unexpected unsolicited IOCB received";
	}
	elsif ($errnum eq '000000A1')
	{
		$msg = "Relogin to $rnport failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000A2')
	{
		my $wwpn     = &words($sense, 24, 2);
		my $alt_wwpn = &words($sense, 28, 2);
		$msg = "Login with $rnport found unexpected WWPN. ";
		$msg .= "Actual: $alt_wwpn  Expected: $wwpn";
	}
	elsif ($errnum eq '000000A3')
	{
		$msg = "Reset ring for SCSI IOCB ring failed";
	}
	elsif ($errnum eq '000000A5')
	{
		$msg = "ioctl() send seq failure for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AA')
	{
                $msg = "Nameserver GID_PN failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
        }
	elsif ($errnum eq '000000AC')
	{
                my $reason = &words($sense, 2, 1);
                $msg = "Nameserver GID_PN or GPN_ID ";
                if ($reason =~ /00000000/)
                {
                        $msg .= "failed by adapter driver";
                }
                else
                {
                        $msg .= "rejected with ";
                        $msg .= &lookup("reason code ", $reason, \%fc_nsrjt_lt);
                }
        }
	elsif ($errnum eq '000000AD')
	{
		$msg = "dynamic tracking failed for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AF')
	{
		my $reason = &words($sense, 2, 1);
		$msg = "NS GID_PN reject " . $wwpn . "; ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
        }
	elsif ($errnum eq '000000B1')
	{
		$msg = "Relogin to $rnport rejected; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000B5')
	{
		$msg = "Relogin to nameserver ($rnport) failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000B7')
	{
		$msg = "Adapter driver refused send sequence; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000B8')
	{
		$msg = "Adapter driver refused gen_req; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000B9')
	{
		$msg = "No new/alt scsi_id for target $wwpn after ";
		$msg .= "Move Login";
	}
	elsif ($errnum eq '000000BD')
	{
		$msg = "Move Login request for $wwpn failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000C0')
	{
		$msg = "PRLI failure; unexpected status or retries exceeded";
	}
	elsif ($errnum eq '000000C8')
	{
		$msg = "Dynamic traking failed for $wwpn";
	}
	elsif ($errnum eq '000000D3')
	{
                my $pid  = &hex2int(&words($sense,  20, 1));
                $msg  = "dyntrk enabled, but version 0 ioctl requested by ";
                $msg .= "PID $pid";
	}
	elsif ($errnum eq '000000D9')
	{
		my $conn = &bytes($sense, 12, 1);
		my $fw   = &hex2int(&bytes($sense, 224, 1));
		my $pid  = &hex2int(&words($sense,  58, 2));

		$msg = "PID $pid wants fast_fail/dyntrk; unsupported ";
		$msg .= "FW level ($fw) or conn (";
		if ($conn eq '01')
		{
			$msg .= "point to point";
		}
		elsif ($conn eq '02')
		{
			$msg .= "switch";
		}
		elsif ($conn eq '03')
		{
			$msg .= "loop";
		}
		else
		{
			$msg .= "unknown";
		}
		$msg .= ")";
	}
	elsif ($errnum eq '000000E2')
	{
		$msg = "Adapter driver's cmd entry point rejected a Send ELS";
	}
	elsif ($errnum eq '00000150')
	{
		$msg  = "INFO: conc. attr. change requested, but driver not ";
                $msg .= "in fit state";
	}
	elsif ($errnum eq '00000151')
	{
		$msg  = "INFO: dyntrk=yes requested, but not fabric attached";
	}
	elsif ($errnum eq '00000153')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: dyntrk=yes requested, but V1 target has V0 ";
                $msg .= "LUNs ($wwpn, $lun)";
	}
	elsif ($errnum eq '00000154')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: dyntrk=yes requested, but LUN doesn't support ";
                $msg .= "concurrent changes ($wwpn, $lun)";
	}
	elsif ($errnum eq '00000155')
	{
		$msg  = "INFO: dyntrk=no requested, but target recovery is ";
                $msg .= "active ($wwpn)";
	}
	elsif ($errnum eq '00000156')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: dyntrk=no requested, but LUN doesn't support ";
                $msg .= "concurrent changes ($wwpn, $lun)";
	}
	elsif ($errnum eq '00000157')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: dyntrk=no requested, but LUN awaiting ";
                $msg .= "DEV_RESTART ($wwpn, $lun)";
	}
	elsif ($errnum eq '00000158')
	{
		$msg  = "INFO: fc_err_recov=fast_fail requested, but not ";
                $msg .= "fabric attached";
	}
	elsif ($errnum eq '0000015A')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: fc_err_recov=delayed_fail requested, but LUN ";
                $msg .= "has recovery pending ($wwpn, $lun)";
	}
	elsif ($errnum eq '0000015B')
	{
		$msg  = "INFO: dyntrk=yes succeeded, but target won't ";
                $msg .= "benefit due to V0 LUNs ($wwpn)";
	}
	elsif ($errnum eq '00000226')
	{
		$msg  = "Cancel completed but task mgmt cancel timed out ";
		$msg .= "for $rnport; re-issuing cancel";
	}
	elsif ($errnum eq '00000302')
	{
		$msg = "Adapter driver refused NPIV SCSI cmd for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000326')
	{
		$msg  = "NPIV client SCSI request for $rnport was failed by ";
                $msg .= "adapter. See reply IOCB for exact reason";
	}
	elsif ($errnum eq '00000327')
	{
		$msg = "Dropped or damaged frames for NPIV client from $rnport";
	}
	elsif ($errnum eq '00000402')
	{
                my $reason = &bytes($sense, 8, 4);

                if ($reason eq '00000001')
                {
                    $msg = "Driver is closing with unlogged errors for link";
                }
                elsif ($reason eq '00000002')
                {
                    $msg = "Link has recovered";
                }
                else
                {
                    $msg = "Error counts reset for link (unknown reason)";
                }
        }
	elsif ($errnum eq '00000403')
	{
                my $reason = &bytes($sense, 8, 4);

                if ($reason eq '00000001')
                {
                    $msg  = "Driver is closing with unlogged errors for ";
                    $msg .= "target $rnport";
                }
                elsif ($reason eq '00000002')
                {
                    $msg = "Target $rnport has recovered";
                }
                else
                {
                    $msg  = "Error counts reset for target $rnport ";
                    $msg .= "(unknown reason)";
                }
	}
	elsif ($errnum eq '00000509')
	{
		$msg = "Out of resources for newly-arrived Target Mode command";
	}
	elsif ($errnum eq '00000525')
	{
		my $parameter = &byte_reverse(&bytes($sense, 368, 4));
		my $status    = &nibbles(     &bytes($sense, 380, 1), 0, 1);
		my $cmd       =               &bytes($sense, 381, 1);

		$msg = "Target Mode IOCB failure ";
		$msg .= "(cmd $cmd, status $status, parameter $parameter)";
	}
	elsif ($errnum eq '000005B2')
	{
		$msg = "ABTS received for unknown Target Mode exchange";
	}
	elsif ($errnum eq '00000A30')
	{
		$msg = "Cancel for command entry point failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000B01')
	{
		$msg = "Adapter driver cmd entry rejected cancel; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000BFF')
	{
		my $size = &words($sense, 2, 1);
		$msg = "ioctl send sequence requested response buf over 4K; ";
		$msg .= "size = $size"
	}
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	if ($ERRNUMS)
	{
        	$msg = "$errnum: $msg";
	}

	printf("%s", $msg);
}


sub FCP_ERR_QLogic_qlfsc
{
	my @error = @_;

	my $sense  = &get_sense_data(@error);

	my $errnum = &bytes($sense,  4, 4);
	my $errno  = &hex2int(&bytes($sense, 8, 4));	# often an errno value
	my $rnport = "port 0x" . &bytes($sense, 65, 3);
	my $wwpn   = "wwpn " . &bytes($sense, 822, 8);

	my $msg = ""; 

	if    ($errnum eq '00000001')
	{
		$msg = "INQUIRY (from SCIOLINQU) for $rnport timeout";
	}
	elsif    ($errnum eq '00000003')
	{
		$msg = "TEST UNIT READY (from SCIOLTUR) for $rnport timeout";
	}
	elsif    ($errnum eq '00000004')
	{
		$msg = "SCSI READ (from SCIOLREAD) for $rnport timeout";
	}
	elsif    ($errnum eq '00000007')
	{
		$msg = "Error on task management for $rnport";
	}
	elsif ($errnum eq '0000000B')
	{
		my $reason = &words($sense, 2, 1);
		$msg = "Name server rejected GCS_ID for $rnport, ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '00000016')
	{
		$msg = "Interrupt level task mgmt failed for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000017')
	{
		$msg = "Interrupt level task mgmt failed for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000023')
	{
		$msg  = "Timeout for non-active (already timed out?) cmd ";
                $msg .= "for $rnport";
	}
	elsif ($errnum eq '00000026')
	{
		$msg = "Cancel timeout for $rnport";
	}
	elsif ($errnum eq '00000029')
	{
		$msg = "Login or move login timeout for $rnport";
	}
	elsif ($errnum eq '0000002E')
	{
		$msg = "Data underrun detected by adapter for $rnport";
	}
	elsif ($errnum eq '00000030')
	{
		$msg  = "Received HARD_FAIL notification from adap DD";
	}
	elsif ($errnum eq '00000040')
	{
		$msg = "Adap DD failed I/O for $rnport (DMA map failure?)";
	}
	elsif ($errnum eq '0000002C')
	{
		$msg = "Interrupt level target reset timeout for $rnport";
	}
	elsif ($errnum eq '00000047')
	{
		$msg = "SCSI request for $rnport failed by adapter because ";
		$msg .= "target port name has changed";
	}
	elsif ($errnum eq '00000048')
	{
		$msg = "SCSI request aborted by target $rnport";
	}
	elsif ($errnum eq '0000004A')
	{
		my $over_under = &bytes($sense, 8, 4);

		if ($over_under eq '00001500')
		{
			$msg = "Data underrun";
		}
		elsif ($over_under eq '00000700')
		{
			$msg = "Data overrun";
		}
		else
		{
			$msg = "Unknown error 0x4A subcode $over_under";
		}

		$msg .= " for $rnport";
	}
	elsif ($errnum eq '0000004E')
	{
		$msg = "PLOGI for device START found different target ";
		$msg .= "WWPN than expected"
	}
	elsif ($errnum eq '00000053')
	{
		$msg  = "ELS passthru failure for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006A')
	{
		$msg = "Adapter driver rejected I/O request for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006C')
	{
		$msg  = "Adapter driver rejected target cancel for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006D')
	{
		my $hstat = &bytes($sense, 8, 4);
		$msg  = "Adapter failed I/O for $rnport with non-zero header ";
                $msg .= "status ($hstat)";
	}
	elsif ($errnum eq '0000006F')
	{
		$msg  = "Adapter driver rejected login/logout/lookup ";
                $msg .= "for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000071')
	{
		$msg = "Timeout waiting for adapter driver to RESUME";
	}
	elsif ($errnum eq '0000009A')
	{
		$msg = "Bad eyecatcher preparing to start cmds for device";
	}
	elsif ($errnum eq '000000A1')
	{
		$msg = "Relogin failed for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000A2')
	{
		my $ewwpn = &bytes($sense, 822, 8);
		my $ewwnn = &bytes($sense, 830, 8);
		my $fwwpn = &bytes($sense, 838, 8);
		my $fwwnn = &bytes($sense, 846, 8);

		$msg = "Relogin completed, but new WWPN\/WWNN; ";
		$msg .= "expected $ewwpn\/$ewwnn found $fwwpn\/$fwwnn";
	}
	elsif ($errnum eq '000000A3')
	{
		$msg  = "Reset adapter request failed";
	}
	elsif ($errnum eq '000000A5')
	{
		$msg = "CT_IU passthru failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AA')
	{
		$msg = "GID_PN failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AC')
	{
		$msg = "Name server query failure";
	}
	elsif ($errnum eq '000000AD')
	{
		$msg = "Dynamic tracking operation for $rnport failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AF')
	{
		my $reason = &words($sense, 2, 1);
		$msg = "NS GID_PN reject " . $wwpn . "; ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '000000B1')
	{
		$msg = "Adapter driver rejected login for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000B8')
	{
		$msg = "Adapter driver rejected CT_IU (regarding $rnport?); ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000C3')
	{
		my $ewwpn = &bytes($sense, 822, 8);
		$msg = "SCIOLSTART would duplicate WWPN ($ewwpn) in target ";
		$msg .= "hash; (dyntrk in progress during START?)"
	}
	elsif ($errnum eq '000000C8')
	{
		$msg = "Dynamic tracking failed (or not enabled) $wwpn";
	}
        elsif ($errnum eq '000000D3')
        {
                my $pid  = &hex2int(&words($sense,  20, 1));
                $msg  = "dyntrk enabled, but version 0 ioctl requested by ";
                $msg .= "PID $pid";
        }
	elsif ($errnum eq '000000DB')
	{
		$msg = "Not issuing relogin--target's scsi_id ($rnport) ";
		$msg .= "is STALE";
	}
	elsif ($errnum eq '000000E5')
	{
		$msg = "SCIOLSTART attempted for own scsi_id with dyntrk off ";
		$msg .= "and no WWPN supplied (debug)";
	}
	elsif ($errnum eq '00000150')
	{
		$msg  = "INFO: conc. attr. change requested, but driver not ";
                $msg .= "in fit state";
	}
	elsif ($errnum eq '00000151')
	{
		$msg  = "INFO: dyntrk=yes requested, but not fabric attached";
	}
	elsif ($errnum eq '00000152')
	{
		$msg  = "INFO: dyntrk=no requested, but Target Mode started";
	}
	elsif ($errnum eq '00000153')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: dyntrk=yes requested, but V1 target has V0 ";
                $msg .= "LUNs ($wwpn, $lun)";
	}
	elsif ($errnum eq '00000154')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: dyntrk=yes requested, but LUN doesn't support ";
                $msg .= "concurrent changes ($wwpn, $lun)";
	}
	elsif ($errnum eq '00000155')
	{
		$msg  = "INFO: dyntrk=no requested, but target recovery is ";
                $msg .= "active ($wwpn)";
	}
	elsif ($errnum eq '00000156')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: dyntrk=no requested, but LUN doesn't support ";
                $msg .= "concurrent changes ($wwpn, $lun)";
	}
	elsif ($errnum eq '00000157')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: dyntrk=no requested, but LUN awaiting ";
                $msg .= "DEV_RESTART ($wwpn, $lun)";
	}
	elsif ($errnum eq '00000158')
	{
		$msg  = "INFO: fc_err_recov=fast_fail requested, but not ";
                $msg .= "fabric attached";
	}
	elsif ($errnum eq '0000015A')
	{
                my $lun = &bytes($sense, 20, 8);
		$msg  = "INFO: fc_err_recov=delayed_fail requested, but LUN ";
                $msg .= "has recovery pending ($wwpn, $lun)";
	}
	elsif ($errnum eq '0000015B')
	{
		$msg  = "INFO: dyntrk=yes succeeded, but target won't ";
                $msg .= "benefit due to V0 LUNs ($wwpn)";
	}
	elsif ($errnum eq '000001E4')
	{
		$msg = "Kernel extension SCIOLSTOP for app-STARTed device";
	}
	elsif ($errnum eq '000001E5')
	{
		$msg = "App SCIOLSTOP from kernel extension-STARTed device";
	}
	elsif ($errnum eq '000001E6')
	{
		$msg = "App SCIOLSTOPINITR for kernel extension-STARTed initr";
	}
	elsif ($errnum eq '000001E7')
	{
		$msg = "Kernel extension SCIOLSTOPINITR for app-STARTed initr";
	}
	elsif ($errnum eq '000001E8')
	{
		$msg = "SCIOLSTOPINITR: active cmds after NPIV_CLR; resetting adapter";
	}
	elsif ($errnum eq '000001E9')
	{
		$msg = "SCIOLSTOPINITR: active cmds after reset; continuing to wait";
	}
	elsif ($errnum eq '000001EA')
	{
		$msg  = "Target logout failure for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000001EB')
	{
		$msg  = "SCIOLSTOP: active cmds after logout from $rnport; ";
		$msg .= "resetting adapter";
	}
	elsif ($errnum eq '000001EC')
	{
		$msg = "SCIOLSTOP: active cmds after reset; continuing to wait";
	}
	elsif ($errnum eq '000001ED')
	{
		$msg = "NPIV port logout for $rnport requested while NPIV client not ready";
	}
	elsif ($errnum eq '00000200')
	{
		$msg = "Kernel service registration failed (rc = $errno)";
	}
	elsif ($errnum eq '00000201')
	{
		$msg = "Kernel service unregistration failed (rc = $errno)";
	}
	elsif ($errnum eq '00000202')
	{
		$msg = "Kernel service couldn't be unregistered--busy";
	}
	elsif ($errnum eq '000002F1')
	{
		$msg = "Bad eyecatcher during SCIOLSTOP (errcheck only)";
	}
	elsif ($errnum eq '00000304')
	{
		$msg = "NPIV SCSI command build routine unexpected rc ($errno)";
	}
	elsif ($errnum eq '00000320')
	{
		$msg = "Adapter rejected NPIV SCSI IOCB for $rnport";
	}
	elsif ($errnum eq '00000321')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "DMA error";
	}
	elsif ($errnum eq '00000322')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "unspecified transport error";
	}
	elsif ($errnum eq '00000323')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "LIP reset";
	}
	elsif ($errnum eq '00000324')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "invalid exchange ID";
	}
	elsif ($errnum eq '00000325')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "overlapping, missing, or out of order frames";
	}
	elsif ($errnum eq '00000326')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "target aborted command";
	}
	elsif ($errnum eq '00000327')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "port not logged in";
	}
	elsif ($errnum eq '00000328')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "port logged out";
	}
	elsif ($errnum eq '00000329')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "new WWPN";
	}
	elsif ($errnum eq '0000032A')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "firmware out of resources";
	}
	elsif ($errnum eq '0000032B')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "task management resource shortage";
	}
	elsif ($errnum eq '0000032C')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "subcode error";
	}
	elsif ($errnum eq '0000032D')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "target aborted exchange";
	}
	elsif ($errnum eq '0000032E')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "unknown completion status";
	}
	elsif ($errnum eq '0000032F')
	{
		$msg  = "NPIV SCSI cmd for $rnport failed; ";
		$msg .= "adapter driver reports unknown status";
	}
	elsif ($errnum eq '00000330')
	{
		$msg  = "Adapter DD rejected NPIV Admin cmd for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000334')
	{
		$msg = "NPIV Admin cmd failed; unknown failure_type ($errno)";
	}
	elsif ($errnum eq '00000335')
	{
		$msg = "NPIV SCSI PRLI failed; unknown failure_type ($errno)";
	}
	elsif ($errnum eq '00000336')
	{
		$msg  = "NPIV SCSI cmd returned to Admin return point ";
		$msg .= "(for $rnport)";
	}
	elsif ($errnum eq '00000337')
	{
		$msg = "Unknown NPIV Admin cmd received at return point";
	}
	elsif ($errnum eq '00000340')
	{
		$msg = "VIOS NPIV DD rejected completion of NPIV Admin cmd";
	}
	elsif ($errnum eq '00000341')
	{
		$msg  = "No function ptr to return NPIV Admin cmd to ";
		$msg .= "VIOS NPIV DD";
	}
	elsif ($errnum eq '00000348')
	{
		$msg = "VIOS NPIV DD rejected completion of NPIV SCSI cmd";
	}
	elsif ($errnum eq '00000349')
	{
		$msg  = "No functionp ptr to return NPIV SCSI cmd to ";
		$msg .= "VIOS NPIV DD";
	}
	elsif ($errnum eq '00000350')
	{
		$msg  = "NPIV async processing: unknown async status option ";
		$msg .= " ($errno)";
	}
	elsif ($errnum eq '00000351')
	{
		$msg  = "NPIV async processing: unknown async status code ";
		$msg .= " ($errno)";
	}
	elsif ($errnum eq '00000355')
	{
		$msg = "FCP_RSP IU build failure for response from $rnport";
	}
	elsif ($errnum eq '00000356')
	{
		$msg  = "NPIV PRLI (for $rnport) returned to ";
		$msg .= "NPIV SCSI return point";
	}
	elsif ($errnum eq '00000357')
	{
		$msg = "Unknown NPIV cmd returned to NPIV SCSI return point";
	}
	elsif ($errnum eq '00000358')
	{
		$msg = "Adapter rejected NPIV Marker for $rnport";
	}
	elsif ($errnum eq '00000359')
	{
		$msg = "NPIV Marker command for $rnport failed";
	}
	elsif ($errnum eq '00000360')
	{
		$msg = "VIOS NPIV driver rejected async status";
	}
	elsif ($errnum eq '00000402')
	{
                my $reason = &bytes($sense, 8, 4);

                if ($reason eq '00000001')
                {
                    $msg = "Driver is closing with unlogged errors for link";
                }
                elsif ($reason eq '00000002')
                {
                    $msg = "Link has recovered";
                }
                else
                {
                    $msg = "Error counts reset for link (unknown reason)";
                }
        }
	elsif ($errnum eq '00000403')
	{
                my $reason = &bytes($sense, 8, 4);

                if ($reason eq '00000001')
                {
                    $msg  = "Driver is closing with unlogged errors for ";
                    $msg .= "target $rnport";
                }
                elsif ($reason eq '00000002')
                {
                    $msg = "Target $rnport has recovered";
                }
                else
                {
                    $msg  = "Error counts reset for target $rnport ";
                    $msg .= "(unknown reason)";
                }
	}
	elsif ($errnum eq '00000D01')
	{
		$msg = "Bad initiator eyecatcher during SCIOLSTOPINITR";
	}
	elsif ($errnum eq '00000D15')
	{
		$msg = "Initiator cleanup called with invalid value (defect)";
	}
	elsif ($errnum eq '00000D16')
	{
		$msg = "Invalid eyecatcher while adding initiator for adapter";
	}
	elsif ($errnum eq '00000D17')
	{
		$msg  = "Adapter driver failed NPIV_CLR request; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000D19')
	{
		$msg = "Invalid eyecatcher while adding initiator (errcheck)";
	}
	elsif ($errnum eq '0000A102')
	{
		$msg = "Bad initiator eyecatcher during SCIOLSTOP";
	}
	elsif ($errnum eq '0000A103')
	{
		$msg = "Bad initiator eyecatcher during SCIOLSTART";
	}
	elsif ($errnum eq '0000A110')
	{
		$msg = "VIOS NPIV rejected completion of a flushed command";
	}
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	if ($ERRNUMS)
	{
        	$msg = "$errnum: $msg";
	}

	printf("%s", $msg);
}


# ---------------------------------------------------------------------------
# LABEL:          FCS_ERR2
# IDENTIFIER:     825849BF
# 
# [...]
# 
# VPD:             
# [...]
# 
# Detail Data
# SENSE DATA
# 0000 0000 0000 0027 ....
# [...]
# ---------------------------------------------------------------------------
sub FCS_ERR
{
	my @error = @_;

	my $sense  = &get_sense_data(@error);

	my $errnum = &bytes($sense,  4, 4);

	my $msg = ""; 

	if    ($errnum eq '00000001')
	{
		$msg = "mailbox failed with a link-type error";
	}
	elsif ($errnum eq '00000005')
	{
		my $mb = &bytes($sense, 105, 1);
		my $st = &byte_reverse(&bytes($sense, 106, 2));
		$msg = "Adapter mailbox request ($mb) failed with unexpected ";
		$msg .= "status $st";
	}
	elsif ($errnum eq '00000006')
	{
		my $st = &byte_reverse(&bytes($sense, 106, 2));
		my $mb = &bytes($sense, 105, 1);
		$msg = "Adapter mailbox request ($mb) failed with unknown ";
		$msg .= "status $st";
	}
	elsif ($errnum eq '00000007')
	{
		my $st = &byte_reverse(&bytes($sense, 106, 2));
		$msg = "Adapter configuration mailbox failed with status $st";
	}
	elsif ($errnum eq '0000000C')
	{
		my $els = &words($sense, 34, 1);
		$msg  = "Unsolicited unsupported ELS (";
		$msg .= &lookup("ELS ", $els, \%fc_payload_op_lt);
		$msg .= ") received";
	}
	elsif ($errnum eq '00000017')
	{
		my $pay_op	= &words($sense,  34, 1);
		my $rc		= &bytes($sense, 122, 1);
		my $re		= &bytes($sense, 121, 1);

		$msg = "(1 of 2) ELS failed with LS_RJT, ";
		$msg .= &lookup("payload opcode ", $pay_op, \%fc_payload_op_lt);
		$msg .= ", " . &lookup("Reason code ", $rc, \%fc_lsrjt_rc_lt);
		$msg .= ", " . &lookup("Explanation ", $re, \%fc_lsrjt_re_lt);
	}
	elsif ($errnum eq '0000001B')
	{
		$msg = "IOCB failed w/ Invalid RPI and retries exceeded";
	}
	elsif ($errnum eq '00000021')
	{
		my $els_op	= &words($sense, 34, 1);
		my $rport	= &byte_reverse(&bytes($sense, 124, 3));
		my $rc		= &bytes($sense, 120, 1);

		$msg  = "Adapter Local Reject (code $rc) for ";
		$msg .= &lookup("ELS ", $els_op, \%fc_payload_op_lt);
		$msg .= " to port 0x" . $rport;
	}
	elsif ($errnum eq '00000024')
	{
		$msg = "Adap DD generated IOCB has failed";
	}
	elsif ($errnum eq '00000026')
	{
		my $mb = &bytes($sense, 105, 1);
		my $st = &byte_reverse(&bytes($sense, 106, 2));
		$msg  = "Mailbox command ($mb) timed out (status $st)";
	}
	elsif ($errnum eq '00000027')
	{
		my $payload_op = &words($sense, 26, 1);
		$msg = "IOCB timeout, ";
		$msg .= &lookup("payload opcode ", $payload_op,
		                \%fc_payload_op_lt);
	}
	elsif ($errnum eq '00000029')
	{
		my $size = &words($sense, 26, 1);
		my $rc   = &words($sense, 27, 1);

		$msg = "D_MAP_LIST failure; size 0x$size, ";
		$msg .= &lookup("rc ", $rc, \%aix_d_map_list_rc_lt);
	}
	elsif ($errnum eq '0000002E')
	{
		$msg = "Request to adapter to 'abort multiple' has timed out";
	}
	elsif ($errnum eq '00000030')
	{
		$msg = "Error attention";

		# Some of these have the SENSE DATA decorated with a
		# diagnostic analysis including an SRN.  Retrieve it if so.
		my $srn = "";
		for (my $i = 0; $i <= $#error; $i++)
		{
			if ($error[$i] =~ /^SRN:/)
			{
				$srn = $error[$i];
				chomp($srn);
				$srn =~ s/\s+/ /g;
				$msg = "$msg $srn";
				last;
			}
		}
	}
	elsif ($errnum eq '00000037')
	{
		$msg = "Adapter configuration/startup failed";
	}
	elsif ($errnum eq '00000038')
	{
		$msg = "No free command structure to reply to unsolicited ELS";
	}
	elsif ($errnum eq '0000003A')
	{
		$msg = "No buffers available to receive async sequence";
	}
	elsif ($errnum eq '00000041')
	{
		$msg = "Link is dead (has been down several seconds)";
	}
	elsif ($errnum eq '00000048')
	{
		$msg = "LOGO from remote port 0x000000";
	}
	elsif ($errnum eq '00000051')
	{
		$msg = "Error attention (continued from previous error)";
	}
	elsif ($errnum eq '00000053')
	{
		$msg = "(2 of 2) ELS failed with LS_RJT";
	}
	elsif ($errnum eq '0000005D')
	{
		$msg = "An unrecognized unsolicited IOCB was received";
	}
	elsif ($errnum eq '0000005E')
	{
		$msg = "Error detected in response to transmitted sequence";
	}
	elsif ($errnum eq '00000071')
	{
		$msg = "timeout waiting for adap quiesce for ucode download";
	}
	elsif ($errnum eq '000000C4')
	{
		my $rpi = &bytes($sense, 138, 2);
		$msg  = "Proto IOCB failed w/ Invalid RPI ($rpi); RPI not free";
	}
	elsif ($errnum eq '00000127')
	{
		$msg = "Kill board mailbox timeout";
	}
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	if ($ERRNUMS)
	{
        	$msg = "$errnum: $msg";
	}

	printf("%s", $msg);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          FIRMWARE_EVENT
# IDENTIFIER:     A6D1BD62
# 
# [...]
# 
# Description
# Firmware Event
# 
# Detail Data
# Event Information
# 0124 0000 0000 0032 C600 8401 1614 5500 2010 0519 0000 626F 6F74 2D6D ...
# 0000 20A8 0110 0001 0000 0000 0000 0000 4942 4D00 0000 0000 0002 
# 
# Diagnostic Analysis
# Diagnostic Log sequence number: 6
# Resource tested:        sysplanar0
# Resource Description:   System Planar
# Location:               
# SRN:                    20A80110
# Description:            Refer to the Error Code to FRU Index in the system
#                         service guide.
# Possible FRUs:
#                      FRU:                                      
# 
# ---------------------------------------------------------------------------
sub FIRMWARE_EVENT
{
	my @error 	= @_;
	my $srn		= "(no SRN found)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^SRN:/)
		{
			$srn = $error[$i];
			chomp($srn);
			$srn =~ s/\s+/ /g;
			last;
		}
	}

	printf("%s", $srn);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          FSCSI_ERR6
# IDENTIFIER:     B8FBD189
# 
# [...]
# 
# Detail Data
# SENSE DATA
# 0000 0000 0000 00A1 ....
# ---------------------------------------------------------------------------
sub FSCSI_ERR
{
	my @error = @_;

	my $sense  = &get_sense_data(@error);

	my $errnum = &bytes($sense,  4, 4);
	my $errno  = &hex2int(&bytes($sense, 8, 4));	# often an errno value
	my $rnport = "port 0x" . &bytes($sense,  65, 3);
	my $wwpn   = "wwpn 0x" . &bytes($sense, 188, 8);

	my $msg = ""; 

	if    ($errnum eq '00000001')
	{
		my $lun = "lun 0x" . &bytes($sense, 20, 8);
		$msg = "ioctl(SCIOLINQU) timeout; $rnport $lun";
	}
	elsif ($errnum eq '00000003')
	{
		my $lun = "lun 0x" . &bytes($sense, 20, 8);
		$msg = "ioctl(SCIOLTUR) timeout; $rnport $lun";
	}
	elsif ($errnum eq '00000004')
	{
		my $lun = "lun 0x" . &bytes($sense, 20, 8);
		$msg = "ioctl(SCIOLREAD) timeout; $rnport $lun";
	}
	elsif ($errnum eq '00000007')
	{
		$msg = "Attempt to cancel a request to $rnport failed";
	}
	elsif ($errnum eq '0000000A')
	{
		my $reason = &words($sense, 2, 1);
		$msg = "Name server rejected GID_PN, ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '0000000B')
	{
		my $reason = &words($sense, 2, 1);
		$msg = "Name server rejected GCS_ID for $rnport, ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '0000000F')
	{
		$msg = "ioctl() WWPN\/WWNN does not match target";
	}
	elsif ($errnum eq '00000015')
	{
		my $rspiu = &words($sense, 45, 10);
		$msg = "Process level task management failed; ";
		$msg .= &FCP_RSP_IU($rspiu);
	}
	elsif ($errnum eq '00000017')
	{
		$msg = "Error on intr lvl TM; errno ";
		$msg .= &lookup("", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000001F')
	{
		$msg = "Data overrun (in FCP response)";
	}
	elsif ($errnum eq '00000023')
	{
		$msg = "Timeout for inactive command";
	}
	elsif ($errnum eq '00000025')
	{
		$msg = "Adapter driver rejected TM Abort Task Set for $rnport;";
		$msg .= " " . &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000026')
	{
		$msg = "Device cancel timeout";
	}
	elsif ($errnum eq '00000028')
	{
		$msg = "Target cancel for $rnport timed out";
	}
	elsif ($errnum eq '00000029')
	{
		$msg = "Relogin request timeout for $rnport";
	}
	elsif ($errnum eq '0000002A')
	{
		$msg = "PRLI or PDISC to $rnport timed out";
	}
	elsif ($errnum eq '0000002B')
	{
		$msg = "process lvl task mgt timeout";
	}
	elsif ($errnum eq '0000002C')
	{
		$msg = "Target reset to $rnport timed out";
	}
	elsif ($errnum eq '0000002E')
	{
		my $rspiu = &words($sense, 45, 10);
		$msg = "Data underrun receiving from $rnport ";
		$msg .= &FCP_RSP_IU($rspiu);
	}
	elsif ($errnum eq '00000030')
	{
		$msg = "Async status - NDD_HARD_FAIL";
	}
	elsif ($errnum eq '00000031')
	{
		$msg = "Async status - LINK_DOWN";
	}
	elsif ($errnum eq '00000032')
	{
		$msg = "Async status - LINK_UP";
	}
	elsif ($errnum eq '00000033')
	{
		$msg = "Async LOGO--target has a started LUN (debug)";
	}
	elsif ($errnum eq '00000035')
	{
		$msg = "Async adapter status--LIP or SCN (debug)";
	}
	elsif ($errnum eq '00000037')
	{
		$msg = "Async status--SCN received (debug)";
	}
	elsif ($errnum eq '0000003B')
	{
		$msg = "Async status--adapter halted";
	}
	elsif ($errnum eq '0000003C')
	{
		$msg = "Async status--adapter resumed";
	}
	elsif ($errnum eq '0000003E')
	{
		$msg = "Target SCIOLSTARTed as version 1, but received version 0 ioctl";
	}
	elsif ($errnum eq '00000041')
	{
		$msg = "Request failed--adapter reported HW failure";
	}
	elsif ($errnum eq '00000042')
	{
		$msg = "Request failed--adapter reported software error";
	}
	elsif ($errnum eq '00000049')
	{
		my $rc = &bytes($sense, 116, 1);
		$msg = "Adapter returned unexpected Local Reject status ";
		$msg .= "(code $rc)";
	}
	elsif ($errnum eq '0000004A')
	{
		$msg = "Error detected while receiving from $rnport ";
		$msg .= "(possible marginal link)";
	}
	elsif ($errnum eq '0000004B')
	{
		$msg = "Unknown IOCB status";
	}
	elsif ($errnum eq '0000004E')
	{
		$msg = "ioctl() WWPN\/WWNN doesn't match known $wwpn for $rnport";
	}
	elsif ($errnum eq '0000004F')
	{
		$msg = "Nameserver request regarding $rnport timed out";
	}
	elsif ($errnum eq '00000061')
	{
		$msg = "Device does not support FC classes we like";
	}
	elsif ($errnum eq '0000006A')
	{
		$msg = "Adapter driver rejected I/O request for $rnport; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006B')
	{
		$msg = "Cancel IOCB not accepted by output";
	}
	elsif ($errnum eq '0000006C')
	{
		$msg = "Cancel IOCB not accepted; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006E')
	{
		$msg = "Target reset IOCB not accepted; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '0000006F')
	{
		$msg = "Target cancel IOCB not accepted; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '00000070')
	{
		$msg = "Timeout waiting for link up";
	}
	elsif ($errnum eq '00000071')
	{
		$msg = "Timeout waiting for adapter to resume";
	}
	elsif ($errnum eq '00000073')
	{
		$msg = "Unsolicited IOCB received";
	}
	elsif ($errnum eq '0000007A')
	{
		$msg = "Async adapter status: adapter has been reset";
	}
	elsif ($errnum eq '0000007F')
	{
		$msg = "LUN reset not accepted; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000A1')
	{
		$msg = "Relogin to $rnport failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000A2')
	{
		$msg = "Relogin completed, but new WWPN\/WWNN";
	}
	elsif ($errnum eq '000000A3')
	{
		$msg = "Reset ring for SCSI IOCB ring failed";
	}
	elsif ($errnum eq '000000A5')
	{
		$msg = "Send sequence failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AA')
	{
		$msg = "GID_PN nameserver request failed with ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AC')
	{
		my $reason = &words($sense, 2, 1);
		$msg = "Nameserver GID_PN or GPN_ID ";
		if ($reason =~ /00000000/)
		{
			$msg .= "failed by adapter driver";
		}
		else
		{
			$msg .= "rejected with ";
			$msg .= &lookup("reason code ", $reason, \%fc_nsrjt_lt);
		}
	}
	elsif ($errnum eq '000000AC')
	{
		$msg = "Name server query failed or rejected";
	}
	elsif ($errnum eq '000000AD')
	{
		$msg = "Dynamic tracking failed; $rnport/$wwpn ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000AF')
	{
		my $reason = &words($sense, 2, 1);
		$msg = "NS GID_PN reject " . $wwpn . "; ";
		$msg .= &lookup("", $reason, \%fc_nsrjt_lt);
	}
	elsif ($errnum eq '000000B0')
	{
		$msg = "Reset ring request not accepted; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000B1')
	{
		my $retries = &bytes($sense, 136, 1);

		$msg = "Relogin to $rnport rejected; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
		$msg .= "; retries = $retries";
	}
	elsif ($errnum eq '000000B2')
	{
		$msg = "PDISC to $rnport failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000B4')
	{
		$msg = "MOVE_LOGIN request refused by adap DD; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000B5')
	{
		$msg = "Relogin with name server failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000B7')
	{
		$msg = "Adapter driver refused send sequence; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000BD')
	{
		$msg = "MOVE_LOGIN request failed; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000C0')
	{
		$msg = "PRLI failed";
	}
	elsif ($errnum eq '000000C3')
	{
		$msg = "target moved to new scsi_id, but tracking not complete";
	}
	elsif ($errnum eq '000000C7')
	{
		$msg  = "Issue MOVE_LOGIN failed for a target returning to orig scsi_id; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	elsif ($errnum eq '000000C8')
	{
		$msg = "dyntrk failure detected in ioctl() path " . $wwpn;
	}
	elsif ($errnum eq '000000D0')
	{
		$msg = "Request for zero-length SCSI cmd received";
	}
	elsif ($errnum eq '000000D1')
	{
		$msg = "Interrupt for inactive command";
	}
	elsif ($errnum eq '000000D2')
	{
		$msg = "Received I\/O request for invalid device";
	}
	elsif ($errnum eq '000000D3')
	{
                my $pid  = &hex2int(&words($sense,  20, 1));
                $msg  = "dyntrk enabled, but version 0 ioctl requested by ";
                $msg .= "PID $pid";
	}
	elsif ($errnum eq '000000D9')
	{
		my $conn = &bytes($sense, 12, 1);
		my $fw   = &hex2int(&bytes($sense, 68, 1));
		my $pid  = &hex2int(&words($sense, 20, 1));

		$msg = "PID $pid wants fast_fail/dyntrk; unsupported ";
		$msg .= "FW level ($fw) or conn (";
		if ($conn eq '01')
		{
			$msg .= "point to point";
		}
		elsif ($conn eq '02')
		{
			$msg .= "switch";
		}
		elsif ($conn eq '03')
		{
			$msg .= "loop";
		}
		else
		{
			$msg .= "unknown";
		}
		$msg .= ")";
		
	}
	elsif ($errnum eq '000000DB')
	{
		$msg = "issue_relogin abandoned; STALE scsi_id " . $wwpn;
	}
	elsif ($errnum eq '000000F0')
	{
		$msg = "strategy() received unsup. scsi buf";
	}
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	if ($ERRNUMS)
	{
        	$msg = "$errnum: $msg";
	}

	printf("%s", $msg);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          INIT_RAPID
# IDENTIFIER:     3A30359F
# 
# [...]
# 
# Detail Data
# SOFTWARE ERROR CODE
# Command is respawning too rapidly. Check for possible errors.
# COMMAND
# id:  tsm1 "/usr/bin/dsmc sched -optfile=/usr/tivoli/tsm/client/oracle/...
# ---------------------------------------------------------------------------
sub INIT_RAPID
{
	my @error	= @_;
	my $desc	= "unknown";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^COMMAND/)
		{
			$desc = $error[$i + 1];
			chomp($desc);
			last;
		}
	}

	printf("%s", $desc);
}


#---------------------------------------------------------------------------
#LABEL:          ISCSISW_ERR2
#
#[...]
#
#Detail Data
#SENSE DATA
#0000 0000 0000 40C6 0000 0302 0000 0000 0000 0000 0000 0000 0000 0000 0100 0000
#0000 0000 0A0A 0101 0000 0000 0000 0000 0000 0000 0000 0000 0100 0000 0000 0000
#0001 0204 0000 0000 0000 000A 0000 0000 0000 0030 0000 0000 0000 0000 0000 0000
#0000 0001 F100 0100 2D50 5000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#[...]
#---------------------------------------------------------------------------
sub ISCSISW_ERR
{
	my @error = @_;

	my $sense   = &get_sense_data(@error);
	my $logtype = &nibbles(&shorts($sense, 3, 1), 0, 1);
	my $errnum  = &nibbles(&shorts($sense, 3, 1), 1, 3);

	my $msg = ""; 

	if    ($errnum eq '001')
	{
	}
	elsif ($errnum eq '0C6')
	{
		my $sc = &bytes($sense, 11, 1);
		my $sd = &bytes($sense, 10, 1);

		$msg = "Unknown status class ($sc) or detail ($sd) in ";
		$msg .= "login response";
	}

	printf("%s", $msg);

	return;
}


#
# Filesystem error handling
#
# The various filesystem errors will log any of the data items below.
# The list was generated with the following command:
#
# $ errpt -a -t | awk '/^-----/       {f=0}
#                      /Label: J[F2]/ {f++; next}
#                      /Detail Data/  {f++; next}
#                      f==2           {print}' | sort -u
#
# -----------------------------------------
# ADDITIONAL INFORMATION
# BLOCK NUMBER
# BUF STRUCTURE B_FLAGS
# CALLER
# DETECTING MODULE
# DIRECTORY
# ERROR CODE
# FILE NAME
# FILE SYSTEM DEVICE
# FILE SYSTEM DEVICE AND MOUNT POINT
# INODE NUMBER
# JFS2 ERROR LOG FLAG
# JFS2 LOG MAJOR/MINOR DEVICE NUMBER
# JFS2 MAJOR/MINOR DEVICE NUMBER
# LINE NO.
# LINE NUMBER
# MAJOR/MINOR DEVICE NUMBER
# PROGRAM NAME
# RESOLUTION STATE
# SNAPSHOT MAJOR/MINOR DEVICE NUMBER
# Snapshot Major/Minor device number
# USER'S PROCESS ID:
# -----------------------------------------
sub JFS_general
{
	my @error 	= @_;
	my $errno	= "";
	my $fs		= "";
	my $fn		= "";
	my $log		= "";
	my $mm		= "";
	my $snap	= "";
	my $msg		= "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^ERROR CODE/)
		{
			my $e;
			$_ = $error[$i+1];
			s/\s//g;
			chomp;
			$e = &hex2int($_);
			$errno = &lookup("errno ", $e, \%aix_errno_lt);
		}

		if ($error[$i] =~ /^FILE NAME/)
		{
			$_ = $error[$i+1];
			s/^\s+//g;
			chomp;
			$fn = "Filename $_";
		}

		if ($error[$i] =~ /^FILE SYSTEM DEVICE/)
		{
			$_ = $error[$i+1];
			s/^\s+//g;
			chomp;
			$fs = "Filesystem $_";
		}

		if ($error[$i] =~ /^JFS2 LOG MAJOR/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$log = "Log device $_";
		}

		if ($error[$i] =~ /^JFS2 MAJOR/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$mm = "Device $_";
		}

		if ($error[$i] =~ /^MAJOR\/MINOR DEVICE/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$mm = "Device $_";
		}

		if ($error[$i] =~ /^SNAPSHOT MAJOR/ ||
                    $error[$i] =~ /^Snapshot Major/)
		{
			$_ = $error[$i+1];
			s/\s+//g;
			chomp;
			$snap = "Snapshot device $_";
		}

	}

	$msg = "$fn $fs $log $mm $snap $errno";
	$msg =~ s/^\s+//g;
	$msg =~ s/\s+/ /g;
	printf("%s", $msg);

	return;
}


#---------------------------------------------------------------------------
#LABEL:          KERNEL_ABEND
#
#[...]
#
#Detail Data
#ABEND CODE
#EEEE 0000 9627 B051 
#ABEND DETAIL
#0000 0000 0000 0000 
#ABEND CALLER
#0000 0000 000F 62C8 
#MACHINE STATE REGISTER, MSR
#8000 0000 0002 1032 
#---------------------------------------------------------------------------
sub KERNEL_ABEND
{
	my @error 	= @_;
	my $krc	        = "(unknown)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^ABEND CODE/)
		{
			$krc = $error[$i + 1];
			chomp($krc);
			$krc =~ s/\s+//g;
                        last;
		}
	}

	printf("%s", $krc);

	return;
}


#---------------------------------------------------------------------------
#LABEL:          LDMP_COMPLETE
#
#[...]
#
#Description      
#Live dump complete
#
#Detail Data      
#File name and message text
#/var/adm/ras/livedump/emfcdd.fcs0.201204251331.00.DZ
#
#---------------------------------------------------------------------------
sub LDMP_COMPLETE
{
	my @error 	= @_;
	my $dmpfile	= "(unknown)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^File name and message text/)
		{
			$dmpfile = $error[$i + 1];
			chomp($dmpfile);
			last;
		}
	}
	printf("%s", $dmpfile);

	return;
}


#---------------------------------------------------------------------------
#LABEL:          LDMP_DUMPERR
#
#[...]
#
#Detail Data
#Error code
#EEEE 0000 8C22 082E 
#Message text
#
#---------------------------------------------------------------------------
sub LDMP_DUMPERR
{
	my @error 	= @_;
	my $krc	        = "(unknown)";
	my $msg	        = "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^Error code/)
		{
			$krc = $error[$i + 1];
			chomp($krc);
			$krc =~ s/\s+//g;
		}

		if ($error[$i] =~ /^Message text/)
		{
			$msg = $error[$i + 1];
			chomp($msg);
		}
	}

	printf("%s %s", $krc, $msg);

	return;
}


#---------------------------------------------------------------------------
#LABEL:          LDMP_PASSTIME
#
#[...]
#
#Description
#System freeze time advisory exceeded
#
#Detail Data
#Advisory value in milliseconds
#         100
#TIMEOUT
#           0
#COMPONENT ID
#emfcdd.fcs1_ct
#---------------------------------------------------------------------------
sub LDMP_PASSTIME
{
	my @error 	= @_;
	my $comp	= "(unknown)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^COMPONENT ID/)
		{
			$comp = $error[$i + 1];
			chomp($comp);
			last;
		}
	}
	printf("Component %s exceeded freeze time", $comp);

	return;
}


#---------------------------------------------------------------------------
#LABEL:          LOST_EVENTS
#
#[...]
#
#Detail Data
#ERROR ID OF FIRST EVENT DISCARDED
#D0EAC662
#ERROR ID OF LAST EVENT DISCARDED
#D0EAC662
#NUMBER OF EVENTS DISCARDED
#10
#---------------------------------------------------------------------------
sub LOST_EVENTS
{
	my @error 	= @_;
	my $num_lost	= "(unknown)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^NUMBER OF EVENTS DISCARDED/)
		{
			$num_lost = $error[$i + 1];
			chomp($num_lost);
			last;
		}
	}
	printf("%s events lost", $num_lost);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          LVM_GS_RLEAVE
# IDENTIFIER:     AB59ABFF
# 
# [...]
# 
# Detail Data
# Remote Node Name
# t3scp01p
# Volume Group ID
# 0004 3BA2 0000 D900 0000 011C 9257 CF53 
# MAJOR/MINOR DEVICE NUMBER
# 01F5 0000 
# SENSE DATA
# 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 ...
# ---------------------------------------------------------------------------
sub LVM_GS_RLEAVE
{
	my @error	= @_;
	my $remote	= "(unknown)";
	my $vgid	= "(unknown)";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^Remote Node Name/)
		{
			$remote = $error[$i+1];
			chomp($remote);
			next;
		}

		if ($error[$i] =~ /^Volume Group ID/)
		{
			$vgid = $error[$i+1];
			chomp($vgid);
			$vgid =~ s/\s+//g;
			next;
		}
	}

	printf("Node: %s  VGID: %s", $remote, $vgid);

	return;
}


#---------------------------------------------------------------------------
#LABEL:          LVM_IO_FAIL
#
#[...]
#
#Detail Data
#PHYSICAL VOLUME DEVICE MAJOR/MINOR
#8000 0028 0000 0052 
#ERROR CODE AS DEFINED IN sys/errno.h
#         110
#BLOCK NUMBER
#              95289488
#LOGICAL VOLUME DEVICE MAJOR/MINOR
#8000 0043 0000 0006 
#PHYSICAL BUFFER TRANSACTION TIME
#                     1
#RESIDUAL COUNT
#                  8192
#NUMBER OF BLOCKS
#                  8192
#I/O TYPE
#USER DATA     
#SENSE DATA
#0000 0000 0002 D700 0023 8BDB 0000 4C00 0000 0117 95F5 AEFC 00CD D08F 4837 5995
#0000 0000 0000 0000 
#---------------------------------------------------------------------------
sub LVM_ERR
{
	my @error = @_;
	my $pv    = "";
	my $lv    = "";
	my $dev   = "";
	my $errno = "";
	my $block = "";
	my $msg   = "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /PHYSICAL VOLUME DEVICE MAJOR/)
		{
			$_ = $error[$i+1];
			s/\s//g;
			chomp;
			$pv = "PV $_";
		}

		if ($error[$i] =~ /LOGICAL VOLUME DEVICE MAJOR/)
		{
			$_ = $error[$i+1];
			s/\s//g;
			chomp;
			$lv = "LV $_";
		}

		if ($error[$i] =~ /^MAJOR\/MINOR DEVICE NUMBER/)
		{
			$_ = $error[$i+1];
			s/\s//g;
			chomp;
			$dev = "Device $_";
		}

		if ($error[$i] =~ /^ERROR CODE/)
		{
			$_ = $error[$i+1];
			s/\s//g;
			chomp;
			$errno = &lookup("errno ", $_, \%aix_errno_lt);
#			$errno = "errno $_";
		}

		if ($error[$i] =~ /^BLOCK NUMBER/)
		{
			$_ = $error[$i+1];
			s/\s//g;
			chomp;
			$block = "Block " . &int2hex($_, 8);
		}
	}

	$msg = "$lv $pv $dev $block $errno";
	$msg =~ s/^\s+//g;
	$msg =~ s/\s+/ /g;
	printf("%s", $msg);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          OPMSG
# IDENTIFIER:     AA8AB241
# 
# [...]
# 
# Detail Data
# MESSAGE FROM ERRLOGGER COMMAND
# --- HTX Stopped ---
# ---------------------------------------------------------------------------
sub OPMSG
{
	my @error	= @_;

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^MESSAGE FROM ERRLOGGER COMMAND/)
		{
			$_ = $error[$i + 1];
			chomp;
			printf("%s", $_);
			return
		}
	}
}


#---------------------------------------------------------------------------
#LABEL:          PCI_RECOVERABLE_ERR
#
#[...]
#
#Detail Data
#BID
#9000 00DF 
#DEVFUNC
#0000 0008 
#RTAS TOKEN
#0000 0036 
#ERROR CODE
#1100 0013 
#PROBLEM DATA
#0444 2201 0000 018A 8E00 8300 0842 1400 2007 0710 2000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 4942 4D00 5531 2E35 2D50 312D 4939 0000
#000C 4646 1802 1401 6000 D062 000C 4646 1802 1402 30C6 5200 000C 4646 1802 1404
#---------------------------------------------------------------------------
sub PCI_err
{
	my @error 	= @_;
	my $msg		= "";
	my $bid		= "(unknown)";
	my $err		= "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^BID/)
		{
			$bid = $error[$i + 1];
			chomp($bid);
			$bid =~ s/\s+//g;

			$msg = "Bus ID " . $bid;
			next;
		}

		if ($error[$i] =~ /^ERROR CODE/)
		{
			$err = $error[$i + 1];
			chomp($err);
			$err =~ s/\s+//g;

			$msg .= " " . &lookup("Error ", $err,
						\%plat_eeh_err_lt);
			next;
		}
	}
	printf("%s", $msg);

	return;
}


#---------------------------------------------------------------------------
#LABEL:          SAS_ERR4
#
#[...]
#
#Detail Data
#
#ADDITIONAL HEX DATA
#DD00 [...]
#[...]
#---------------------------------------------------------------------------
sub SAS_ERR
{
	my @error = @_;
	my $sense = &get_sense_data(@error);
	my $driver = &bytes($sense, 0, 2);

	#
	# A few drivers use this error log, with different indicators:
	#
	# DD00  - LSI SAS protocol driver
	# DD01  - LSA SAS adapter driver
	# other - SIS SAS protocol driver
	#

	if ($driver eq 'DD00')
	{
		&SAS_ERR_LSI_proto(@error);
	}
	elsif ($driver eq 'DD01')
	{
		&SAS_ERR_LSI_adap(@error);
	}
	else
	{
		&SAS_ERR_SIS_proto(@error);
	}

	return;
}


#---------------------------------------------------------------------------
#LABEL:          SAS_ERR4
#IDENTIFIER:     F3D304A2
#
#[...]
#
#Detail Data
#
#ADDITIONAL HEX DATA
#DD00 021B 0000 0030 [...]
#[...]
#---------------------------------------------------------------------------
sub SAS_ERR_LSI_proto
{
	my @error = @_;

	my $sense = &get_sense_data(@error);

	my $errnum = &bytes($sense,   4, 4);
	my $errno  = &hex2int(&bytes($sense, 8, 4));	# often an errno value
	my $ss     = &bytes($sense,  20,  1);		# SCSI status
	my $as     = &bytes($sense,  21,  1);		# Adapter status
	my $lun    = &bytes($sense,  24,  8);

	my $msg = ""; 

	if    ($errnum eq 'xxxxxxxx')
	{
		$msg = "Huh?";
	}
	elsif ($errnum eq '00000030')
	{
		$msg = "Request for LUN $lun finished w/ ";
		$msg .= &lookup("adapter status ", $as, \%aix_s3_adap_stat_lt);
	}
	elsif ($errnum eq '00000016')
	{
		$msg = "LUN $lun reset per head driver request";
	}
	elsif ($errnum eq '0000004C')
	{
		$msg = "Driver-issued task mgmt failure; ";
		$msg .= &lookup("errno ", $errno, \%aix_errno_lt);
	}
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	printf("%s", $msg);

	return;
}


#---------------------------------------------------------------------------
#LABEL:          SAS_ERR4
#IDENTIFIER:     F3D304A2
#
#[...]
#
#Detail Data
#
#ADDITIONAL HEX DATA
#DD01 021B 0000 0030 [...]
#[...]
#---------------------------------------------------------------------------
sub SAS_ERR_LSI_adap
{
	my @error = @_;

	my $sense = &get_sense_data(@error);

	my $errnum = &bytes($sense, 4, 4);

	my $msg = ""; 

	if    ($errnum eq 'xxxxxxxx')
	{
		$msg = "Huh?";
	}
	else
	{
		$msg = "Unknown error number: " . $errnum;
	}

	printf("%s", $msg);

	return;
}


#---------------------------------------------------------------------------
# LABEL:          SAS_ERR3
# IDENTIFIER:     12296806
#
# [...]
#
# Detail Data
#
# ADDITIONAL HEX DATA
# 0000 019C 0000 4400 0000 0000 0000 0000 0000 0000 1910 0120 0405 0000 ....
# [...]
#---------------------------------------------------------------------------
sub SAS_ERR_SIS_proto
{
	my @error = @_;

	my $sense	= &get_sense_data(@error);
	my $resource	= &bytes($sense,  4, 4);
	my $prc		= &bytes($sense, 20, 4);
	my $ioasc	= &bytes($sense, 24, 4);

	my $msg = "Resource: $resource  "; 

	if    ($ioasc eq '00000000')
	{
		# Zero IOASC means check PRC

		$msg .= "PRC: $prc";
	}
	elsif ($ioasc eq '01080000')
	{
		$msg .= "Soft device bus error recovered by adapter";
	}
	elsif ($ioasc eq '04050000')
	{
		$msg .= "Addressed device failed to respond to selection";
	}
	elsif ($ioasc eq '066B9100')
	{
		$msg .= "Multipath redundancy level got better";
	}
	elsif ($ioasc eq '066B9200')
	{
		$msg .= "Multipath redundancy level got worse";
	}
	else
	{
		$msg .= "Unknown IOASC: $ioasc";
	}

	printf("%s", $msg);

	return;
}


#---------------------------------------------------------------------------
#LABEL:          SC_DISK_ERR4
#
#[...]
#
#Detail Data
#PATH ID
#           0
#SENSE DATA
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 032A 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 B507 0006 3E40 0000 0002 0000 0000 0000 0000 0000 0003 0000
#---------------------------------------------------------------------------
sub SC_DISK_ERR
{
	my @error = @_;
	my $label  = &get_label(@error);
	my $path   = &get_path_id(@error);
	my $sense  = &get_sense_data(@error);
	
	if (defined($path))
	{
		printf("path %2s ", $path);
	}

	if ($label =~ /SC_DISK_ERR7/)
	{
		#
		# Earlier driver levels didn't include useful
		# information with this error, so we would just
		# print "path failure" and return.  But now the
		# drivers common in the field include normal SENSE
		# DATA, so continue processing after noting the
		# path failure.
                #
		printf("path failure; ");
	}

        #
        # Break out SC_DISK_PCM_ERR altogether someday
        # 

        if ($label =~ /SC_DISK_PCM_ERR2/) {

            printf("controller switch");
            return;
        }

        if ($label =~ /SC_DISK_PCM_ERR8/) {

            printf("path failure");
            return;
        }

        if ($label =~ /SC_DISK_PCM_ERR9/) {

            printf("path recovered");
            return;
        }

	#
	# Extract and print the SCSI command information
	#

	my $cdb = &bytes($sense, 2, 16);
	print &sbc_command($cdb) . " ";

	#
	# Now the SS/VV/AA section
	#

	my $sv  = &bytes($sense, 24, 1);
	my $ss  = &bytes($sense, 25, 1);
	my $as  = &bytes($sense, 26, 1);
	my $r3	= &bytes($sense, 27, 1);

	if ($sv eq '01')
	{
		print &lookup("SCSI status ", $ss, \%scsi_status_lt);
	}
	elsif ($sv eq '02')
	{
		print &lookup("Adapter status ", $as, \%aix_s3_adap_stat_lt);
	}
	elsif ($sv eq '03' && $label =~ /^SC_DISK/)
	{
		print &lookup("Driver status ", $ss, \%aix_scdisk_stat_lt);
	}
	elsif ($sv eq '04' && $label =~ /^FCP_ARRAY/)
	{
		print &lookup("Driver status ", $r3, \%aix_rdac_stat_lt);
	}
	

	#
	# And the SCSI sense data if this was a CHECK or if a 
	# REQUEST SENSE (CDB opcode 03) just finished.  In the
	# REQUEST SENSE case, only attempt the decode if the
	# Sense Data Response Code looks sane.
	#
	my $cdb_opcode = &bytes($cdb, 0, 1);
	my $autosense  = &bytes($sense, 28, 14);
	my $rsp_code   = &bytes($autosense, 0, 1);

	if (($sv eq '01' && $ss eq '02') ||
            (($cdb_opcode eq '03') &&
             ($rsp_code eq '70' ||
              $rsp_code eq '71' ||
              $rsp_code eq '72' ||
              $rsp_code eq '73' ||
              $rsp_code eq 'F0')))
	{
		print " " . &scsi_sense($autosense);
	}

	#
	# If this is a serial number mismatch, then print the
        # old and new serial numbers
        #
	if ($sv eq '03' && $ss eq '0F')
	{
		my $LEN = 84;

		my $old = &bytes($sense, 28, $LEN);
		my $new = &bytes($sense, 28 + $LEN, $LEN);

		print "; Old: $old; New: $new"
	}

	return;
}


#---------------------------------------------------------------------------
#LABEL:          SC_DISK_PPRC_ERR[1..15]
#
#[...]
#Detail Data
#DEVICE NAME
#hdisk15
#GROUP NAME
#pha_116528110rdg5
#ERROR CODE
#0000 0000 0000 0000 0000 0000 0000 0000
#SENSE DATA
#0000 0000 FFFF 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0001 580C 0000 0000 0001 488C 0000 0000 0000
#0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
#...
#---------------------------------------------------------------------------
sub SC_DISK_PPRC_ERR
{
	my @error = @_;
	my $label  = &get_label(@error);
	my $desc   = &get_description(@error);
        my $group  = &get_group_name(@error);

	printf("%s  %s", $group, $desc );

	return;
}




sub SC_TAPE_ERR
{
	my @error = @_;
	my $sense  = &get_sense_data(@error);

	#
	# Extract and print the SCSI command information
	#

	my $cdb = &bytes($sense, 2, 16);
	print &ssc_command($cdb) . " ";

	#
	# Now the SS/VV/AA section
	#

	my $sv  = &bytes($sense, 24, 1);
	my $ss  = &bytes($sense, 25, 1);
	my $as  = &bytes($sense, 26, 1);

	if ($sv eq '01')
	{
		print &lookup("SCSI status ", $ss, \%scsi_status_lt);
	}
	elsif ($sv eq '02')
	{
		print &lookup("adap_stat=", $as, \%aix_s3_adap_stat_lt);
	}
	

	#
	# And the SCSI sense data if this was a CHECK or if a 
	# REQUEST SENSE just finished
	#
	if (($sv eq '01' && $ss eq '02') || (substr($cdb, 0, 2) eq '03'))
	{
		print " " . &scsi_sense(&bytes($sense, 28, 14));
	}

	return;
}


sub SDDPCM
{
	my @error 	= @_;
	my $path	= &get_path_id(@error);

	printf("Path ID %s", $path);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          SH_LOST_IO
# 
# [...]
# 
# Detail Data
# MAJOR/MINOR DEVICE NUMBER
# 8000 0025 0000 0003 
# TIME STAMP
# 0000 0000 000E 2027 
# NUMBER OF LOST I/O ON DEVICES
#           32
# ---------------------------------------------------------------------------
sub SH_LOST_IO
{
	my @error 	= @_;
	my $devno	= "";
	my $timestamp	= "";
	my $num_lost	= "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^MAJOR\/MINOR DEVICE NUMBER/)
		{
			$devno = $error[$i + 1];
			chomp($devno);
			$devno =~ s/\s+//g;
		}

		if ($error[$i] =~ /^TIME STAMP/)
		{
			$timestamp = $error[$i + 1];
			chomp($timestamp);
			$timestamp =~ s/\s+//g;

			#
			# Strip leading zeros. Be sure to leave
			# at least one character in the string;
			# i.e. don't strip the whole string if
			# it's all zeros.
			#

			$timestamp =~ s/^0*(.)/$1/;
		}

		if ($error[$i] =~ /^NUMBER OF LOST I\/O ON DEVICES/)
		{
			$num_lost = $error[$i + 1];
			chomp($num_lost);
			$num_lost =~ s/\s+//g;
		}
	}

	printf("devno: %s  Timestamp: %s  Num lost: %s",
		$devno, $timestamp, $num_lost);

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          SRC_RSTRT    -or-
# LABEL:          SRC_SVKO     -or-
# LABEL:          SRC_TRYX
#
# [...]
#
# Detail Data
# SYMPTOM CODE
#          256
# SOFTWARE ERROR CODE
#        -9035
# ERROR CODE
#            0
# DETECTING MODULE
# 'srchevn.c'@line:'222'
# FAILING MODULE
# rpc.lockd
# ---------------------------------------------------------------------------
sub SRC_general
{
	my @error 	= @_;
	my $module	= "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^FAILING MODULE/)
		{
			$module = $error[$i + 1];
			chomp($module);
			last;
		}
	}

	printf("%s", $module);

	return;
}


sub TAPE_ERR
{
	my @error = @_;
	my $sense  = &get_sense_data(@error);

	#
	# Extract and print the SCSI command information
	#

	my $cdb = &bytes($sense, 4, 12);
	print &ssc_command($cdb) . " ";

	#
	# Now the SS/VV/AA section
	#

	my $sv  = &bytes($sense, 16, 1);
	my $ss  = &bytes($sense, 17, 1);
	my $as  = &bytes($sense, 18, 1);

	if ($sv eq '01')
	{
		print &lookup("SCSI status ", $ss, \%scsi_status_lt);
	}
	elsif ($sv eq '02')
	{
		# Don't try to decode the adapter status here.  If _AIX_
		# logs the error then it'll be a general_card_status as
		# defined in scsi.h.  But if _Atape_ logs the error then
		# this may be a SCSI-3 device using the adapter_status
		# values in scsi_buf.h.  We can't easily distinguish between
		# the two from the data in the error, so just print the
		# raw value.
		#
		# print &lookup("adap_stat=", $as, \%aix_s2_adap_stat_lt);
		#
		print "Adapter status $as";
	}
	

	#
	# And the SCSI sense data if this was a CHECK or if a 
	# REQUEST SENSE just finished
	#
	if (($sv eq '01' && $ss eq '02') || (substr($cdb, 0, 2) eq '03'))
	{
		print " " . &scsi_sense(&bytes($sense, 20, 14));
	}

	return;
}


# ---------------------------------------------------------------------------
# LABEL:          VFC_CLIENT_FAILURE
# IDENTIFIER:     88E96781
# 
# Date/Time:       Wed Nov  7 06:31:55 CST 2012
# Sequence Number: 4683
# Machine Id:      00F7BD3C4C00
# Node Id:         sinopep06
# Class:           S
# Type:            TEMP
# WPAR:            Global
# Resource Name:   vfchost0
#[...]
# Detail Data
# ADDITIONAL INFORMATION
#    module: npiv_do_async %I%    rc: 00000000FFFFFFF5    location: 00001300
#    data:  10000015 13000015 2001 2001 2F
# 
# ---------------------------------------------------------------------------
sub VFC_CLIENT_FAILURE
{
	my @error 	= @_;
	my $addinfo	= "unknown";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^ADDITIONAL INFORMATION/)
		{
			$_ = $error[$i+1];

			my @fields = split(/\s+/, $_);

			for (my $i = 0; $i < @fields; $i++)
			{
				#
				# Strip leading zeros. Be sure to leave
				# at least one character in the string;
				# i.e. don't strip the whole string if
				# it's all zeros.
				#

				$fields[$i] =~ s/^0*(.)/$1/;
			}

			$addinfo = join(' ', @fields);
			$addinfo =~ s/^\s*//;
			$addinfo =~ s/\s*$//;
		}
	}

	printf("%s", $addinfo);

	return
}


# ---------------------------------------------------------------------------
# LABEL:          VFC_ERR2
# IDENTIFIER:     D712FEAE
# 
# [...]
# 
# Description
# LINK_DEAD events reported by the VIOS
# 
# [...]
# 
# Detail Data
# Error Location
# 0000 007C 
# Error Type
# 00
# RC
# 0000 0000 0000 0014 
# VIO Server Partition Name
# fvt-vios2
# Host Adapter Instance Name
# vfchost3
# Physical Adapter Location Code
# U789C.001.DQD2272-P1-C2-T2
# Physical Adapter DRC Name
# U8203.E4A.10DBAA1-V2-C15
# N Port ID of this adapter
# 0000 0000 0001 0C01 
# ---------------------------------------------------------------------------
sub VFC_ERR
{
	my @error 	= @_;
	my $desc	= "unknown";
	my $vios	= "unknown";
	my $vhost	= "unknown";
	my $loc		= "unknown";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^Description/)
		{
			$_ = $error[$i+1];
			chomp;
			$desc = $_ if length($_) > 0;
		}

		if ($error[$i] =~ /^VIO Server Partition Name/)
		{
			$_ = $error[$i+1];
			chomp;
			$vios = $_ if length($_) > 0;
		}

		if ($error[$i] =~ /^Host Adapter Instance Name/)
		{
			$_ = $error[$i+1];
			chomp;
			$vhost = $_ if length($_) > 0;
		}

		if ($error[$i] =~ /^Error Location/)
		{
			$_ = $error[$i+1];
			chomp;
			$loc = $_ if length($_) > 0;
			$loc =~ s/\s+//g;
		}
	}

	printf("VIOS %s, vfc_host %s; loc %s; %s", $vios, $vhost, $loc, $desc);

	return
}


# ---------------------------------------------------------------------------
# LABEL:          VFC_HOST 		-OR-
# LABEL:          VSCSI_HOST
#
# [...]
# 
# Detail Data
# ADDITIONAL INFORMATION
#         module: npiv_startinitr rc: 0000000000000045    location: 00000586
#         data:  0 0 0 0
# ---------------------------------------------------------------------------
sub Vxx_HOST
{
	my @error 	= @_;
	my $addinfo	= "";

	for (my $i = 0; $i <= $#error; $i++)
	{
		if ($error[$i] =~ /^ADDITIONAL INFORMATION/)
		{
			$_ = $error[$i+1];

			my @fields = split(/\s+/, $_);

			for (my $i = 0; $i < @fields; $i++)
			{
				#
				# Strip leading zeros. Be sure to leave
				# at least one character in the string;
				# i.e. don't strip the whole string if
				# it's all zeros.
				#

				$fields[$i] =~ s/^0*(.)/$1/;
			}

			$addinfo = join(' ', @fields);
			$addinfo =~ s/^\s*//;
			$addinfo =~ s/\s*$//;
		}
	}

	printf("%s", $addinfo);

	return
}



#######################################################################
##
#  Lookup table initialization
##
#######################################################################

sub initialize_lookup_tables
{
	$aix_d_map_list_rc_lt{'00000000'} = 'DMA_SUCC';
	$aix_d_map_list_rc_lt{'FFFFFFFF'} = 'DMA_FAIL';
	$aix_d_map_list_rc_lt{'FFFFFFFE'} = 'DMA_NOACC';
	$aix_d_map_list_rc_lt{'FFFFFFFD'} = 'DMA_NORES';
	$aix_d_map_list_rc_lt{'FFFFFFFC'} = 'DMA_DIOFULL';
	$aix_d_map_list_rc_lt{'FFFFFFFB'} = 'DMA_TC_NOTREACHED';
	$aix_d_map_list_rc_lt{'FFFFFFFA'} = 'DMA_BAD_MODE';
	$aix_d_map_list_rc_lt{'FFFFFFF9'} = 'DMA_R_FAIL';
	$aix_d_map_list_rc_lt{'FFFFFFF8'} = 'DMA_R_NORES';

	$aix_errno_lt{1}   = 'EPERM';
	$aix_errno_lt{2}   = 'ENOENT';
	$aix_errno_lt{3}   = 'ESRCH';
	$aix_errno_lt{4}   = 'EINTR';
	$aix_errno_lt{5}   = 'EIO';
	$aix_errno_lt{6}   = 'ENXIO';
	$aix_errno_lt{7}   = 'E2BIG';
	$aix_errno_lt{8}   = 'ENOEXEC';
	$aix_errno_lt{9}   = 'EBADF';
	$aix_errno_lt{10}  = 'ECHILD';
	$aix_errno_lt{11}  = 'EAGAIN';
	$aix_errno_lt{12}  = 'ENOMEM';
	$aix_errno_lt{13}  = 'EACCES';
	$aix_errno_lt{14}  = 'EFAULT';
	$aix_errno_lt{15}  = 'ENOTBLK';
	$aix_errno_lt{16}  = 'EBUSY';
	$aix_errno_lt{17}  = 'EEXIST';
	$aix_errno_lt{18}  = 'EXDEV';
	$aix_errno_lt{19}  = 'ENODEV';
	$aix_errno_lt{20}  = 'ENOTDIR';
	$aix_errno_lt{21}  = 'EISDIR';
	$aix_errno_lt{22}  = 'EINVAL';
	$aix_errno_lt{23}  = 'ENFILE';
	$aix_errno_lt{24}  = 'EMFILE';
	$aix_errno_lt{25}  = 'ENOTTY';
	$aix_errno_lt{26}  = 'ETXTBSY';
	$aix_errno_lt{27}  = 'EFBIG';
	$aix_errno_lt{28}  = 'ENOSPC';
	$aix_errno_lt{29}  = 'ESPIPE';
	$aix_errno_lt{30}  = 'EROFS';
	$aix_errno_lt{31}  = 'EMLINK';
	$aix_errno_lt{32}  = 'EPIPE';
	$aix_errno_lt{33}  = 'EDOM';
	$aix_errno_lt{34}  = 'ERANGE';
	$aix_errno_lt{35}  = 'ENOMSG';
	$aix_errno_lt{36}  = 'EIDRM';
	$aix_errno_lt{37}  = 'ECHRNG';
	$aix_errno_lt{38}  = 'EL2NSYNC';
	$aix_errno_lt{39}  = 'EL3HLT';
	$aix_errno_lt{40}  = 'EL3RST';
	$aix_errno_lt{41}  = 'ELNRNG';
	$aix_errno_lt{42}  = 'EUNATCH';
	$aix_errno_lt{43}  = 'ENOCSI';
	$aix_errno_lt{44}  = 'EL2HLT';
	$aix_errno_lt{45}  = 'EDEADLK';
	$aix_errno_lt{46}  = 'ENOTREADY';
	$aix_errno_lt{47}  = 'EWRPROTECT';
	$aix_errno_lt{48}  = 'EFORMAT';
	$aix_errno_lt{49}  = 'ENOLCK';
	$aix_errno_lt{50}  = 'ENOCONNECT';
	$aix_errno_lt{52}  = 'ESTALE';
	$aix_errno_lt{53}  = 'EDIST';
	$aix_errno_lt{55}  = 'EINPROGRESS';
	$aix_errno_lt{56}  = 'EALREADY';
	$aix_errno_lt{57}  = 'ENOTSOCK';
	$aix_errno_lt{58}  = 'EDESTADDRREQ';
	$aix_errno_lt{59}  = 'EMSGSIZE';
	$aix_errno_lt{60}  = 'EPROTOTYPE';
	$aix_errno_lt{61}  = 'ENOPROTOOPT';
	$aix_errno_lt{62}  = 'EPROTONOSUPPORT';
	$aix_errno_lt{63}  = 'ESOCKTNOSUPPORT';
	$aix_errno_lt{64}  = 'EOPNOTSUPP';
	$aix_errno_lt{65}  = 'EPFNOSUPPORT';
	$aix_errno_lt{66}  = 'EAFNOSUPPORT';
	$aix_errno_lt{67}  = 'EADDRINUSE';
	$aix_errno_lt{68}  = 'EADDRNOTAVAIL';
	$aix_errno_lt{69}  = 'ENETDOWN';
	$aix_errno_lt{70}  = 'ENETUNREACH';
	$aix_errno_lt{71}  = 'ENETRESET';
	$aix_errno_lt{72}  = 'ECONNABORTED';
	$aix_errno_lt{73}  = 'ECONNRESET';
	$aix_errno_lt{74}  = 'ENOBUFS';
	$aix_errno_lt{75}  = 'EISCONN';
	$aix_errno_lt{76}  = 'ENOTCONN';
	$aix_errno_lt{77}  = 'ESHUTDOWN';
	$aix_errno_lt{78}  = 'ETIMEDOUT';
	$aix_errno_lt{79}  = 'ECONNREFUSED';
	$aix_errno_lt{80}  = 'EHOSTDOWN';
	$aix_errno_lt{81}  = 'EHOSTUNREACH';
	$aix_errno_lt{82}  = 'ERESTART';
	$aix_errno_lt{83}  = 'EPROCLIM';
	$aix_errno_lt{84}  = 'EUSERS';
	$aix_errno_lt{85}  = 'ELOOP';
	$aix_errno_lt{86}  = 'ENAMETOOLONG';
	$aix_errno_lt{88}  = 'EDQUOT';
	$aix_errno_lt{89}  = 'ECORRUPT';
	$aix_errno_lt{93}  = 'EREMOTE';
	$aix_errno_lt{109} = 'ENOSYS';
	$aix_errno_lt{110} = 'EMEDIA';
	$aix_errno_lt{111} = 'ESOFT';
	$aix_errno_lt{112} = 'ENOATTR';
	$aix_errno_lt{113} = 'ESAD';
	$aix_errno_lt{114} = 'ENOTRUST';
	$aix_errno_lt{115} = 'ETOOMANYREFS';
	$aix_errno_lt{116} = 'EILSEQ';
	$aix_errno_lt{117} = 'ECANCELED';
	$aix_errno_lt{118} = 'ENOSR';
	$aix_errno_lt{119} = 'ETIME';
	$aix_errno_lt{120} = 'EBADMSG';
	$aix_errno_lt{121} = 'EPROTO';
	$aix_errno_lt{122} = 'ENODATA';
	$aix_errno_lt{123} = 'ENOSTR';
	$aix_errno_lt{124} = 'ENOTSUP';
	$aix_errno_lt{125} = 'EMULTIHOP';
	$aix_errno_lt{126} = 'ENOLINK';
	$aix_errno_lt{127} = 'EOVERFLOW';

	$aix_rdac_stat_lt{'9C'} = 'Read-only reservation encountered';
	$aix_rdac_stat_lt{'AA'} = 'Failed to start command';
	$aix_rdac_stat_lt{'CC'} = 'Exceeded allowed retries for ENXIO';
	$aix_rdac_stat_lt{'D1'} = 'LUN not configured';
	$aix_rdac_stat_lt{'DD'} = 'Exceeded allowed retries for ACA ACTIVE';
	$aix_rdac_stat_lt{'EE'} = 'LUN ownership change';

	$aix_s2_adap_stat_lt{'01'} = 'host I/O bus error';
	$aix_s2_adap_stat_lt{'02'} = 'transport fault';
	$aix_s2_adap_stat_lt{'04'} = 'command timeout';
	$aix_s2_adap_stat_lt{'08'} = 'no response from device';
	$aix_s2_adap_stat_lt{'0E'} = 'error, do not retry';
	$aix_s2_adap_stat_lt{'0F'} = 'error, delay logging';
	$aix_s2_adap_stat_lt{'10'} = 'adapter HW failure';
	$aix_s2_adap_stat_lt{'20'} = 'adapter SW failure';
	$aix_s2_adap_stat_lt{'40'} = 'bad fuse or termination';
	$aix_s2_adap_stat_lt{'80'} = 'external bus reset';

	$aix_s3_adap_stat_lt{'01'} = 'host I/O bus error';
	$aix_s3_adap_stat_lt{'02'} = 'transport fault';
	$aix_s3_adap_stat_lt{'03'} = 'command timeout';
	$aix_s3_adap_stat_lt{'04'} = 'no response from device';
	$aix_s3_adap_stat_lt{'05'} = 'adapter HW failure';
	$aix_s3_adap_stat_lt{'06'} = 'adapter SW failure';
	$aix_s3_adap_stat_lt{'07'} = 'WW name change';
	$aix_s3_adap_stat_lt{'08'} = 'bad fuse or termination';
	$aix_s3_adap_stat_lt{'09'} = 'external bus reset';
	$aix_s3_adap_stat_lt{'0A'} = 'transport busy';
	$aix_s3_adap_stat_lt{'0B'} = 'transport dead';
	$aix_s3_adap_stat_lt{'0C'} = 'driver should redrive open seq';
	$aix_s3_adap_stat_lt{'0D'} = 'transport migrated';
	$aix_s3_adap_stat_lt{'0E'} = 'do not retry';
	$aix_s3_adap_stat_lt{'0F'} = 'log error if max retry exceeded';

	$aix_scdisk_stat_lt{'01'} = 'Mode data is corrupt';
	$aix_scdisk_stat_lt{'02'} = 'Problem with mode data';
	$aix_scdisk_stat_lt{'03'} = 'Problem with mode data';
	$aix_scdisk_stat_lt{'04'} = 'Problem with mode data';
	$aix_scdisk_stat_lt{'05'} = 'Problem with mode data';
	$aix_scdisk_stat_lt{'06'} = 'Problem with mode data';
	$aix_scdisk_stat_lt{'07'} = 'Problem with mode data';
	$aix_scdisk_stat_lt{'08'} = 'Problem with mode data';
	$aix_scdisk_stat_lt{'09'} = 'MPIO path selection failed';
	$aix_scdisk_stat_lt{'0A'} = 'SCSI sense data is corrupted';
	$aix_scdisk_stat_lt{'0B'} = 'Corrupted descriptor data';
	$aix_scdisk_stat_lt{'0C'} = 'Corrupted descriptor data';
	$aix_scdisk_stat_lt{'0D'} = 'READ CAPACITY does not match blocksize';
	$aix_scdisk_stat_lt{'0E'} = 'READ CAPACITY does not match blocksize';
	$aix_scdisk_stat_lt{'0F'} = 'Serial number mismatch';
	$aix_scdisk_stat_lt{'10'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'11'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'12'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'13'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'14'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'15'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'16'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'17'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'18'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'19'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'1A'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'1B'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'1C'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'1D'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'1E'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'1F'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'20'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'21'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'22'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'23'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'24'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'25'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'26'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'27'} = 'MPIO cannot get path-private sense buffer';
	$aix_scdisk_stat_lt{'28'} = 'dev restart failed for non-MPIO device';
	$aix_scdisk_stat_lt{'29'} = 'dev restart failed for MPIO device';
	$aix_scdisk_stat_lt{'2A'} = 'queue recovery command allocation failure';
	$aix_scdisk_stat_lt{'84'} = 'FC driver supports dyntrk, disk does not';

	$scsi_sbcop_lt{'00'} = 'TEST UNIT READY';
	$scsi_sbcop_lt{'01'} = 'REZERO UNIT';
	$scsi_sbcop_lt{'03'} = 'REQUEST SENSE';
	$scsi_sbcop_lt{'04'} = 'FORMAT UNIT';
	$scsi_sbcop_lt{'07'} = 'REASSIGN BLOCKS';
	$scsi_sbcop_lt{'08'} = 'READ(6)';
	$scsi_sbcop_lt{'0A'} = 'WRITE(6)';
	$scsi_sbcop_lt{'0B'} = 'SEEK(6)';
	$scsi_sbcop_lt{'12'} = 'INQUIRY';
	$scsi_sbcop_lt{'15'} = 'MODE SELECT(6)';
	$scsi_sbcop_lt{'16'} = 'RESERVE(6)';
	$scsi_sbcop_lt{'17'} = 'RELEASE(6)';
	$scsi_sbcop_lt{'18'} = 'COPY';
	$scsi_sbcop_lt{'1A'} = 'MODE SENSE(6)';
	$scsi_sbcop_lt{'1B'} = 'START STOP UNIT';
	$scsi_sbcop_lt{'1C'} = 'RECEIVE DIAGNOSTIC RESULTS';
	$scsi_sbcop_lt{'1D'} = 'SEND DIAGNOSTIC';
	$scsi_sbcop_lt{'1E'} = 'PREVENT ALLOW MEDIUM REMOVAL';
	$scsi_sbcop_lt{'25'} = 'READ CAPACITY(10)';
	$scsi_sbcop_lt{'28'} = 'READ(10)';
	$scsi_sbcop_lt{'2A'} = 'WRITE(10)';
	$scsi_sbcop_lt{'2B'} = 'SEEK(10)';
	$scsi_sbcop_lt{'2E'} = 'WRITE AND VERIFY(10)';
	$scsi_sbcop_lt{'2F'} = 'VERIFY(10)';
	$scsi_sbcop_lt{'30'} = 'SEARCH DATA HIGH(10)';
	$scsi_sbcop_lt{'31'} = 'SEARCH DATA EQUAL(10)';
	$scsi_sbcop_lt{'32'} = 'SEARCH DATA LOW(10)';
	$scsi_sbcop_lt{'33'} = 'SET LIMITS(10)';
	$scsi_sbcop_lt{'34'} = 'PRE-FETCH(10)';
	$scsi_sbcop_lt{'35'} = 'SYNCHRONIZE CACHE(10)';
	$scsi_sbcop_lt{'36'} = 'LOCK UNLOCK CACHE(10)';
	$scsi_sbcop_lt{'37'} = 'READ DEFECT DATA(10)';
	$scsi_sbcop_lt{'39'} = 'COMPARE';
	$scsi_sbcop_lt{'3A'} = 'COPY AND VERIFY';
	$scsi_sbcop_lt{'3B'} = 'WRITE BUFFER';
	$scsi_sbcop_lt{'3C'} = 'READ BUFFER';
	$scsi_sbcop_lt{'3E'} = 'READ LONG(10)';
	$scsi_sbcop_lt{'3F'} = 'WRITE LONG(10)';
	$scsi_sbcop_lt{'40'} = 'CHANGE DEFINITION';
	$scsi_sbcop_lt{'41'} = 'WRITE SAME(10)';
	$scsi_sbcop_lt{'4C'} = 'LOG SELECT';
	$scsi_sbcop_lt{'4D'} = 'LOG SENSE';
	$scsi_sbcop_lt{'50'} = 'XDWRITE(10)';
	$scsi_sbcop_lt{'51'} = 'XPWRITE(10)';
	$scsi_sbcop_lt{'52'} = 'XDREAD(10)';
	$scsi_sbcop_lt{'55'} = 'MODE SELECT(10)';
	$scsi_sbcop_lt{'56'} = 'RESERVE(10)';
	$scsi_sbcop_lt{'57'} = 'RELEASE(10)';
	$scsi_sbcop_lt{'5A'} = 'MODE SENSE(10)';
	$scsi_sbcop_lt{'5E'} = 'PERSISTENT RESERVE IN';
	$scsi_sbcop_lt{'5F'} = 'PERSISTENT RESERVE OUT';
	$scsi_sbcop_lt{'7F'} = 'variable length CDB (more than 16 bytes)';
	$scsi_sbcop_lt{'80'} = 'XDWRITE EXTENDED(16)';
	$scsi_sbcop_lt{'81'} = 'REBUILD(16)';
	$scsi_sbcop_lt{'82'} = 'REGENERATE(16)';
	$scsi_sbcop_lt{'83'} = 'EXTENDED COPY';
	$scsi_sbcop_lt{'84'} = 'RECEIVE COPY RESULTS';
	$scsi_sbcop_lt{'85'} = 'ATA COMMAND PASS THROUGH(16)';
	$scsi_sbcop_lt{'86'} = 'ACCESS CONTROL IN';
	$scsi_sbcop_lt{'87'} = 'ACCESS CONTROL OUT';
	$scsi_sbcop_lt{'88'} = 'READ(16)';
	$scsi_sbcop_lt{'8A'} = 'WRITE(16)';
	$scsi_sbcop_lt{'8C'} = 'READ ATTRIBUTE';
	$scsi_sbcop_lt{'8D'} = 'WRITE ATTRIBUTE';
	$scsi_sbcop_lt{'8E'} = 'WRITE AND VERIFY(16)';
	$scsi_sbcop_lt{'8F'} = 'VERIFY(16)';
	$scsi_sbcop_lt{'90'} = 'PRE-FETCH(16)';
	$scsi_sbcop_lt{'91'} = 'SYNCHRONIZE CACHE(16)';
	$scsi_sbcop_lt{'92'} = 'LOCK UNLOCK CACHE(16)';
	$scsi_sbcop_lt{'93'} = 'WRITE SAME(16)';
	$scsi_sbcop_lt{'A0'} = 'REPORT LUNS';
	$scsi_sbcop_lt{'A1'} = 'ATA COMMAND PASS THROUGH(12)';
	$scsi_sbcop_lt{'A2'} = 'SECURITY PROTOCOL IN';
	$scsi_sbcop_lt{'A3'} = 'MAINTENANCE (IN)';
	$scsi_sbcop_lt{'A4'} = 'MAINTENANCE (OUT)';
	$scsi_sbcop_lt{'A7'} = 'MOVE MEDIUM ATTACHED';
	$scsi_sbcop_lt{'A8'} = 'READ(12)';
	$scsi_sbcop_lt{'AA'} = 'WRITE(12)';
	$scsi_sbcop_lt{'AE'} = 'WRITE AND VERIFY(12)';
	$scsi_sbcop_lt{'AF'} = 'VERIFY(12)';
	$scsi_sbcop_lt{'B3'} = 'SET LIMITS(12)';
	$scsi_sbcop_lt{'B4'} = 'READ ELEMENT STATUS ATTACHED';
	$scsi_sbcop_lt{'B5'} = 'SECURITY PROTOCOL OUT';
	$scsi_sbcop_lt{'B7'} = 'READ DEFECT DATA(12)';
	$scsi_sbcop_lt{'BA'} = 'REDUNDANCY GROUP (IN)';
	$scsi_sbcop_lt{'BB'} = 'REDUNDANCY GROUP (OUT)';
	$scsi_sbcop_lt{'BC'} = 'SPARE (IN)';
	$scsi_sbcop_lt{'BD'} = 'SPARE (OUT)';
	$scsi_sbcop_lt{'BE'} = 'VOLUME SET (IN)';
	$scsi_sbcop_lt{'BF'} = 'VOLUME SET (OUT)';

	$scsi_sscop_lt{'00'} = 'TEST UNIT READY';
	$scsi_sscop_lt{'01'} = 'REWIND';
	$scsi_sscop_lt{'03'} = 'REQUEST SENSE';
	$scsi_sscop_lt{'04'} = 'FORMAT MEDIUM';
	$scsi_sscop_lt{'05'} = 'READ BLOCK LIMITS';
	$scsi_sscop_lt{'08'} = 'READ(6)';
	$scsi_sscop_lt{'0A'} = 'WRITE(6)';
	$scsi_sscop_lt{'0B'} = 'SET CAPACITY';
	$scsi_sscop_lt{'0F'} = 'READ REVERSE(6)';
	$scsi_sscop_lt{'10'} = 'WRITE FILEMARKS(6)';
	$scsi_sscop_lt{'11'} = 'SPACE(6)';
	$scsi_sscop_lt{'12'} = 'INQUIRY';
	$scsi_sscop_lt{'13'} = 'VERIFY(6)';
	$scsi_sscop_lt{'14'} = 'RECOVER BUFFERED DATA';
	$scsi_sscop_lt{'15'} = 'MODE SELECT(6)';
	$scsi_sscop_lt{'16'} = 'RESERVE(6)';
	$scsi_sscop_lt{'17'} = 'RELEASE(6)';
	$scsi_sscop_lt{'18'} = 'COPY';
	$scsi_sscop_lt{'19'} = 'ERASE(6)';
	$scsi_sscop_lt{'1A'} = 'MODE SENSE(6)';
	$scsi_sscop_lt{'1B'} = 'LOAD UNLOAD';
	$scsi_sscop_lt{'1C'} = 'RECEIVE DIAGNOSTIC RESULTS';
	$scsi_sscop_lt{'1D'} = 'SEND DIAGNOSTIC';
	$scsi_sscop_lt{'1E'} = 'PREVENT ALLOW MEDIUM REMOVAL';
	$scsi_sscop_lt{'2B'} = 'LOCATE(10)';
	$scsi_sscop_lt{'34'} = 'READ POSITION';
	$scsi_sscop_lt{'39'} = 'COMPARE';
	$scsi_sscop_lt{'3A'} = 'COPY AND VERIFY';
	$scsi_sscop_lt{'3B'} = 'WRITE BUFFER';
	$scsi_sscop_lt{'3C'} = 'READ BUFFER';
	$scsi_sscop_lt{'40'} = 'CHANGE DEFINITION';
	$scsi_sscop_lt{'44'} = 'REPORT DENSITY SUPPORT';
	$scsi_sscop_lt{'4C'} = 'LOG SELECT';
	$scsi_sscop_lt{'4D'} = 'LOG SENSE';
	$scsi_sscop_lt{'55'} = 'MODE SELECT(10)';
	$scsi_sscop_lt{'56'} = 'RESERVE(10)';
	$scsi_sscop_lt{'57'} = 'RELEASE(10)';
	$scsi_sscop_lt{'5A'} = 'MODE SENSE(10)';
	$scsi_sscop_lt{'5E'} = 'PERSISTENT RESERVE IN';
	$scsi_sscop_lt{'5F'} = 'PERSISTENT RESERVE OUT';
	$scsi_sscop_lt{'80'} = 'WRITE FILEMARKS(16)';
	$scsi_sscop_lt{'81'} = 'READ REVERSE(16)';
	$scsi_sscop_lt{'83'} = 'EXTENDED COPY';
	$scsi_sscop_lt{'84'} = 'RECEIVE COPY RESULTS';
	$scsi_sscop_lt{'86'} = 'ACCESS CONTROL IN';
	$scsi_sscop_lt{'87'} = 'ACCESS CONTROL OUT';
	$scsi_sscop_lt{'88'} = 'READ(16)';
	$scsi_sscop_lt{'8A'} = 'WRITE(16)';
	$scsi_sscop_lt{'8C'} = 'READ ATTRIBUTE';
	$scsi_sscop_lt{'8D'} = 'WRITE ATTRIBUTE';
	$scsi_sscop_lt{'8F'} = 'VERIFY(16)';
	$scsi_sscop_lt{'91'} = 'SPACE(16)';
	$scsi_sscop_lt{'92'} = 'LOCATE(16)';
	$scsi_sscop_lt{'93'} = 'ERASE(16)';
	$scsi_sscop_lt{'A0'} = 'REPORT LUNS';
	$scsi_sscop_lt{'A2'} = 'SECURITY PROTOCOL IN';
	$scsi_sscop_lt{'A3'} = 'MAINTENANCE (IN)';
	$scsi_sscop_lt{'A4'} = 'MAINTENANCE (OUT)';
	$scsi_sscop_lt{'A5'} = 'MOVE MEDIUM';
	$scsi_sscop_lt{'A7'} = 'MOVE MEDIUM ATTACHED';
	$scsi_sscop_lt{'B4'} = 'READ ELEMENT STATUS ATTACHED';
	$scsi_sscop_lt{'B5'} = 'SECURITY PROTOCOL OUT';
	$scsi_sscop_lt{'B8'} = 'READ ELEMENT STATUS';

	$scsi_status_lt{'00'} = 'GOOD';
	$scsi_status_lt{'02'} = 'CHECK';
	$scsi_status_lt{'08'} = 'BUSY';
	$scsi_status_lt{'18'} = 'RESERVATION CONFLICT';
	$scsi_status_lt{'28'} = 'TASK SET FULL';
	$scsi_status_lt{'30'} = 'ACA ACTIVE';
	$scsi_status_lt{'40'} = 'TASK ABORTED';

	$scsi_skey_lt{'0'} = 'NO SENSE';
	$scsi_skey_lt{'1'} = 'RECOVERED ERROR';
	$scsi_skey_lt{'2'} = 'NOT READY';
	$scsi_skey_lt{'3'} = 'MEDIUM ERROR';
	$scsi_skey_lt{'4'} = 'HARDWARE ERROR';
	$scsi_skey_lt{'5'} = 'ILLEGAL REQUEST';
	$scsi_skey_lt{'6'} = 'UNIT ATTENTION';
	$scsi_skey_lt{'7'} = 'DATA PROTECT';
	$scsi_skey_lt{'8'} = 'BLANK CHECK';
	$scsi_skey_lt{'9'} = 'VENDOR SPECIFIC';
	$scsi_skey_lt{'A'} = 'COPY ABORTED';
	$scsi_skey_lt{'B'} = 'ABORTED COMMAND';
	$scsi_skey_lt{'C'} = '(obsolete)';
	$scsi_skey_lt{'D'} = 'VOLUME OVERFLOW';
	$scsi_skey_lt{'E'} = 'MISCOMPARE';
	$scsi_skey_lt{'F'} = '(reserved)';

	$scsi_ascq_lt{'0000'} = 'NO ADDITIONAL SENSE INFORMATION';
	$scsi_ascq_lt{'0001'} = 'FILEMARK DETECTED';
	$scsi_ascq_lt{'0002'} = 'END-OF-PARTITION/MEDIUM DETECTED';
	$scsi_ascq_lt{'0003'} = 'SETMARK DETECTED';
	$scsi_ascq_lt{'0004'} = 'BEGINNING-OF-PARTITION/MEDIUM DETECTED';
	$scsi_ascq_lt{'0005'} = 'END-OF-DATA DETECTED';
	$scsi_ascq_lt{'0006'} = 'I/O PROCESS TERMINATED';
	$scsi_ascq_lt{'0011'} = 'AUDIO PLAY OPERATION IN PROGRESS';
	$scsi_ascq_lt{'0012'} = 'AUDIO PLAY OPERATION PAUSED';
	$scsi_ascq_lt{'0013'} = 'AUDIO PLAY OPERATION SUCCESSFULLY COMPLETED';
	$scsi_ascq_lt{'0014'} = 'AUDIO PLAY OPERATION STOPPED DUE TO ERROR';
	$scsi_ascq_lt{'0015'} = 'NO CURRENT AUDIO STATUS TO RETURN';
	$scsi_ascq_lt{'0016'} = 'OPERATION IN PROGRESS';
	$scsi_ascq_lt{'0017'} = 'CLEANING REQUESTED';
	$scsi_ascq_lt{'0018'} = 'ERASE OPERATION IN PROGRESS';
	$scsi_ascq_lt{'0019'} = 'LOCATE OPERATION IN PROGRESS';
	$scsi_ascq_lt{'001A'} = 'REWIND OPERATION IN PROGRESS';
	$scsi_ascq_lt{'001B'} = 'SET CAPACITY OPERATION IN PROGRESS';
	$scsi_ascq_lt{'001C'} = 'VERIFY OPERATION IN PROGRESS';
	$scsi_ascq_lt{'001D'} = 'ATA PASS THROUGH INFORMATION AVAILABLE';
	$scsi_ascq_lt{'0100'} = 'NO INDEX/SECTOR SIGNAL';
	$scsi_ascq_lt{'0200'} = 'NO SEEK COMPLETE';
	$scsi_ascq_lt{'0300'} = 'PERIPHERAL DEVICE WRITE FAULT';
	$scsi_ascq_lt{'0301'} = 'NO WRITE CURRENT';
	$scsi_ascq_lt{'0302'} = 'EXCESSIVE WRITE ERRORS';
	$scsi_ascq_lt{'0400'} = 'LOGICAL UNIT NOT READY, CAUSE NOT REPORTABLE';
	$scsi_ascq_lt{'0401'} = 'LOGICAL UNIT IS IN PROCESS OF BECOMING READY';
	$scsi_ascq_lt{'0402'} = 'LOGICAL UNIT NOT READY, INITIALIZING COMMAND REQUIRED';
	$scsi_ascq_lt{'0403'} = 'LOGICAL UNIT NOT READY, MANUAL INTERVENTION REQUIRED';
	$scsi_ascq_lt{'0404'} = 'LOGICAL UNIT NOT READY, FORMAT IN PROGRESS';
	$scsi_ascq_lt{'0405'} = 'LOGICAL UNIT NOT READY, REBUILD IN PROGRESS';
	$scsi_ascq_lt{'0406'} = 'LOGICAL UNIT NOT READY, RECALCULATION IN PROGRESS';
	$scsi_ascq_lt{'0407'} = 'LOGICAL UNIT NOT READY, OPERATION IN PROGRESS';
	$scsi_ascq_lt{'0408'} = 'LOGICAL UNIT NOT READY, LONG WRITE IN PROGRESS';
	$scsi_ascq_lt{'0409'} = 'LOGICAL UNIT NOT READY, SELF-TEST IN PROGRESS';
	$scsi_ascq_lt{'040A'} = 'LOGICAL UNIT NOT ACCESSIBLE, ASYMMETRIC ACCESS STATE TRANSITION';
	$scsi_ascq_lt{'040B'} = 'LOGICAL UNIT NOT ACCESSIBLE, TARGET PORT IN STANDBY STATE';
	$scsi_ascq_lt{'040C'} = 'LOGICAL UNIT NOT ACCESSIBLE, TARGET PORT IN UNAVAILABLE STATE';
	$scsi_ascq_lt{'0410'} = 'LOGICAL UNIT NOT READY, AUXILIARY MEMORY NOT ACCESSIBLE';
	$scsi_ascq_lt{'0411'} = 'LOGICAL UNIT NOT READY, NOTIFY (ENABLE SPINUP) REQUIRED';
	$scsi_ascq_lt{'0412'} = 'LOGICAL UNIT NOT READY, OFFLINE';
	$scsi_ascq_lt{'0500'} = 'LOGICAL UNIT DOES NOT RESPOND TO SELECTION';
	$scsi_ascq_lt{'0600'} = 'NO REFERENCE POSITION FOUND';
	$scsi_ascq_lt{'0700'} = 'MULTIPLE PERIPHERAL DEVICES SELECTED';
	$scsi_ascq_lt{'0800'} = 'LOGICAL UNIT COMMUNICATION FAILURE';
	$scsi_ascq_lt{'0801'} = 'LOGICAL UNIT COMMUNICATION TIME-OUT';
	$scsi_ascq_lt{'0802'} = 'LOGICAL UNIT COMMUNICATION PARITY ERROR';
	$scsi_ascq_lt{'0803'} = 'LOGICAL UNIT COMMUNICATION CRC ERROR (ULTRA-DMA/32)';
	$scsi_ascq_lt{'0804'} = 'UNREACHABLE COPY TARGET';
	$scsi_ascq_lt{'0900'} = 'TRACK FOLLOWING ERROR';
	$scsi_ascq_lt{'0901'} = 'TRACKING SERVO FAILURE';
	$scsi_ascq_lt{'0902'} = 'FOCUS SERVO FAILURE';
	$scsi_ascq_lt{'0903'} = 'SPINDLE SERVO FAILURE';
	$scsi_ascq_lt{'0904'} = 'HEAD SELECT FAULT';
	$scsi_ascq_lt{'0A00'} = 'ERROR LOG OVERFLOW';
	$scsi_ascq_lt{'0B00'} = 'WARNING';
	$scsi_ascq_lt{'0B01'} = 'WARNING - SPECIFIED TEMPERATURE EXCEEDED';
	$scsi_ascq_lt{'0B02'} = 'WARNING - ENCLOSURE DEGRADED';
	$scsi_ascq_lt{'0B03'} = 'WARNING - BACKGROUND SELF-TEST FAILED';
	$scsi_ascq_lt{'0B04'} = 'WARNING - BACKGROUND PRE-SCAN DETECTED MEDIUM ERROR';
	$scsi_ascq_lt{'0B05'} = 'WARNING - BACKGROUND MEDIUM SCAN DETECTED MEDIUM ERROR';
	$scsi_ascq_lt{'0C00'} = 'WRITE ERROR';
	$scsi_ascq_lt{'0C01'} = 'WRITE ERROR - RECOVERED WITH AUTO REALLOCATION';
	$scsi_ascq_lt{'0C02'} = 'WRITE ERROR - AUTO REALLOCATION FAILED';
	$scsi_ascq_lt{'0C03'} = 'WRITE ERROR - RECOMMEND REASSIGNMENT';
	$scsi_ascq_lt{'0C04'} = 'COMPRESSION CHECK MISCOMPARE ERROR';
	$scsi_ascq_lt{'0C05'} = 'DATA EXPANSION OCCURRED DURING COMPRESSION';
	$scsi_ascq_lt{'0C06'} = 'BLOCK NOT COMPRESSIBLE';
	$scsi_ascq_lt{'0C07'} = 'WRITE ERROR - RECOVERY NEEDED';
	$scsi_ascq_lt{'0C08'} = 'WRITE ERROR - RECOVERY FAILED';
	$scsi_ascq_lt{'0C09'} = 'WRITE ERROR - LOSS OF STREAMING';
	$scsi_ascq_lt{'0C0A'} = 'WRITE ERROR - PADDING BLOCKS ADDED';
	$scsi_ascq_lt{'0C0B'} = 'AUXILIARY MEMORY WRITE ERROR';
	$scsi_ascq_lt{'0C0C'} = 'WRITE ERROR - UNEXPECTED UNSOLICITED DATA';
	$scsi_ascq_lt{'0C0D'} = 'WRITE ERROR - NOT ENOUGH UNSOLICITED DATA';
	$scsi_ascq_lt{'0C0F'} = 'DEFECTS IN ERROR WINDOW';
	$scsi_ascq_lt{'0D00'} = 'ERROR DETECTED BY THIRD PARTY TEMPORARY INITIATOR';
	$scsi_ascq_lt{'0D01'} = 'THIRD PARTY DEVICE FAILURE';
	$scsi_ascq_lt{'0D02'} = 'COPY TARGET DEVICE NOT REACHABLE';
	$scsi_ascq_lt{'0D03'} = 'INCORRECT COPY TARGET DEVICE TYPE';
	$scsi_ascq_lt{'0D04'} = 'COPY TARGET DEVICE DATA UNDERRUN';
	$scsi_ascq_lt{'0D05'} = 'COPY TARGET DEVICE DATA OVERRUN';
	$scsi_ascq_lt{'0E00'} = 'INVALID INFORMATION UNIT';
	$scsi_ascq_lt{'0E01'} = 'INFORMATION UNIT TOO SHORT';
	$scsi_ascq_lt{'0E02'} = 'INFORMATION UNIT TOO LONG';
	$scsi_ascq_lt{'0E03'} = 'INVALID FIELD IN COMMAND INFORMATION UNIT';
	$scsi_ascq_lt{'0F00'} = '(none)';
	$scsi_ascq_lt{'1000'} = 'ID CRC OR ECC ERROR';
	$scsi_ascq_lt{'1001'} = 'LOGICAL BLOCK GUARD CHECK FAILED';
	$scsi_ascq_lt{'1002'} = 'LOGICAL BLOCK APPLICATION TAG CHECK FAILED';
	$scsi_ascq_lt{'1003'} = 'LOGICAL BLOCK REFERENCE TAG CHECK FAILED';
	$scsi_ascq_lt{'1100'} = 'UNRECOVERED READ ERROR';
	$scsi_ascq_lt{'1101'} = 'READ RETRIES EXHAUSTED';
	$scsi_ascq_lt{'1102'} = 'ERROR TOO LONG TO CORRECT';
	$scsi_ascq_lt{'1103'} = 'MULTIPLE READ ERRORS';
	$scsi_ascq_lt{'1104'} = 'UNRECOVERED READ ERROR - AUTO REALLOCATE FAILED';
	$scsi_ascq_lt{'1105'} = 'L-EC UNCORRECTABLE ERROR';
	$scsi_ascq_lt{'1106'} = 'CIRC UNRECOVERED ERROR';
	$scsi_ascq_lt{'1107'} = 'DATA RE-SYNCHRONIZATION ERROR';
	$scsi_ascq_lt{'1108'} = 'INCOMPLETE BLOCK READ';
	$scsi_ascq_lt{'1109'} = 'NO GAP FOUND';
	$scsi_ascq_lt{'110A'} = 'MISCORRECTED ERROR';
	$scsi_ascq_lt{'110B'} = 'UNRECOVERED READ ERROR - RECOMMEND REASSIGNMENT';
	$scsi_ascq_lt{'110C'} = 'UNRECOVERED READ ERROR - RECOMMEND REWRITE THE DATA';
	$scsi_ascq_lt{'110D'} = 'DE-COMPRESSION CRC ERROR';
	$scsi_ascq_lt{'110E'} = 'CANNOT DECOMPRESS USING DECLARED ALGORITHM';
	$scsi_ascq_lt{'110F'} = 'ERROR READING UPC/EAN NUMBER';
	$scsi_ascq_lt{'1110'} = 'ERROR READING ISRC NUMBER';
	$scsi_ascq_lt{'1111'} = 'READ ERROR - LOSS OF STREAMING';
	$scsi_ascq_lt{'1112'} = 'AUXILIARY MEMORY READ ERROR';
	$scsi_ascq_lt{'1113'} = 'READ ERROR - FAILED RETRANSMISSION REQUEST';
	$scsi_ascq_lt{'1114'} = 'READ ERROR - LBA MARKED BAD BY APPLICATION CLIENT';
	$scsi_ascq_lt{'1200'} = 'ADDRESS MARK NOT FOUND FOR ID FIELD';
	$scsi_ascq_lt{'1300'} = 'ADDRESS MARK NOT FOUND FOR DATA FIELD';
	$scsi_ascq_lt{'1400'} = 'RECORDED ENTITY NOT FOUND';
	$scsi_ascq_lt{'1401'} = 'RECORD NOT FOUND';
	$scsi_ascq_lt{'1402'} = 'FILEMARK OR SETMARK NOT FOUND';
	$scsi_ascq_lt{'1403'} = 'END-OF-DATA NOT FOUND';
	$scsi_ascq_lt{'1404'} = 'BLOCK SEQUENCE ERROR';
	$scsi_ascq_lt{'1405'} = 'RECORD NOT FOUND - RECOMMEND REASSIGNMENT';
	$scsi_ascq_lt{'1406'} = 'RECORD NOT FOUND - DATA AUTO-REALLOCATED';
	$scsi_ascq_lt{'1407'} = 'LOCATE OPERATION FAILURE';
	$scsi_ascq_lt{'1500'} = 'RANDOM POSITIONING ERROR';
	$scsi_ascq_lt{'1501'} = 'MECHANICAL POSITIONING ERROR';
	$scsi_ascq_lt{'1502'} = 'POSITIONING ERROR DETECTED BY READ OF MEDIUM';
	$scsi_ascq_lt{'1600'} = 'DATA SYNCHRONIZATION MARK ERROR';
	$scsi_ascq_lt{'1601'} = 'DATA SYNC ERROR - DATA REWRITTEN';
	$scsi_ascq_lt{'1602'} = 'DATA SYNC ERROR - RECOMMEND REWRITE';
	$scsi_ascq_lt{'1603'} = 'DATA SYNC ERROR - DATA AUTO-REALLOCATED';
	$scsi_ascq_lt{'1604'} = 'DATA SYNC ERROR - RECOMMEND REASSIGNMENT';
	$scsi_ascq_lt{'1700'} = 'RECOVERED DATA WITH NO ERROR CORRECTION APPLIED';
	$scsi_ascq_lt{'1701'} = 'RECOVERED DATA WITH RETRIES';
	$scsi_ascq_lt{'1702'} = 'RECOVERED DATA WITH POSITIVE HEAD OFFSET';
	$scsi_ascq_lt{'1703'} = 'RECOVERED DATA WITH NEGATIVE HEAD OFFSET';
	$scsi_ascq_lt{'1704'} = 'RECOVERED DATA WITH RETRIES AND/OR CIRC APPLIED';
	$scsi_ascq_lt{'1705'} = 'RECOVERED DATA USING PREVIOUS SECTOR ID';
	$scsi_ascq_lt{'1706'} = 'RECOVERED DATA WITHOUT ECC - DATA AUTO-REALLOCATED';
	$scsi_ascq_lt{'1707'} = 'RECOVERED DATA WITHOUT ECC - RECOMMEND REASSIGNMENT';
	$scsi_ascq_lt{'1708'} = 'RECOVERED DATA WITHOUT ECC - RECOMMEND REWRITE';
	$scsi_ascq_lt{'1709'} = 'RECOVERED DATA WITHOUT ECC - DATA REWRITTEN';
	$scsi_ascq_lt{'1800'} = 'RECOVERED DATA WITH ERROR CORRECTION APPLIED';
	$scsi_ascq_lt{'1801'} = 'RECOVERED DATA WITH ERROR CORR. & RETRIES APPLIED';
	$scsi_ascq_lt{'1802'} = 'RECOVERED DATA - DATA AUTO-REALLOCATED';
	$scsi_ascq_lt{'1803'} = 'RECOVERED DATA WITH CIRC';
	$scsi_ascq_lt{'1804'} = 'RECOVERED DATA WITH L-EC';
	$scsi_ascq_lt{'1805'} = 'RECOVERED DATA - RECOMMEND REASSIGNMENT';
	$scsi_ascq_lt{'1806'} = 'RECOVERED DATA - RECOMMEND REWRITE';
	$scsi_ascq_lt{'1807'} = 'RECOVERED DATA WITH ECC - DATA REWRITTEN';
	$scsi_ascq_lt{'1808'} = 'RECOVERED DATA WITH LINKING';
	$scsi_ascq_lt{'1900'} = 'DEFECT LIST ERROR';
	$scsi_ascq_lt{'1901'} = 'DEFECT LIST NOT AVAILABLE';
	$scsi_ascq_lt{'1902'} = 'DEFECT LIST ERROR IN PRIMARY LIST';
	$scsi_ascq_lt{'1903'} = 'DEFECT LIST ERROR IN GROWN LIST';
	$scsi_ascq_lt{'1A00'} = 'PARAMETER LIST LENGTH ERROR';
	$scsi_ascq_lt{'1B00'} = 'SYNCHRONOUS DATA TRANSFER ERROR';
	$scsi_ascq_lt{'1C00'} = 'DEFECT LIST NOT FOUND';
	$scsi_ascq_lt{'1C01'} = 'PRIMARY DEFECT LIST NOT FOUND';
	$scsi_ascq_lt{'1C02'} = 'GROWN DEFECT LIST NOT FOUND';
	$scsi_ascq_lt{'1D00'} = 'MISCOMPARE DURING VERIFY OPERATION';
	$scsi_ascq_lt{'1E00'} = 'RECOVERED ID WITH ECC CORRECTION';
	$scsi_ascq_lt{'1F00'} = 'PARTIAL DEFECT LIST TRANSFER';
	$scsi_ascq_lt{'2000'} = 'INVALID COMMAND OPERATION CODE';
	$scsi_ascq_lt{'2001'} = 'ACCESS DENIED - INITIATOR PENDING-ENROLLED';
	$scsi_ascq_lt{'2002'} = 'ACCESS DENIED - NO ACCESS RIGHTS';
	$scsi_ascq_lt{'2003'} = 'ACCESS DENIED - INVALID MGMT ID KEY';
	$scsi_ascq_lt{'2004'} = 'ILLEGAL COMMAND WHILE IN WRITE CAPABLE STATE';
	$scsi_ascq_lt{'2005'} = 'Obsolete';
	$scsi_ascq_lt{'2006'} = 'ILLEGAL COMMAND WHILE IN EXPLICIT ADDRESS MODE';
	$scsi_ascq_lt{'2007'} = 'ILLEGAL COMMAND WHILE IN IMPLICIT ADDRESS MODE';
	$scsi_ascq_lt{'2008'} = 'ACCESS DENIED - ENROLLMENT CONFLICT';
	$scsi_ascq_lt{'2009'} = 'ACCESS DENIED - INVALID LU IDENTIFIER';
	$scsi_ascq_lt{'200A'} = 'ACCESS DENIED - INVALID PROXY TOKEN';
	$scsi_ascq_lt{'200B'} = 'ACCESS DENIED - ACL LUN CONFLICT';
	$scsi_ascq_lt{'2100'} = 'LOGICAL BLOCK ADDRESS OUT OF RANGE';
	$scsi_ascq_lt{'2101'} = 'INVALID ELEMENT ADDRESS';
	$scsi_ascq_lt{'2102'} = 'INVALID ADDRESS FOR WRITE';
	$scsi_ascq_lt{'2103'} = 'INVALID WRITE CROSSING LAYER JUMP';
	$scsi_ascq_lt{'2200'} = 'ILLEGAL FUNCTION (USE 20 00, 24 00, OR 26 00)';
	$scsi_ascq_lt{'2400'} = 'INVALID FIELD IN CDB';
	$scsi_ascq_lt{'2401'} = 'CDB DECRYPTION ERROR';
	$scsi_ascq_lt{'2402'} = 'Obsolete';
	$scsi_ascq_lt{'2403'} = 'Obsolete';
	$scsi_ascq_lt{'2404'} = 'SECURITY AUDIT VALUE FROZEN';
	$scsi_ascq_lt{'2405'} = 'SECURITY WORKING KEY FROZEN';
	$scsi_ascq_lt{'2406'} = 'NONCE NOT UNIQUE';
	$scsi_ascq_lt{'2407'} = 'NONCE TIMESTAMP OUT OF RANGE';
	$scsi_ascq_lt{'2500'} = 'LOGICAL UNIT NOT SUPPORTED';
	$scsi_ascq_lt{'2600'} = 'INVALID FIELD IN PARAMETER LIST';
	$scsi_ascq_lt{'2601'} = 'PARAMETER NOT SUPPORTED';
	$scsi_ascq_lt{'2602'} = 'PARAMETER VALUE INVALID';
	$scsi_ascq_lt{'2603'} = 'THRESHOLD PARAMETERS NOT SUPPORTED';
	$scsi_ascq_lt{'2604'} = 'INVALID RELEASE OF PERSISTENT RESERVATION';
	$scsi_ascq_lt{'2605'} = 'DATA DECRYPTION ERROR';
	$scsi_ascq_lt{'2606'} = 'TOO MANY TARGET DESCRIPTORS';
	$scsi_ascq_lt{'2607'} = 'UNSUPPORTED TARGET DESCRIPTOR TYPE CODE';
	$scsi_ascq_lt{'2608'} = 'TOO MANY SEGMENT DESCRIPTORS';
	$scsi_ascq_lt{'2609'} = 'UNSUPPORTED SEGMENT DESCRIPTOR TYPE CODE';
	$scsi_ascq_lt{'260A'} = 'UNEXPECTED INEXACT SEGMENT';
	$scsi_ascq_lt{'260B'} = 'INLINE DATA LENGTH EXCEEDED';
	$scsi_ascq_lt{'260C'} = 'INVALID OPERATION FOR COPY SOURCE OR DESTINATION';
	$scsi_ascq_lt{'260D'} = 'COPY SEGMENT GRANULARITY VIOLATION';
	$scsi_ascq_lt{'260E'} = 'INVALID PARAMETER WHILE PORT IS ENABLED';
	$scsi_ascq_lt{'260F'} = 'INVALID DATA-OUT BUFFER INTEGRITY CHECK VALUE';
	$scsi_ascq_lt{'2610'} = 'DATA DECRYPTION KEY FAIL LIMIT REACHED';
	$scsi_ascq_lt{'2611'} = 'INCOMPLETE KEY-ASSOCIATED DATA SET';
	$scsi_ascq_lt{'2612'} = 'VENDOR SPECIFIC KEY REFERENCE NOT FOUND';
	$scsi_ascq_lt{'2700'} = 'WRITE PROTECTED';
	$scsi_ascq_lt{'2701'} = 'HARDWARE WRITE PROTECTED';
	$scsi_ascq_lt{'2702'} = 'LOGICAL UNIT SOFTWARE WRITE PROTECTED';
	$scsi_ascq_lt{'2703'} = 'ASSOCIATED WRITE PROTECT';
	$scsi_ascq_lt{'2704'} = 'PERSISTENT WRITE PROTECT';
	$scsi_ascq_lt{'2705'} = 'PERMANENT WRITE PROTECT';
	$scsi_ascq_lt{'2706'} = 'CONDITIONAL WRITE PROTECT';
	$scsi_ascq_lt{'2800'} = 'NOT READY TO READY CHANGE, MEDIUM MAY HAVE CHANGED';
	$scsi_ascq_lt{'2801'} = 'IMPORT OR EXPORT ELEMENT ACCESSED';
	$scsi_ascq_lt{'2802'} = 'FORMAT-LAYER MAY HAVE CHANGED';
	$scsi_ascq_lt{'2900'} = 'POWER ON, RESET, OR BUS DEVICE RESET OCCURRED';
	$scsi_ascq_lt{'2901'} = 'POWER ON OCCURRED';
	$scsi_ascq_lt{'2902'} = 'SCSI BUS RESET OCCURRED';
	$scsi_ascq_lt{'2903'} = 'BUS DEVICE RESET FUNCTION OCCURRED';
	$scsi_ascq_lt{'2904'} = 'DEVICE INTERNAL RESET';
	$scsi_ascq_lt{'2905'} = 'TRANSCEIVER MODE CHANGED TO SINGLE-ENDED';
	$scsi_ascq_lt{'2906'} = 'TRANSCEIVER MODE CHANGED TO LVD';
	$scsi_ascq_lt{'2907'} = 'I_T NEXUS LOSS OCCURRED';
	$scsi_ascq_lt{'2A00'} = 'PARAMETERS CHANGED';
	$scsi_ascq_lt{'2A01'} = 'MODE PARAMETERS CHANGED';
	$scsi_ascq_lt{'2A02'} = 'LOG PARAMETERS CHANGED';
	$scsi_ascq_lt{'2A03'} = 'RESERVATIONS PREEMPTED';
	$scsi_ascq_lt{'2A04'} = 'RESERVATIONS RELEASED';
	$scsi_ascq_lt{'2A05'} = 'REGISTRATIONS PREEMPTED';
	$scsi_ascq_lt{'2A06'} = 'ASYMMETRIC ACCESS STATE CHANGED';
	$scsi_ascq_lt{'2A07'} = 'IMPLICIT ASYMMETRIC ACCESS STATE TRANSITION FAILED';
	$scsi_ascq_lt{'2A08'} = 'PRIORITY CHANGED';
	$scsi_ascq_lt{'2A09'} = 'CAPACITY DATA HAS CHANGED';
	$scsi_ascq_lt{'2A10'} = 'TIMESTAMP CHANGED';
	$scsi_ascq_lt{'2A11'} = 'DATA ENCRYPTION PARAMETERS CHANGED BY ANOTHER I_T NEXUS';
	$scsi_ascq_lt{'2A12'} = 'DATA ENCRYPTION PARAMETERS CHANGED BY VENDOR SPECIFIC EVENT';
	$scsi_ascq_lt{'2A13'} = 'DATA ENCRYPTION KEY INSTANCE COUNTER HAS CHANGED';
	$scsi_ascq_lt{'2B00'} = 'COPY CANNOT EXECUTE SINCE HOST CANNOT DISCONNECT';
	$scsi_ascq_lt{'2C00'} = 'COMMAND SEQUENCE ERROR';
	$scsi_ascq_lt{'2C01'} = 'TOO MANY WINDOWS SPECIFIED';
	$scsi_ascq_lt{'2C02'} = 'INVALID COMBINATION OF WINDOWS SPECIFIED';
	$scsi_ascq_lt{'2C03'} = 'CURRENT PROGRAM AREA IS NOT EMPTY';
	$scsi_ascq_lt{'2C04'} = 'CURRENT PROGRAM AREA IS EMPTY';
	$scsi_ascq_lt{'2C05'} = 'ILLEGAL POWER CONDITION REQUEST';
	$scsi_ascq_lt{'2C06'} = 'PERSISTENT PREVENT CONFLICT';
	$scsi_ascq_lt{'2C07'} = 'PREVIOUS BUSY STATUS';
	$scsi_ascq_lt{'2C08'} = 'PREVIOUS TASK SET FULL STATUS';
	$scsi_ascq_lt{'2C09'} = 'PREVIOUS RESERVATION CONFLICT STATUS';
	$scsi_ascq_lt{'2C0A'} = 'PARTITION OR COLLECTION CONTAINS USER OBJECTS';
	$scsi_ascq_lt{'2C0B'} = 'NOT RESERVED';
	$scsi_ascq_lt{'2D00'} = 'OVERWRITE ERROR ON UPDATE IN PLACE';
	$scsi_ascq_lt{'2E00'} = 'INSUFFICIENT TIME FOR OPERATION';
	$scsi_ascq_lt{'2F00'} = 'COMMANDS CLEARED BY ANOTHER INITIATOR';
	$scsi_ascq_lt{'2F01'} = 'COMMANDS CLEARED BY POWER LOSS NOTIFICATION';
	$scsi_ascq_lt{'2F02'} = 'COMMANDS CLEARED BY DEVICE SERVER';
	$scsi_ascq_lt{'3000'} = 'INCOMPATIBLE MEDIUM INSTALLED';
	$scsi_ascq_lt{'3001'} = 'CANNOT READ MEDIUM - UNKNOWN FORMAT';
	$scsi_ascq_lt{'3002'} = 'CANNOT READ MEDIUM - INCOMPATIBLE FORMAT';
	$scsi_ascq_lt{'3003'} = 'CLEANING CARTRIDGE INSTALLED';
	$scsi_ascq_lt{'3004'} = 'CANNOT WRITE MEDIUM - UNKNOWN FORMAT';
	$scsi_ascq_lt{'3005'} = 'CANNOT WRITE MEDIUM - INCOMPATIBLE FORMAT';
	$scsi_ascq_lt{'3006'} = 'CANNOT FORMAT MEDIUM - INCOMPATIBLE MEDIUM';
	$scsi_ascq_lt{'3007'} = 'CLEANING FAILURE';
	$scsi_ascq_lt{'3008'} = 'CANNOT WRITE - APPLICATION CODE MISMATCH';
	$scsi_ascq_lt{'3009'} = 'CURRENT SESSION NOT FIXATED FOR APPEND';
	$scsi_ascq_lt{'300A'} = 'CLEANING REQUEST REJECTED';
	$scsi_ascq_lt{'300C'} = 'WORM MEDIUM - OVERWRITE ATTEMPTED';
	$scsi_ascq_lt{'300D'} = 'WORM MEDIUM - INTEGRITY CHECK';
	$scsi_ascq_lt{'3010'} = 'MEDIUM NOT FORMATTED';
	$scsi_ascq_lt{'3100'} = 'MEDIUM FORMAT CORRUPTED';
	$scsi_ascq_lt{'3101'} = 'FORMAT COMMAND FAILED';
	$scsi_ascq_lt{'3102'} = 'ZONED FORMATTING FAILED DUE TO SPARE LINKING';
	$scsi_ascq_lt{'3200'} = 'NO DEFECT SPARE LOCATION AVAILABLE';
	$scsi_ascq_lt{'3201'} = 'DEFECT LIST UPDATE FAILURE';
	$scsi_ascq_lt{'3300'} = 'TAPE LENGTH ERROR';
	$scsi_ascq_lt{'3400'} = 'ENCLOSURE FAILURE';
	$scsi_ascq_lt{'3500'} = 'ENCLOSURE SERVICES FAILURE';
	$scsi_ascq_lt{'3501'} = 'UNSUPPORTED ENCLOSURE FUNCTION';
	$scsi_ascq_lt{'3502'} = 'ENCLOSURE SERVICES UNAVAILABLE';
	$scsi_ascq_lt{'3503'} = 'ENCLOSURE SERVICES TRANSFER FAILURE';
	$scsi_ascq_lt{'3504'} = 'ENCLOSURE SERVICES TRANSFER REFUSED';
	$scsi_ascq_lt{'3505'} = 'ENCLOSURE SERVICES CHECKSUM ERROR';
	$scsi_ascq_lt{'3600'} = 'RIBBON, INK, OR TONER FAILURE';
	$scsi_ascq_lt{'3700'} = 'ROUNDED PARAMETER';
	$scsi_ascq_lt{'3800'} = 'EVENT STATUS NOTIFICATION';
	$scsi_ascq_lt{'3802'} = 'ESN - POWER MANAGEMENT CLASS EVENT';
	$scsi_ascq_lt{'3804'} = 'ESN - MEDIA CLASS EVENT';
	$scsi_ascq_lt{'3806'} = 'ESN - DEVICE BUSY CLASS EVENT';
	$scsi_ascq_lt{'3900'} = 'SAVING PARAMETERS NOT SUPPORTED';
	$scsi_ascq_lt{'3A00'} = 'MEDIUM NOT PRESENT';
	$scsi_ascq_lt{'3A01'} = 'MEDIUM NOT PRESENT - TRAY CLOSED';
	$scsi_ascq_lt{'3A02'} = 'MEDIUM NOT PRESENT - TRAY OPEN';
	$scsi_ascq_lt{'3A03'} = 'MEDIUM NOT PRESENT - LOADABLE';
	$scsi_ascq_lt{'3A04'} = 'MEDIUM NOT PRESENT - MEDIUM AUXILIARY MEMORY ACCESSIBLE';
	$scsi_ascq_lt{'3B00'} = 'SEQUENTIAL POSITIONING ERROR';
	$scsi_ascq_lt{'3B01'} = 'TAPE POSITION ERROR AT BEGINNING-OF-MEDIUM';
	$scsi_ascq_lt{'3B02'} = 'TAPE POSITION ERROR AT END-OF-MEDIUM';
	$scsi_ascq_lt{'3B03'} = 'TAPE OR ELECTRONIC VERTICAL FORMS UNIT NOT READY';
	$scsi_ascq_lt{'3B04'} = 'SLEW FAILURE';
	$scsi_ascq_lt{'3B05'} = 'PAPER JAM';
	$scsi_ascq_lt{'3B06'} = 'FAILED TO SENSE TOP-OF-FORM';
	$scsi_ascq_lt{'3B07'} = 'FAILED TO SENSE BOTTOM-OF-FORM';
	$scsi_ascq_lt{'3B08'} = 'REPOSITION ERROR';
	$scsi_ascq_lt{'3B09'} = 'READ PAST END OF MEDIUM';
	$scsi_ascq_lt{'3B0A'} = 'READ PAST BEGINNING OF MEDIUM';
	$scsi_ascq_lt{'3B0B'} = 'POSITION PAST END OF MEDIUM';
	$scsi_ascq_lt{'3B0C'} = 'POSITION PAST BEGINNING OF MEDIUM';
	$scsi_ascq_lt{'3B0D'} = 'MEDIUM DESTINATION ELEMENT FULL';
	$scsi_ascq_lt{'3B0E'} = 'MEDIUM SOURCE ELEMENT EMPTY';
	$scsi_ascq_lt{'3B0F'} = 'END OF MEDIUM REACHED';
	$scsi_ascq_lt{'3B11'} = 'MEDIUM MAGAZINE NOT ACCESSIBLE';
	$scsi_ascq_lt{'3B12'} = 'MEDIUM MAGAZINE REMOVED';
	$scsi_ascq_lt{'3B13'} = 'MEDIUM MAGAZINE INSERTED';
	$scsi_ascq_lt{'3B14'} = 'MEDIUM MAGAZINE LOCKED';
	$scsi_ascq_lt{'3B15'} = 'MEDIUM MAGAZINE UNLOCKED';
	$scsi_ascq_lt{'3B16'} = 'MECHANICAL POSITIONING OR CHANGER ERROR';
	$scsi_ascq_lt{'3B17'} = 'READ PAST END OF USER OBJECT';
	$scsi_ascq_lt{'3D00'} = 'INVALID BITS IN IDENTIFY MESSAGE';
	$scsi_ascq_lt{'3E00'} = 'LOGICAL UNIT HAS NOT SELF-CONFIGURED YET';
	$scsi_ascq_lt{'3E01'} = 'LOGICAL UNIT FAILURE';
	$scsi_ascq_lt{'3E02'} = 'TIMEOUT ON LOGICAL UNIT';
	$scsi_ascq_lt{'3E03'} = 'LOGICAL UNIT FAILED SELF-TEST';
	$scsi_ascq_lt{'3E04'} = 'LOGICAL UNIT UNABLE TO UPDATE SELF-TEST LOG';
	$scsi_ascq_lt{'3F00'} = 'TARGET OPERATING CONDITIONS HAVE CHANGED';
	$scsi_ascq_lt{'3F01'} = 'MICROCODE HAS BEEN CHANGED';
	$scsi_ascq_lt{'3F02'} = 'CHANGED OPERATING DEFINITION';
	$scsi_ascq_lt{'3F03'} = 'INQUIRY DATA HAS CHANGED';
	$scsi_ascq_lt{'3F04'} = 'COMPONENT DEVICE ATTACHED';
	$scsi_ascq_lt{'3F05'} = 'DEVICE IDENTIFIER CHANGED';
	$scsi_ascq_lt{'3F06'} = 'REDUNDANCY GROUP CREATED OR MODIFIED';
	$scsi_ascq_lt{'3F07'} = 'REDUNDANCY GROUP DELETED';
	$scsi_ascq_lt{'3F08'} = 'SPARE CREATED OR MODIFIED';
	$scsi_ascq_lt{'3F09'} = 'SPARE DELETED';
	$scsi_ascq_lt{'3F0A'} = 'VOLUME SET CREATED OR MODIFIED';
	$scsi_ascq_lt{'3F0B'} = 'VOLUME SET DELETED';
	$scsi_ascq_lt{'3F0C'} = 'VOLUME SET DEASSIGNED';
	$scsi_ascq_lt{'3F0D'} = 'VOLUME SET REASSIGNED';
	$scsi_ascq_lt{'3F0E'} = 'REPORTED LUNS DATA HAS CHANGED';
	$scsi_ascq_lt{'3F0F'} = 'ECHO BUFFER OVERWRITTEN';
	$scsi_ascq_lt{'3F10'} = 'MEDIUM LOADABLE';
	$scsi_ascq_lt{'3F11'} = 'MEDIUM AUXILIARY MEMORY ACCESSIBLE';
	$scsi_ascq_lt{'3F12'} = 'iSCSI IP ADDRESS ADDED';
	$scsi_ascq_lt{'3F13'} = 'iSCSI IP ADDRESS REMOVED';
	$scsi_ascq_lt{'3F14'} = 'iSCSI IP ADDRESS CHANGED';
	$scsi_ascq_lt{'4000'} = 'RAM FAILURE (SHOULD USE 40 NN)';
	$scsi_ascq_lt{'40NN'} = 'DIAGNOSTIC FAILURE ON COMPONENT NN (80h-FFh)';
	$scsi_ascq_lt{'4100'} = 'DATA PATH FAILURE (SHOULD USE 40 NN)';
	$scsi_ascq_lt{'4200'} = 'POWER-ON OR SELF-TEST FAILURE (SHOULD USE 40 NN)';
	$scsi_ascq_lt{'4300'} = 'MESSAGE ERROR';
	$scsi_ascq_lt{'4400'} = 'INTERNAL TARGET FAILURE';
	$scsi_ascq_lt{'4471'} = 'ATA DEVICE FAILED SET FEATURES';
	$scsi_ascq_lt{'4500'} = 'SELECT OR RESELECT FAILURE';
	$scsi_ascq_lt{'4600'} = 'UNSUCCESSFUL SOFT RESET';
	$scsi_ascq_lt{'4700'} = 'SCSI PARITY ERROR';
	$scsi_ascq_lt{'4701'} = 'DATA PHASE CRC ERROR DETECTED';
	$scsi_ascq_lt{'4702'} = 'SCSI PARITY ERROR DETECTED DURING ST DATA PHASE';
	$scsi_ascq_lt{'4703'} = 'INFORMATION UNIT iuCRC ERROR DETECTED';
	$scsi_ascq_lt{'4704'} = 'ASYNCHRONOUS INFORMATION PROTECTION ERROR DETECTED';
	$scsi_ascq_lt{'4705'} = 'PROTOCOL SERVICE CRC ERROR';
	$scsi_ascq_lt{'4706'} = 'PHY TEST FUNCTION IN PROGRESS';
	$scsi_ascq_lt{'477F'} = 'SOME COMMANDS CLEARED BY ISCSI PROTOCOL EVENT';
	$scsi_ascq_lt{'4800'} = 'INITIATOR DETECTED ERROR MESSAGE RECEIVED';
	$scsi_ascq_lt{'4900'} = 'INVALID MESSAGE ERROR';
	$scsi_ascq_lt{'4A00'} = 'COMMAND PHASE ERROR';
	$scsi_ascq_lt{'4B00'} = 'DATA PHASE ERROR';
	$scsi_ascq_lt{'4B01'} = 'INVALID TARGET PORT TRANSFER TAG RECEIVED';
	$scsi_ascq_lt{'4B02'} = 'TOO MUCH WRITE DATA';
	$scsi_ascq_lt{'4B03'} = 'ACK/NAK TIMEOUT';
	$scsi_ascq_lt{'4B04'} = 'NAK RECEIVED';
	$scsi_ascq_lt{'4B05'} = 'DATA OFFSET ERROR';
	$scsi_ascq_lt{'4B06'} = 'INITIATOR RESPONSE TIMEOUT';
	$scsi_ascq_lt{'4C00'} = 'LOGICAL UNIT FAILED SELF-CONFIGURATION';
	$scsi_ascq_lt{'4DNN'} = 'TAGGED OVERLAPPED COMMANDS (NN = TASK TAG)';
	$scsi_ascq_lt{'4E00'} = 'OVERLAPPED COMMANDS ATTEMPTED';
	$scsi_ascq_lt{'5000'} = 'WRITE APPEND ERROR';
	$scsi_ascq_lt{'5001'} = 'WRITE APPEND POSITION ERROR';
	$scsi_ascq_lt{'5002'} = 'POSITION ERROR RELATED TO TIMING';
	$scsi_ascq_lt{'5100'} = 'ERASE FAILURE';
	$scsi_ascq_lt{'5101'} = 'ERASE FAILURE - INCOMPLETE ERASE OPERATION DETECTED';
	$scsi_ascq_lt{'5200'} = 'CARTRIDGE FAULT';
	$scsi_ascq_lt{'5300'} = 'MEDIA LOAD OR EJECT FAILED';
	$scsi_ascq_lt{'5301'} = 'UNLOAD TAPE FAILURE';
	$scsi_ascq_lt{'5302'} = 'MEDIUM REMOVAL PREVENTED';
	$scsi_ascq_lt{'5303'} = 'MEDIUM REMOVAL PREVENTED BY DATA TRANSFER ELEMENT';
	$scsi_ascq_lt{'5304'} = 'MEDIUM THREAD OR UNTHREAD FAILURE';
	$scsi_ascq_lt{'5400'} = 'SCSI TO HOST SYSTEM INTERFACE FAILURE';
	$scsi_ascq_lt{'5500'} = 'SYSTEM RESOURCE FAILURE';
	$scsi_ascq_lt{'5501'} = 'SYSTEM BUFFER FULL';
	$scsi_ascq_lt{'5502'} = 'INSUFFICIENT RESERVATION RESOURCES';
	$scsi_ascq_lt{'5503'} = 'INSUFFICIENT RESOURCES';
	$scsi_ascq_lt{'5504'} = 'INSUFFICIENT REGISTRATION RESOURCES';
	$scsi_ascq_lt{'5505'} = 'INSUFFICIENT ACCESS CONTROL RESOURCES';
	$scsi_ascq_lt{'5506'} = 'AUXILIARY MEMORY OUT OF SPACE';
	$scsi_ascq_lt{'5507'} = 'QUOTA ERROR';
	$scsi_ascq_lt{'5508'} = 'MAXIMUM NUMBER OF SUPPLEMENTAL DECRYPTION KEYS EXCEEDED';
	$scsi_ascq_lt{'5700'} = 'UNABLE TO RECOVER TABLE-OF-CONTENTS';
	$scsi_ascq_lt{'5800'} = 'GENERATION DOES NOT EXIST';
	$scsi_ascq_lt{'5900'} = 'UPDATED BLOCK READ';
	$scsi_ascq_lt{'5A00'} = 'OPERATOR REQUEST OR STATE CHANGE INPUT';
	$scsi_ascq_lt{'5A01'} = 'OPERATOR MEDIUM REMOVAL REQUEST';
	$scsi_ascq_lt{'5A02'} = 'OPERATOR SELECTED WRITE PROTECT';
	$scsi_ascq_lt{'5A03'} = 'OPERATOR SELECTED WRITE PERMIT';
	$scsi_ascq_lt{'5B00'} = 'LOG EXCEPTION';
	$scsi_ascq_lt{'5B01'} = 'THRESHOLD CONDITION MET';
	$scsi_ascq_lt{'5B02'} = 'LOG COUNTER AT MAXIMUM';
	$scsi_ascq_lt{'5B03'} = 'LOG LIST CODES EXHAUSTED';
	$scsi_ascq_lt{'5C00'} = 'RPL STATUS CHANGE';
	$scsi_ascq_lt{'5C01'} = 'SPINDLES SYNCHRONIZED';
	$scsi_ascq_lt{'5C02'} = 'SPINDLES NOT SYNCHRONIZED';
	$scsi_ascq_lt{'5D00'} = 'FAILURE PREDICTION THRESHOLD EXCEEDED';
	$scsi_ascq_lt{'5D01'} = 'MEDIA FAILURE PREDICTION THRESHOLD EXCEEDED';
	$scsi_ascq_lt{'5D02'} = 'LOGICAL UNIT FAILURE PREDICTION THRESHOLD EXCEEDED';
	$scsi_ascq_lt{'5D03'} = 'SPARE AREA EXHAUSTION PREDICTION THRESHOLD EXCEEDED';
	$scsi_ascq_lt{'5D10'} = 'HARDWARE IMPENDING FAILURE GENERAL HARD DRIVE FAILURE';
	$scsi_ascq_lt{'5D11'} = 'HARDWARE IMPENDING FAILURE DRIVE ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D12'} = 'HARDWARE IMPENDING FAILURE DATA ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D13'} = 'HARDWARE IMPENDING FAILURE SEEK ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D14'} = 'HARDWARE IMPENDING FAILURE TOO MANY BLOCK REASSIGNS';
	$scsi_ascq_lt{'5D15'} = 'HARDWARE IMPENDING FAILURE ACCESS TIMES TOO HIGH';
	$scsi_ascq_lt{'5D16'} = 'HARDWARE IMPENDING FAILURE START UNIT TIMES TOO HIGH';
	$scsi_ascq_lt{'5D17'} = 'HARDWARE IMPENDING FAILURE CHANNEL PARAMETRICS';
	$scsi_ascq_lt{'5D18'} = 'HARDWARE IMPENDING FAILURE CONTROLLER DETECTED';
	$scsi_ascq_lt{'5D19'} = 'HARDWARE IMPENDING FAILURE THROUGHPUT PERFORMANCE';
	$scsi_ascq_lt{'5D1A'} = 'HARDWARE IMPENDING FAILURE SEEK TIME PERFORMANCE';
	$scsi_ascq_lt{'5D1B'} = 'HARDWARE IMPENDING FAILURE SPIN-UP RETRY COUNT';
	$scsi_ascq_lt{'5D1C'} = 'HARDWARE IMPENDING FAILURE DRIVE CALIBRATION RETRY COUNT';
	$scsi_ascq_lt{'5D20'} = 'CONTROLLER IMPENDING FAILURE GENERAL HARD DRIVE FAILURE';
	$scsi_ascq_lt{'5D21'} = 'CONTROLLER IMPENDING FAILURE DRIVE ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D22'} = 'CONTROLLER IMPENDING FAILURE DATA ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D23'} = 'CONTROLLER IMPENDING FAILURE SEEK ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D24'} = 'CONTROLLER IMPENDING FAILURE TOO MANY BLOCK REASSIGNS';
	$scsi_ascq_lt{'5D25'} = 'CONTROLLER IMPENDING FAILURE ACCESS TIMES TOO HIGH';
	$scsi_ascq_lt{'5D26'} = 'CONTROLLER IMPENDING FAILURE START UNIT TIMES TOO HIGH';
	$scsi_ascq_lt{'5D27'} = 'CONTROLLER IMPENDING FAILURE CHANNEL PARAMETRICS';
	$scsi_ascq_lt{'5D28'} = 'CONTROLLER IMPENDING FAILURE CONTROLLER DETECTED';
	$scsi_ascq_lt{'5D29'} = 'CONTROLLER IMPENDING FAILURE THROUGHPUT PERFORMANCE';
	$scsi_ascq_lt{'5D2A'} = 'CONTROLLER IMPENDING FAILURE SEEK TIME PERFORMANCE';
	$scsi_ascq_lt{'5D2B'} = 'CONTROLLER IMPENDING FAILURE SPIN-UP RETRY COUNT';
	$scsi_ascq_lt{'5D2C'} = 'CONTROLLER IMPENDING FAILURE DRIVE CALIBRATION RETRY COUNT';
	$scsi_ascq_lt{'5D30'} = 'DATA CHANNEL IMPENDING FAILURE GENERAL HARD DRIVE FAILURE';
	$scsi_ascq_lt{'5D31'} = 'DATA CHANNEL IMPENDING FAILURE DRIVE ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D32'} = 'DATA CHANNEL IMPENDING FAILURE DATA ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D33'} = 'DATA CHANNEL IMPENDING FAILURE SEEK ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D34'} = 'DATA CHANNEL IMPENDING FAILURE TOO MANY BLOCK REASSIGNS';
	$scsi_ascq_lt{'5D35'} = 'DATA CHANNEL IMPENDING FAILURE ACCESS TIMES TOO HIGH';
	$scsi_ascq_lt{'5D36'} = 'DATA CHANNEL IMPENDING FAILURE START UNIT TIMES TOO HIGH';
	$scsi_ascq_lt{'5D37'} = 'DATA CHANNEL IMPENDING FAILURE CHANNEL PARAMETRICS';
	$scsi_ascq_lt{'5D38'} = 'DATA CHANNEL IMPENDING FAILURE CONTROLLER DETECTED';
	$scsi_ascq_lt{'5D39'} = 'DATA CHANNEL IMPENDING FAILURE THROUGHPUT PERFORMANCE';
	$scsi_ascq_lt{'5D3A'} = 'DATA CHANNEL IMPENDING FAILURE SEEK TIME PERFORMANCE';
	$scsi_ascq_lt{'5D3B'} = 'DATA CHANNEL IMPENDING FAILURE SPIN-UP RETRY COUNT';
	$scsi_ascq_lt{'5D3C'} = 'DATA CHANNEL IMPENDING FAILURE DRIVE CALIBRATION RETRY COUNT';
	$scsi_ascq_lt{'5D40'} = 'SERVO IMPENDING FAILURE GENERAL HARD DRIVE FAILURE';
	$scsi_ascq_lt{'5D41'} = 'SERVO IMPENDING FAILURE DRIVE ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D42'} = 'SERVO IMPENDING FAILURE DATA ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D43'} = 'SERVO IMPENDING FAILURE SEEK ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D44'} = 'SERVO IMPENDING FAILURE TOO MANY BLOCK REASSIGNS';
	$scsi_ascq_lt{'5D45'} = 'SERVO IMPENDING FAILURE ACCESS TIMES TOO HIGH';
	$scsi_ascq_lt{'5D46'} = 'SERVO IMPENDING FAILURE START UNIT TIMES TOO HIGH';
	$scsi_ascq_lt{'5D47'} = 'SERVO IMPENDING FAILURE CHANNEL PARAMETRICS';
	$scsi_ascq_lt{'5D48'} = 'SERVO IMPENDING FAILURE CONTROLLER DETECTED';
	$scsi_ascq_lt{'5D49'} = 'SERVO IMPENDING FAILURE THROUGHPUT PERFORMANCE';
	$scsi_ascq_lt{'5D4A'} = 'SERVO IMPENDING FAILURE SEEK TIME PERFORMANCE';
	$scsi_ascq_lt{'5D4B'} = 'SERVO IMPENDING FAILURE SPIN-UP RETRY COUNT';
	$scsi_ascq_lt{'5D4C'} = 'SERVO IMPENDING FAILURE DRIVE CALIBRATION RETRY COUNT';
	$scsi_ascq_lt{'5D50'} = 'SPINDLE IMPENDING FAILURE GENERAL HARD DRIVE FAILURE';
	$scsi_ascq_lt{'5D51'} = 'SPINDLE IMPENDING FAILURE DRIVE ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D52'} = 'SPINDLE IMPENDING FAILURE DATA ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D53'} = 'SPINDLE IMPENDING FAILURE SEEK ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D54'} = 'SPINDLE IMPENDING FAILURE TOO MANY BLOCK REASSIGNS';
	$scsi_ascq_lt{'5D55'} = 'SPINDLE IMPENDING FAILURE ACCESS TIMES TOO HIGH';
	$scsi_ascq_lt{'5D56'} = 'SPINDLE IMPENDING FAILURE START UNIT TIMES TOO HIGH';
	$scsi_ascq_lt{'5D57'} = 'SPINDLE IMPENDING FAILURE CHANNEL PARAMETRICS';
	$scsi_ascq_lt{'5D58'} = 'SPINDLE IMPENDING FAILURE CONTROLLER DETECTED';
	$scsi_ascq_lt{'5D59'} = 'SPINDLE IMPENDING FAILURE THROUGHPUT PERFORMANCE';
	$scsi_ascq_lt{'5D5A'} = 'SPINDLE IMPENDING FAILURE SEEK TIME PERFORMANCE';
	$scsi_ascq_lt{'5D5B'} = 'SPINDLE IMPENDING FAILURE SPIN-UP RETRY COUNT';
	$scsi_ascq_lt{'5D5C'} = 'SPINDLE IMPENDING FAILURE DRIVE CALIBRATION RETRY COUNT';
	$scsi_ascq_lt{'5D60'} = 'FIRMWARE IMPENDING FAILURE GENERAL HARD DRIVE FAILURE';
	$scsi_ascq_lt{'5D61'} = 'FIRMWARE IMPENDING FAILURE DRIVE ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D62'} = 'FIRMWARE IMPENDING FAILURE DATA ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D63'} = 'FIRMWARE IMPENDING FAILURE SEEK ERROR RATE TOO HIGH';
	$scsi_ascq_lt{'5D64'} = 'FIRMWARE IMPENDING FAILURE TOO MANY BLOCK REASSIGNS';
	$scsi_ascq_lt{'5D65'} = 'FIRMWARE IMPENDING FAILURE ACCESS TIMES TOO HIGH';
	$scsi_ascq_lt{'5D66'} = 'FIRMWARE IMPENDING FAILURE START UNIT TIMES TOO HIGH';
	$scsi_ascq_lt{'5D67'} = 'FIRMWARE IMPENDING FAILURE CHANNEL PARAMETRICS';
	$scsi_ascq_lt{'5D68'} = 'FIRMWARE IMPENDING FAILURE CONTROLLER DETECTED';
	$scsi_ascq_lt{'5D69'} = 'FIRMWARE IMPENDING FAILURE THROUGHPUT PERFORMANCE';
	$scsi_ascq_lt{'5D6A'} = 'FIRMWARE IMPENDING FAILURE SEEK TIME PERFORMANCE';
	$scsi_ascq_lt{'5D6B'} = 'FIRMWARE IMPENDING FAILURE SPIN-UP RETRY COUNT';
	$scsi_ascq_lt{'5D6C'} = 'FIRMWARE IMPENDING FAILURE DRIVE CALIBRATION RETRY COUNT';
	$scsi_ascq_lt{'5DFF'} = 'FAILURE PREDICTION THRESHOLD EXCEEDED (FALSE)';
	$scsi_ascq_lt{'5E00'} = 'LOW POWER CONDITION ON';
	$scsi_ascq_lt{'5E01'} = 'IDLE CONDITION ACTIVATED BY TIMER';
	$scsi_ascq_lt{'5E02'} = 'STANDBY CONDITION ACTIVATED BY TIMER';
	$scsi_ascq_lt{'5E03'} = 'IDLE CONDITION ACTIVATED BY COMMAND';
	$scsi_ascq_lt{'5E04'} = 'STANDBY CONDITION ACTIVATED BY COMMAND';
	$scsi_ascq_lt{'5E41'} = 'POWER STATE CHANGE TO ACTIVE';
	$scsi_ascq_lt{'5E42'} = 'POWER STATE CHANGE TO IDLE';
	$scsi_ascq_lt{'5E43'} = 'POWER STATE CHANGE TO STANDBY';
	$scsi_ascq_lt{'5E45'} = 'POWER STATE CHANGE TO SLEEP';
	$scsi_ascq_lt{'5E47'} = 'POWER STATE CHANGE TO DEVICE CONTROL';
	$scsi_ascq_lt{'6000'} = 'LAMP FAILURE';
	$scsi_ascq_lt{'6100'} = 'VIDEO ACQUISITION ERROR';
	$scsi_ascq_lt{'6101'} = 'UNABLE TO ACQUIRE VIDEO';
	$scsi_ascq_lt{'6102'} = 'OUT OF FOCUS';
	$scsi_ascq_lt{'6200'} = 'SCAN HEAD POSITIONING ERROR';
	$scsi_ascq_lt{'6300'} = 'END OF USER AREA ENCOUNTERED ON THIS TRACK';
	$scsi_ascq_lt{'6301'} = 'PACKET DOES NOT FIT IN AVAILABLE SPACE';
	$scsi_ascq_lt{'6400'} = 'ILLEGAL MODE FOR THIS TRACK';
	$scsi_ascq_lt{'6401'} = 'INVALID PACKET SIZE';
	$scsi_ascq_lt{'6500'} = 'VOLTAGE FAULT';
	$scsi_ascq_lt{'6600'} = 'AUTOMATIC DOCUMENT FEEDER COVER UP';
	$scsi_ascq_lt{'6601'} = 'AUTOMATIC DOCUMENT FEEDER LIFT UP';
	$scsi_ascq_lt{'6602'} = 'DOCUMENT JAM IN AUTOMATIC DOCUMENT FEEDER';
	$scsi_ascq_lt{'6603'} = 'DOCUMENT MISS FEED AUTOMATIC IN DOCUMENT FEEDER';
	$scsi_ascq_lt{'6700'} = 'CONFIGURATION FAILURE';
	$scsi_ascq_lt{'6701'} = 'CONFIGURATION OF INCAPABLE LOGICAL UNITS FAILED';
	$scsi_ascq_lt{'6702'} = 'ADD LOGICAL UNIT FAILED';
	$scsi_ascq_lt{'6703'} = 'MODIFICATION OF LOGICAL UNIT FAILED';
	$scsi_ascq_lt{'6704'} = 'EXCHANGE OF LOGICAL UNIT FAILED';
	$scsi_ascq_lt{'6705'} = 'REMOVE OF LOGICAL UNIT FAILED';
	$scsi_ascq_lt{'6706'} = 'ATTACHMENT OF LOGICAL UNIT FAILED';
	$scsi_ascq_lt{'6707'} = 'CREATION OF LOGICAL UNIT FAILED';
	$scsi_ascq_lt{'6708'} = 'ASSIGN FAILURE OCCURRED';
	$scsi_ascq_lt{'6709'} = 'MULTIPLY ASSIGNED LOGICAL UNIT';
	$scsi_ascq_lt{'670A'} = 'SET TARGET PORT GROUPS COMMAND FAILED';
	$scsi_ascq_lt{'670B'} = 'ATA DEVICE FEATURE NOT ENABLED';
	$scsi_ascq_lt{'6800'} = 'LOGICAL UNIT NOT CONFIGURED';
	$scsi_ascq_lt{'6900'} = 'DATA LOSS ON LOGICAL UNIT';
	$scsi_ascq_lt{'6901'} = 'MULTIPLE LOGICAL UNIT FAILURES';
	$scsi_ascq_lt{'6902'} = 'PARITY/DATA MISMATCH';
	$scsi_ascq_lt{'6A00'} = 'INFORMATIONAL, REFER TO LOG';
	$scsi_ascq_lt{'6B00'} = 'STATE CHANGE HAS OCCURRED';
	$scsi_ascq_lt{'6B01'} = 'REDUNDANCY LEVEL GOT BETTER';
	$scsi_ascq_lt{'6B02'} = 'REDUNDANCY LEVEL GOT WORSE';
	$scsi_ascq_lt{'6C00'} = 'REBUILD FAILURE OCCURRED';
	$scsi_ascq_lt{'6D00'} = 'RECALCULATE FAILURE OCCURRED';
	$scsi_ascq_lt{'6E00'} = 'COMMAND TO LOGICAL UNIT FAILED';
	$scsi_ascq_lt{'6F00'} = 'COPY PROTECTION KEY EXCHANGE FAILURE - AUTHENTICATION FAILURE';
	$scsi_ascq_lt{'6F01'} = 'COPY PROTECTION KEY EXCHANGE FAILURE - KEY NOT PRESENT';
	$scsi_ascq_lt{'6F02'} = 'COPY PROTECTION KEY EXCHANGE FAILURE - KEY NOT ESTABLISHED';
	$scsi_ascq_lt{'6F03'} = 'READ OF SCRAMBLED SECTOR WITHOUT AUTHENTICATION';
	$scsi_ascq_lt{'6F04'} = 'MEDIA REGION CODE IS MISMATCHED TO LOGICAL UNIT REGION';
	$scsi_ascq_lt{'6F05'} = 'DRIVE REGION MUST BE PERMANENT/REGION RESET COUNT ERROR';
	$scsi_ascq_lt{'6F06'} = 'INSUFFICIENT BLOCK COUNT FOR BINDING NONCE RECORDING';
	$scsi_ascq_lt{'6F07'} = 'CONFLICT IN BINDING NONCE RECORDING';
	$scsi_ascq_lt{'70NN'} = 'DECOMPRESSION EXCEPTION SHORT ALGORITHM ID OF NN';
	$scsi_ascq_lt{'7100'} = 'DECOMPRESSION EXCEPTION LONG ALGORITHM ID';
	$scsi_ascq_lt{'7200'} = 'SESSION FIXATION ERROR';
	$scsi_ascq_lt{'7201'} = 'SESSION FIXATION ERROR WRITING LEAD-IN';
	$scsi_ascq_lt{'7202'} = 'SESSION FIXATION ERROR WRITING LEAD-OUT';
	$scsi_ascq_lt{'7203'} = 'SESSION FIXATION ERROR - INCOMPLETE TRACK IN SESSION';
	$scsi_ascq_lt{'7204'} = 'EMPTY OR PARTIALLY WRITTEN RESERVED TRACK';
	$scsi_ascq_lt{'7205'} = 'NO MORE TRACK RESERVATIONS ALLOWED';
	$scsi_ascq_lt{'7206'} = 'RMZ EXTENSION IS NOT ALLOWED';
	$scsi_ascq_lt{'7207'} = 'NO MORE TEST ZONE EXTENSIONS ARE ALLOWED';
	$scsi_ascq_lt{'7300'} = 'CD CONTROL ERROR';
	$scsi_ascq_lt{'7301'} = 'POWER CALIBRATION AREA ALMOST FULL';
	$scsi_ascq_lt{'7302'} = 'POWER CALIBRATION AREA IS FULL';
	$scsi_ascq_lt{'7303'} = 'POWER CALIBRATION AREA ERROR';
	$scsi_ascq_lt{'7304'} = 'PROGRAM MEMORY AREA UPDATE FAILURE';
	$scsi_ascq_lt{'7305'} = 'PROGRAM MEMORY AREA IS FULL';
	$scsi_ascq_lt{'7306'} = 'RMA/PMA IS ALMOST FULL';
	$scsi_ascq_lt{'7310'} = 'CURRENT POWER CALIBRATION AREA ALMOST FULL';
	$scsi_ascq_lt{'7311'} = 'CURRENT POWER CALIBRATION AREA IS FULL';
	$scsi_ascq_lt{'7317'} = 'RDZ IS FULL';
	$scsi_ascq_lt{'7400'} = 'SECURITY ERROR';
	$scsi_ascq_lt{'7401'} = 'UNABLE TO DECRYPT DATA';
	$scsi_ascq_lt{'7402'} = 'UNENCRYPTED DATA ENCOUNTERED WHILE DECRYPTING';
	$scsi_ascq_lt{'7403'} = 'INCORRECT DATA ENCRYPTION KEY';
	$scsi_ascq_lt{'7404'} = 'CRYPTOGRAPHIC INTEGRITY VALIDATION FAILED';
	$scsi_ascq_lt{'7405'} = 'ERROR DECRYPTING DATA';
	$scsi_ascq_lt{'7471'} = 'LOGICAL UNIT ACCESS NOT AUTHORIZED';

	$fc_payload_op_lt{'00000000'} = '(0x00; non-ELS)';
	$fc_payload_op_lt{'01000000'} = 'LS_RJT (or NS req?)';
	$fc_payload_op_lt{'02000000'} = 'LS_ACC';
	$fc_payload_op_lt{'03000000'} = 'PLOGI';
	$fc_payload_op_lt{'04000000'} = 'FLOGI';
	$fc_payload_op_lt{'05000000'} = 'LOGO';
	$fc_payload_op_lt{'06000000'} = 'ABTX';
	$fc_payload_op_lt{'07000000'} = 'RCS';
	$fc_payload_op_lt{'08000000'} = 'RES';
	$fc_payload_op_lt{'09000000'} = 'RSS';
	$fc_payload_op_lt{'0A000000'} = 'RSI';
	$fc_payload_op_lt{'0B000000'} = 'ESTS';
	$fc_payload_op_lt{'0C000000'} = 'ESTC';
	$fc_payload_op_lt{'0D000000'} = 'ADVC';
	$fc_payload_op_lt{'0E000000'} = 'RTV';
	$fc_payload_op_lt{'0F000000'} = 'RLS';
	$fc_payload_op_lt{'10000000'} = 'ECHO';
	$fc_payload_op_lt{'11000000'} = 'TEST';
	$fc_payload_op_lt{'12000000'} = 'RRQ';
	$fc_payload_op_lt{'13000000'} = 'REC';
	$fc_payload_op_lt{'14000000'} = 'for';
	$fc_payload_op_lt{'20000000'} = 'PRLI';
	$fc_payload_op_lt{'21000000'} = 'PRLO';
	$fc_payload_op_lt{'22000000'} = 'SCN';
	$fc_payload_op_lt{'23000000'} = 'TPLS';
	$fc_payload_op_lt{'24000000'} = 'TPRLO';
	$fc_payload_op_lt{'25000000'} = 'LCLM';
	$fc_payload_op_lt{'30000000'} = 'GAID';
	$fc_payload_op_lt{'31000000'} = 'FACT';
	$fc_payload_op_lt{'32000000'} = 'FDACT';
	$fc_payload_op_lt{'33000000'} = 'NACT';
	$fc_payload_op_lt{'34000000'} = 'NDACT';
	$fc_payload_op_lt{'40000000'} = 'QoSR';
	$fc_payload_op_lt{'41000000'} = 'RVCS';
	$fc_payload_op_lt{'50000000'} = 'PDISC';
	$fc_payload_op_lt{'51000000'} = 'FDISC';
	$fc_payload_op_lt{'52000000'} = 'ADISC';
	$fc_payload_op_lt{'53000000'} = 'RNC';
	$fc_payload_op_lt{'54000000'} = 'FARP_REQ';
	$fc_payload_op_lt{'55000000'} = 'FARP_REPLY';
	$fc_payload_op_lt{'56000000'} = 'RPS';
	$fc_payload_op_lt{'57000000'} = 'RPL';
	$fc_payload_op_lt{'58000000'} = 'RPBC';
	$fc_payload_op_lt{'60000000'} = 'FAN';
	$fc_payload_op_lt{'61000000'} = 'RSCN';
	$fc_payload_op_lt{'62000000'} = 'SCR';
	$fc_payload_op_lt{'63000000'} = 'RNFT';
	$fc_payload_op_lt{'68000000'} = 'CSR';
	$fc_payload_op_lt{'69000000'} = 'CSU';
	$fc_payload_op_lt{'70000000'} = 'LINIT';
	$fc_payload_op_lt{'71000000'} = 'LPC';
	$fc_payload_op_lt{'72000000'} = 'LSTS';
	$fc_payload_op_lt{'77000000'} = '(Vendor Specific)';
	$fc_payload_op_lt{'78000000'} = 'RNID';
	$fc_payload_op_lt{'79000000'} = 'RLIR';
	$fc_payload_op_lt{'7A000000'} = 'LIRR';
	$fc_payload_op_lt{'7B000000'} = 'SRL';
	$fc_payload_op_lt{'7C000000'} = 'SBRP';
	$fc_payload_op_lt{'7D000000'} = 'RPSC';
	$fc_payload_op_lt{'7E000000'} = 'FC-SP';
	$fc_payload_op_lt{'7F000000'} = 'EVFP';
	$fc_payload_op_lt{'80000000'} = 'LKA';
	$fc_payload_op_lt{'90000000'} = 'FC-SP';
	$fc_payload_op_lt{'97000000'} = 'FC-SP';
	$fc_payload_op_lt{'A0000000'} = 'FFI_DTM';
	$fc_payload_op_lt{'A1000000'} = 'FFI_RTM';
	$fc_payload_op_lt{'A2000000'} = 'FFI_PSS';
	$fc_payload_op_lt{'A3000000'} = 'FFI_MUR';
	$fc_payload_op_lt{'A4000000'} = 'FFI_RMUN';
	$fc_payload_op_lt{'A5000000'} = 'FFI_SMU';
	$fc_payload_op_lt{'A6000000'} = 'FFI_RMU';

	$fc_nsrjt_lt{'00000900'} = 'No additional explanation';
	$fc_nsrjt_lt{'00000901'} = 'Port Identifier not registered';
	$fc_nsrjt_lt{'00000902'} = 'Port Name not registered';
	$fc_nsrjt_lt{'00000903'} = 'Node Name not registered';
	$fc_nsrjt_lt{'00000904'} = 'Class of Service not registered';
	$fc_nsrjt_lt{'00000905'} = 'IP Address (Node) not registered';
	$fc_nsrjt_lt{'00000906'} = 'Initial Process Associator not registered';
	$fc_nsrjt_lt{'00000907'} = 'FC-4 TYPEs not registered';
	$fc_nsrjt_lt{'00000908'} = 'Sybolic Port Name not registered';
	$fc_nsrjt_lt{'00000909'} = 'Symbolic Node Name not registered';
	$fc_nsrjt_lt{'0000090A'} = 'Port Type not registered';
	$fc_nsrjt_lt{'0000090B'} = 'IP Address (Port) not registered';
	$fc_nsrjt_lt{'0000090C'} = 'Fabric Port Name not registered';
	$fc_nsrjt_lt{'0000090D'} = 'Host Address not registered';
	$fc_nsrjt_lt{'0000090E'} = 'FC-4 Descriptor not registered';
	$fc_nsrjt_lt{'0000090F'} = 'FC-4 Features not registered';
	$fc_nsrjt_lt{'00000910'} = 'Access denied';
	$fc_nsrjt_lt{'00000911'} = 'Unacceptable Port Identifier';
	$fc_nsrjt_lt{'00000912'} = 'Data base empty';
	$fc_nsrjt_lt{'00000913'} = 'No object registered in the specified scope';
	$fc_nsrjt_lt{'00000914'} = 'Domain ID not present';
	$fc_nsrjt_lt{'00000915'} = 'Port number not present';
	$fc_nsrjt_lt{'00000916'} = 'No device attached';

	$fc_lsrjt_rc_lt{'01'} = 'Invalid LA_Command code';
	$fc_lsrjt_rc_lt{'03'} = 'Logical error';
	$fc_lsrjt_rc_lt{'05'} = 'Logical busy';
	$fc_lsrjt_rc_lt{'07'} = 'Protocol error';
	$fc_lsrjt_rc_lt{'09'} = 'Unable to perform command request';
	$fc_lsrjt_rc_lt{'0B'} = 'Command not supported';
	$fc_lsrjt_rc_lt{'0E'} = 'Command lready in progress';

	$fc_lsrjt_re_lt{'00'} = 'No additional explanation';
	$fc_lsrjt_re_lt{'01'} = 'Service Parm error - Options';
	$fc_lsrjt_re_lt{'03'} = 'Service Parm error - Initiator Ctl';
	$fc_lsrjt_re_lt{'05'} = 'Service Parm error - Recieient Ctl';
	$fc_lsrjt_re_lt{'07'} = 'Service Parm error - Rec Data Field Size';
	$fc_lsrjt_re_lt{'09'} = 'Service Parm error - Concurrent Seq';
	$fc_lsrjt_re_lt{'0B'} = 'Service Parm error - Credit';
	$fc_lsrjt_re_lt{'0D'} = 'Invalid N_Port/F_Port Name';
	$fc_lsrjt_re_lt{'0E'} = 'Invalid Node/Fabric Name';
	$fc_lsrjt_re_lt{'0F'} = 'Invalid Common Service Parameters';
	$fc_lsrjt_re_lt{'11'} = 'Invalid Association Header';
	$fc_lsrjt_re_lt{'13'} = 'Association Header required';
	$fc_lsrjt_re_lt{'15'} = 'Invalid Originator S_ID';
	$fc_lsrjt_re_lt{'17'} = 'Invalid OS_ID-RX_ID combination';
	$fc_lsrjt_re_lt{'19'} = 'Command (request) already in progress';
	$fc_lsrjt_re_lt{'1E'} = 'N_Port Login required';
	$fc_lsrjt_re_lt{'1F'} = 'Invalid N_Port Identifier';
	$fc_lsrjt_re_lt{'21'} = 'Invalid SEQ_ID';
	$fc_lsrjt_re_lt{'23'} = 'Attempt to abort invalid Exchange';
	$fc_lsrjt_re_lt{'25'} = 'Attempt to abort inactive Exchange';
	$fc_lsrjt_re_lt{'27'} = 'Recovery_Qualifier required';
	$fc_lsrjt_re_lt{'29'} = 'Insufficient resources to support Login';
	$fc_lsrjt_re_lt{'2A'} = 'Unable to supply requested data';
	$fc_lsrjt_re_lt{'2C'} = 'Request not supported';
	$fc_lsrjt_re_lt{'2D'} = 'Invalid Payload length';
	$fc_lsrjt_re_lt{'46'} = 'Login Extnesion not supported';
	$fc_lsrjt_re_lt{'48'} = 'Authentication required (see FC-SP)';

	$fcp_rsp_code_lt{'00'} = 'Task Management function complete';
	$fcp_rsp_code_lt{'01'} = 'FCP_DATA length different than FCP_BURST_LEN';
	$fcp_rsp_code_lt{'02'} = 'FCP_CMND fields invalid';
	$fcp_rsp_code_lt{'03'} = 'FCP_DATA parameter mismatch with FCP_DATA_RO';
	$fcp_rsp_code_lt{'04'} = 'Task Management function rejected';
	$fcp_rsp_code_lt{'05'} = 'Task Management function failed';
	$fcp_rsp_code_lt{'09'} = 'Task Management function incorrect logical unit number';

	$plat_eeh_err_lt{'10000006'} = "slot Unavailable or Reset active";
	$plat_eeh_err_lt{'10000007'} = "could not xmalloc() EEH handle";
	$plat_eeh_err_lt{'10000008'} = "Bad BUS ID";
	$plat_eeh_err_lt{'11000009'} = "could not xmalloc EADS handle";
	$plat_eeh_err_lt{'11000010'} = "could not talloc EADS TRB";
	$plat_eeh_err_lt{'11000011'} = "RTAS Hardware Error";
	$plat_eeh_err_lt{'11000012'} = "EEH permanent error";
	$plat_eeh_err_lt{'11000013'} = "EEH temporary error";
	$plat_eeh_err_lt{'11000014'} = "EADS xalloc failure";
}