!
! ********************************************************************
! *                                                                  *
! *  Copyright 2001 Compaq Computer Corporation                      *
! *                                                                  *
! *  Compaq and the Compaq logo are trademarks of Compaq Information *
! *  Technologies Group, L.P.                                        *
! *                                                                  *
! *  Confidential computer software. Valid license from Compaq       *
! *  required for possession, use or copying. Consistent with FAR    *
! *  12.211 and 12.212, Commercial Computer Software, Computer       *
! *  Software Documentation, and Technical Data for Commercial Items *
! *  are licensed to the U.S. Government under vendor's standard     *
! *  commercial license.                                             *
! *                                                                  *
! ********************************************************************
!
 
!*** MODULE $FORDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER FOR$_FACILITY = '00000018'X
	PARAMETER FOR$_NOTFORSPE = '0018800C'X
	PARAMETER FOR$_NOTIMP = '00188014'X
	PARAMETER FOR$_IGNORED = '00188018'X
	PARAMETER FOR$_IGNNOTDEL = '00188020'X
	PARAMETER FOR$_VERSION = '00188033'X
	PARAMETER FOR$_BUG_CHECK = '00188044'X
	PARAMETER FOR$_PERACCFIL = '0018804C'X
	PARAMETER FOR$_CANOVEEXI = '00188054'X
	PARAMETER FOR$_UNINOTCON = '0018805B'X
	PARAMETER FOR$_SYNERRNAM = '0018808C'X
	PARAMETER FOR$_TOOMANVAL = '00188094'X
	PARAMETER FOR$_INVREFVAR = '0018809C'X
	PARAMETER FOR$_REWERR = '001880A4'X
	PARAMETER FOR$_DUPFILSPE = '001880AC'X
	PARAMETER FOR$_INPRECTOO = '001880B4'X
	PARAMETER FOR$_BACERR = '001880BC'X
	PARAMETER FOR$_ENDDURREA = '001880C4'X
	PARAMETER FOR$_RECNUMOUT = '001880CC'X
	PARAMETER FOR$_OPEDEFREQ = '001880D4'X
	PARAMETER FOR$_TOOMANREC = '001880DC'X
	PARAMETER FOR$_CLOERR = '001880E4'X
	PARAMETER FOR$_FILNOTFOU = '001880EC'X
	PARAMETER FOR$_OPEFAI = '001880F4'X
	PARAMETER FOR$_MIXFILACC = '001880FC'X
	PARAMETER FOR$_INVLOGUNI = '00188104'X
	PARAMETER FOR$_ENDFILERR = '0018810C'X
	PARAMETER FOR$_UNIALROPE = '00188114'X
	PARAMETER FOR$_SEGRECFOR = '0018811C'X
	PARAMETER FOR$_ATTACCNON = '00188124'X
	PARAMETER FOR$_INCRECLEN = '0018812C'X
	PARAMETER FOR$_ERRDURWRI = '00188134'X
	PARAMETER FOR$_ERRDURREA = '0018813C'X
	PARAMETER FOR$_RECIO_OPE = '00188144'X
	PARAMETER FOR$_INSVIRMEM = '0018814C'X
	PARAMETER FOR$_NO_SUCDEV = '00188154'X
	PARAMETER FOR$_FILNAMSPE = '0018815C'X
	PARAMETER FOR$_INCRECTYP = '00188164'X
	PARAMETER FOR$_KEYVALERR = '0018816C'X
	PARAMETER FOR$_INCOPECLO = '00188174'X
	PARAMETER FOR$_WRIREAFIL = '0018817C'X
	PARAMETER FOR$_INVARGFOR = '00188184'X
	PARAMETER FOR$_INVKEYSPE = '0018818C'X
	PARAMETER FOR$_INCKEYCHG = '00188194'X
	PARAMETER FOR$_INCFILORG = '0018819C'X
	PARAMETER FOR$_SPERECLOC = '001881A4'X
	PARAMETER FOR$_NO_CURREC = '001881AC'X
	PARAMETER FOR$_REWRITERR = '001881B4'X
	PARAMETER FOR$_DELERR = '001881BC'X
	PARAMETER FOR$_UNLERR = '001881C4'X
	PARAMETER FOR$_FINERR = '001881CC'X
	PARAMETER FOR$_MORONEREC = '001880DC'X
	PARAMETER FOR$_ATTREANON = '00188124'X
	PARAMETER FOR$_FMTSYN = '001881D3'X
	PARAMETER FOR$_LISIO_SYN = '001881DC'X
	PARAMETER FOR$_INFFORLOO = '001881E4'X
	PARAMETER FOR$_FORVARMIS = '001881EC'X
	PARAMETER FOR$_SYNERRFOR = '001881F4'X
	PARAMETER FOR$_OUTCONERR = '001881FA'X
	PARAMETER FOR$_INPCONERR = '00188204'X
	PARAMETER FOR$_FLTINV = '0018820C'X
	PARAMETER FOR$_OUTSTAOVE = '00188214'X
	PARAMETER FOR$_INPSTAREQ = '0018821C'X
	PARAMETER FOR$_VFEVALERR = '00188224'X
	PARAMETER FOR$_SIGINT = '0018822A'X
	PARAMETER FOR$_INTOVF = '00188234'X
	PARAMETER FOR$_INTDIV = '0018823C'X
	PARAMETER FOR$_FLTOVF = '00188242'X
	PARAMETER FOR$_FLTDIV = '0018824A'X
	PARAMETER FOR$_FLTUND = '00188252'X
	PARAMETER FOR$_SIGFPE = '0018825A'X
	PARAMETER FOR$_SIGIOT = '00188262'X
	PARAMETER FOR$_SUBRNG = '0018826C'X
	PARAMETER FOR$_SIGTERM = '00188272'X
	PARAMETER FOR$_SIGQUIT = '0018827A'X
	PARAMETER FOR$_WRONUMARG = '00188284'X
	PARAMETER FOR$_INVARGMAT = '0018828C'X
	PARAMETER FOR$_UNDEXP = '00188294'X
	PARAMETER FOR$_LOGZERNEG = '0018829C'X
	PARAMETER FOR$_SQUROONEG = '001882A4'X
	PARAMETER FOR$_SIGLOSMAT = '001882BC'X
	PARAMETER FOR$_FLOOVEMAT = '001882C4'X
	PARAMETER FOR$_FLOUNDMAT = '001882CA'X
	PARAMETER FOR$_ADJARRDIM = '001882EC'X
	PARAMETER FOR$_INVMATKEY = '001882F4'X
	PARAMETER FOR$_FLOCONFAI = '001882FA'X
	PARAMETER FOR$_CANSTAFIL = '00188364'X
	PARAMETER FOR$_OPEREQSEE = '001883C4'X
	PARAMETER FOR$_BRK_USERBP = '00188414'X
	PARAMETER FOR$_BRK_KERNELBP = '0018841C'X
	PARAMETER FOR$_BRK_BD_TAKEN = '0018842C'X
	PARAMETER FOR$_BRK_BD_NOTTAKEN = '00188434'X
	PARAMETER FOR$_BRK_SSTEPBP = '0018843C'X
	PARAMETER FOR$_BRK_OVERFLOW = '00188444'X
	PARAMETER FOR$_BRK_DIVZERO = '0018844C'X
	PARAMETER FOR$_BRK_RANGE = '00188454'X
	PARAMETER FOR$_BRK_RANGE2 = '0018845C'X
	PARAMETER FOR$_FLTINE = '00188464'X
	PARAMETER FOR$_DECOVF = '0018846C'X
	PARAMETER FOR$_DECDIV = '00188474'X
	PARAMETER FOR$_DECINV = '0018847C'X
	PARAMETER FOR$_ROPRAND = '00188484'X
	PARAMETER FOR$_ASSERTERR = '0018848C'X
	PARAMETER FOR$_NULPTRERR = '00188494'X
	PARAMETER FOR$_STKOVF = '0018849C'X
	PARAMETER FOR$_STRLENERR = '001884A4'X
	PARAMETER FOR$_SUBSTRERR = '001884AC'X
	PARAMETER FOR$_RANGEERR = '001884B4'X
	PARAMETER FOR$_INVREALLOC = '001884BC'X
	PARAMETER FOR$_RESACQFAI = '001884C4'X
	PARAMETER FOR$_INVDEALLOC = '001884CC'X
	PARAMETER FOR$_INVDEALLOC2 = '0018856C'X
	PARAMETER FOR$_SHORTDATEARG = '0018857C'X
	PARAMETER FOR$_SHORTTIMEARG = '00188584'X
	PARAMETER FOR$_SHORTZONEARG = '0018858C'X
	PARAMETER FOR$_DIV = '00188594'X
	PARAMETER FOR$_ARRSIZEOVF = '0018859C'X
	PARAMETER FOR$_UNFIO_FMT = '00188804'X
	PARAMETER FOR$_FMTIO_UNF = '0018880C'X
	PARAMETER FOR$_DIRIO_KEY = '00188814'X
	PARAMETER FOR$_SEQIO_DIR = '0018881C'X
	PARAMETER FOR$_KEYIO_DIR = '00188824'X
	PARAMETER FOR$_IO_NONFOR = '0018882C'X
	PARAMETER FOR$_INVTEXREC = '00188834'X
	PARAMETER FOR$_INVTEX = '0018883C'X
	PARAMETER FOR$_OPEREQDIS = '00188844'X
	PARAMETER FOR$_OPEREQSEQ = '0018884C'X
	PARAMETER FOR$_PROABOUSE = '00188852'X
	PARAMETER FOR$_FLOCONFAIU = '0018885A'X
	PARAMETER FOR$_ENDRECDUR = '00188864'X
	PARAMETER FOR$_FLOINEEXC = '00188943'X
	PARAMETER FOR$_FLOINVEXC = '0018894B'X
	PARAMETER FOR$_FLOOVFEXC = '00188953'X
	PARAMETER FOR$_FLODIV0EXC = '0018895B'X
	PARAMETER FOR$_FLOUNDEXC = '00188963'X
	PARAMETER FOR$_VECALIGNEXC = '0018896B'X
	PARAMETER FOR$_MSGBUFOVF = '00188C7C'X
	PARAMETER FOR$_DIAGNOSTIC = '00188C84'X
	PARAMETER FOR$_FATINTERR = '00189004'X
	PARAMETER FOR$_SUBPRCDIED = '0018900C'X
	PARAMETER FOR$_NOTIMPRET = '00189014'X
	PARAMETER FOR$_FAIOWNERID = '0018901C'X
	PARAMETER FOR$_FAIPRCID = '00189024'X
	PARAMETER FOR$_FAIPRCNAME = '0018902C'X
	PARAMETER FOR$_FAIACTCPU = '00189034'X
	PARAMETER FOR$_FAIIDPRC = '0018903C'X
	PARAMETER FOR$_FAIIMAGNAME = '00189044'X
	PARAMETER FOR$_FAIDCLEXIT = '0018904C'X
	PARAMETER FOR$_FAISUBPRC = '00189054'X
	PARAMETER FOR$_INVNUMPRC = '0018905C'X
	PARAMETER FOR$_MEMSHRERR = '00189064'X
	PARAMETER FOR$_LOCALSHRERR = '0018906C'X
	PARAMETER FOR$_LOCALACCESS = '00189074'X
	PARAMETER FOR$_INVLCLADR = '0018907C'X
	PARAMETER FOR$_COMSHRERR = '00189084'X
	PARAMETER FOR$_INVCOMADR = '0018908C'X
	PARAMETER FOR$_PARINITERR = '00189094'X
	PARAMETER FOR$_STACKSHRERR = '0018909C'X
	PARAMETER FOR$_FAISHRSTACK = '001890A4'X
	PARAMETER FOR$_INVUNWIND = '001890AC'X
	PARAMETER FOR$_STKBUFOVR = '001890B4'X
	PARAMETER FOR$_SUBPRCDEL = '001890BC'X
	PARAMETER FOR$_ASSERTFAIL = '001890C4'X
	PARAMETER FOR$_F6096 = '001890E4'X
	PARAMETER FOR$_F6097 = '001890EC'X
	PARAMETER FOR$_F6098 = '001890F4'X
	PARAMETER FOR$_F6099 = '001890FC'X
	PARAMETER FOR$_F6100 = '00189104'X
	PARAMETER FOR$_F6101 = '0018910C'X
	PARAMETER FOR$_F6102 = '00189114'X
	PARAMETER FOR$_F6103 = '0018911C'X
	PARAMETER FOR$_F6104 = '00189124'X
	PARAMETER FOR$_F6105 = '0018912C'X
	PARAMETER FOR$_F6106 = '00189134'X
	PARAMETER FOR$_F6200 = '0018913C'X
	PARAMETER FOR$_F6201 = '00189144'X
	PARAMETER FOR$_F6202 = '0018914C'X
	PARAMETER FOR$_F6203 = '00189154'X
	PARAMETER FOR$_F6204 = '0018915C'X
	PARAMETER FOR$_F6205 = '00189164'X
	PARAMETER FOR$_F6206 = '0018916C'X
	PARAMETER FOR$_F6207 = '00189174'X
	PARAMETER FOR$_F6208 = '0018917C'X
	PARAMETER FOR$_F6209 = '00189184'X
	PARAMETER FOR$_F6210 = '0018918C'X
	PARAMETER FOR$_F6211 = '00189194'X
	PARAMETER FOR$_F6212 = '0018919C'X
	PARAMETER FOR$_F6213 = '001891A4'X
	PARAMETER FOR$_F6214 = '001891AC'X
	PARAMETER FOR$_F6300 = '001891B4'X
	PARAMETER FOR$_F6301 = '001891BC'X
	PARAMETER FOR$_F6302 = '001891C4'X
	PARAMETER FOR$_F6303 = '001891CC'X
	PARAMETER FOR$_F6304 = '001891D4'X
	PARAMETER FOR$_F6305 = '001891DC'X
	PARAMETER FOR$_F6306 = '001891E4'X
	PARAMETER FOR$_F6307 = '001891EC'X
	PARAMETER FOR$_F6308 = '001891F4'X
	PARAMETER FOR$_F6309 = '001891FC'X
	PARAMETER FOR$_F6310 = '00189204'X
	PARAMETER FOR$_F6311 = '0018920C'X
	PARAMETER FOR$_F6312 = '00189214'X
	PARAMETER FOR$_F6313 = '0018921C'X
	PARAMETER FOR$_F6314 = '00189224'X
	PARAMETER FOR$_F6315 = '0018922C'X
	PARAMETER FOR$_F6316 = '00189234'X
	PARAMETER FOR$_F6317 = '0018923C'X
	PARAMETER FOR$_F6318 = '00189244'X
	PARAMETER FOR$_F6319 = '0018924C'X
	PARAMETER FOR$_F6400 = '00189254'X
	PARAMETER FOR$_F6401 = '0018925C'X
	PARAMETER FOR$_F6402 = '00189264'X
	PARAMETER FOR$_F6403 = '0018926C'X
	PARAMETER FOR$_F6404 = '00189274'X
	PARAMETER FOR$_F6405 = '0018927C'X
	PARAMETER FOR$_F6406 = '00189284'X
	PARAMETER FOR$_F6407 = '0018928C'X
	PARAMETER FOR$_F6408 = '00189294'X
	PARAMETER FOR$_F6409 = '0018929C'X
	PARAMETER FOR$_F6410 = '001892A4'X
	PARAMETER FOR$_F6411 = '001892AC'X
	PARAMETER FOR$_F6412 = '001892B4'X
	PARAMETER FOR$_F6413 = '001892BC'X
	PARAMETER FOR$_F6414 = '001892C4'X
	PARAMETER FOR$_F6415 = '001892CC'X
	PARAMETER FOR$_F6416 = '001892D4'X
	PARAMETER FOR$_F6417 = '001892DC'X
	PARAMETER FOR$_F6418 = '001892E4'X
	PARAMETER FOR$_F6419 = '001892EC'X
	PARAMETER FOR$_F6420 = '001892F4'X
	PARAMETER FOR$_F6421 = '001892FC'X
	PARAMETER FOR$_F6422 = '00189304'X
	PARAMETER FOR$_F6423 = '0018930C'X
	PARAMETER FOR$_F6424 = '00189314'X
	PARAMETER FOR$_F6425 = '0018931C'X
	PARAMETER FOR$_F6500 = '00189324'X
	PARAMETER FOR$_F6501 = '0018932C'X
	PARAMETER FOR$_F6502 = '00189334'X
	PARAMETER FOR$_F6503 = '0018933C'X
	PARAMETER FOR$_F6504 = '00189344'X
	PARAMETER FOR$_F6505 = '0018934C'X
	PARAMETER FOR$_F6506 = '00189354'X
	PARAMETER FOR$_F6507 = '0018935C'X
	PARAMETER FOR$_F6508 = '00189364'X
	PARAMETER FOR$_F6509 = '0018936C'X
	PARAMETER FOR$_F6510 = '00189374'X
	PARAMETER FOR$_F6511 = '0018937C'X
	PARAMETER FOR$_F6512 = '00189384'X
	PARAMETER FOR$_F6513 = '0018938C'X
	PARAMETER FOR$_F6514 = '00189394'X
	PARAMETER FOR$_F6515 = '0018939C'X
	PARAMETER FOR$_F6516 = '001893A4'X
	PARAMETER FOR$_F6600 = '001893AC'X
	PARAMETER FOR$_F6601 = '001893B4'X
	PARAMETER FOR$_F6602 = '001893BC'X
	PARAMETER FOR$_F6700 = '001893C4'X
	PARAMETER FOR$_F6701 = '001893CC'X
	PARAMETER FOR$_F6970 = '001893D4'X
	PARAMETER FOR$_F6971 = '001893DC'X
	PARAMETER FOR$_F6972 = '001893E4'X
	PARAMETER FOR$_F6980 = '001893EC'X
	PARAMETER FOR$_F6981 = '001893F4'X
	PARAMETER FOR$_F6982 = '001893FC'X
	PARAMETER FOR$_F6983 = '00189404'X
	PARAMETER FOR$_F6984 = '0018940C'X
	PARAMETER FOR$_F6985 = '00189414'X
	PARAMETER FOR$_F6986 = '0018941C'X
	PARAMETER FOR$_F6987 = '00189424'X
	PARAMETER FOR$_F6988 = '0018942C'X
	PARAMETER FOR$_F6989 = '00189434'X
	PARAMETER FOR$_F6990 = '0018943C'X
	PARAMETER FOR$_F6991 = '00189444'X
	PARAMETER FOR$_F6992 = '0018944C'X
	PARAMETER FOR$_F6993 = '00189454'X
	PARAMETER FOR$_F6994 = '0018945C'X
	PARAMETER FOR$_F6995 = '00189464'X
	PARAMETER FOR$_F6996 = '0018946C'X
	PARAMETER FOR$_F6997 = '00189474'X
	PARAMETER FOR$_F6998 = '0018947C'X
	PARAMETER FOR$_F6999 = '00189484'X
	PARAMETER FOR$_F6702 = '0018948C'X
	PARAMETER FOR$_F6703 = '00189494'X
	PARAMETER FOR$_F6704 = '0018949C'X
	PARAMETER FOR$_F6705 = '001894A4'X
	PARAMETER FOR$_F6706 = '001894AC'X
	PARAMETER FOR$_F6707 = '001894B4'X
	PARAMETER FOR$_F6708 = '001894BC'X
	PARAMETER FOR$_F6709 = '001894C4'X
	PARAMETER FOR$_F6710 = '001894CC'X
	PARAMETER FOR$_F6711 = '001894D4'X
	PARAMETER FOR$_F6712 = '001894DC'X
	PARAMETER FOR$_F6713 = '001894E4'X
	PARAMETER FOR$_F6714 = '001894EC'X
	PARAMETER FOR$_F6715 = '001894F4'X
	PARAMETER FOR$_F6716 = '001894FC'X
	PARAMETER FOR$_F6717 = '00189504'X
	PARAMETER FOR$_F6718 = '0018950C'X
	PARAMETER FOR$_F6719 = '00189514'X
	PARAMETER FOR$_F6720 = '0018951C'X
	PARAMETER FOR$_F6721 = '00189524'X
	PARAMETER FOR$_F6722 = '0018952C'X
	PARAMETER FOR$_F6723 = '00189534'X
	PARAMETER FOR$_F6724 = '0018953C'X
	PARAMETER FOR$_F6725 = '00189544'X
	PARAMETER FOR$_F6726 = '0018954C'X
	PARAMETER FOR$_F6727 = '00189554'X
	PARAMETER FOR$_F6728 = '0018955C'X
	PARAMETER FOR$_F6729 = '00189564'X
	PARAMETER FOR$_F6730 = '0018956C'X
	PARAMETER FOR$_F6731 = '00189574'X
	PARAMETER FOR$_F6732 = '0018957C'X
	PARAMETER FOR$_F6733 = '00189584'X
	PARAMETER FOR$_F6734 = '0018958C'X
	PARAMETER FOR$_F6735 = '00189594'X
	PARAMETER FOR$_F6736 = '0018959C'X
	PARAMETER FOR$_F6737 = '001895A4'X
	PARAMETER FOR$_F6738 = '001895AC'X
	PARAMETER FOR$_F6739 = '001895B4'X
	PARAMETER FOR$_F6740 = '001895BC'X
	PARAMETER FOR$_F6741 = '001895C4'X
	PARAMETER FOR$_F6742 = '001895CC'X
	PARAMETER FOR$_F6743 = '001895D4'X
	PARAMETER FOR$_F6744 = '001895DC'X
	PARAMETER FOR$_F6745 = '001895E4'X
	PARAMETER FOR$_F6746 = '001895EC'X
	PARAMETER FOR$_F6747 = '001895F4'X
	PARAMETER FOR$_F6748 = '001895FC'X
	PARAMETER FOR$_F6749 = '00189604'X
	PARAMETER FOR$_F6750 = '0018960C'X
	PARAMETER FOR$_F6751 = '00189614'X
	PARAMETER FOR$_F6752 = '0018961C'X
	PARAMETER FOR$_F6753 = '00189624'X
	PARAMETER FOR$_F6754 = '0018962C'X
	PARAMETER FOR$_F6755 = '00189634'X
	PARAMETER FOR$_F6756 = '0018963C'X
	PARAMETER FOR$_F6757 = '00189644'X
	PARAMETER FOR$_F6758 = '0018964C'X
	PARAMETER FOR$_F6759 = '00189654'X
	PARAMETER FOR$_F6760 = '0018965C'X
	PARAMETER FOR$_F6761 = '00189664'X
	PARAMETER FOR$_F6762 = '0018966C'X
	PARAMETER FOR$_F6763 = '00189674'X
	PARAMETER FOR$_F6764 = '0018967C'X
	PARAMETER FOR$_F6765 = '00189684'X
	PARAMETER FOR$_F6766 = '0018968C'X
	PARAMETER FOR$_F6767 = '00189694'X
	PARAMETER FOR$_F6768 = '0018969C'X
	PARAMETER FOR$_F6769 = '001896A4'X
	PARAMETER FOR$_F6770 = '001896AC'X
	PARAMETER FOR$_F6771 = '001896B4'X
	PARAMETER FOR$_F6772 = '001896BC'X
	PARAMETER FOR$_F6773 = '001896C4'X
	PARAMETER FOR$_F6774 = '001896CC'X
	PARAMETER FOR$_F6775 = '001896D4'X
	PARAMETER FOR$_F6776 = '001896DC'X
	PARAMETER FOR$_F6777 = '001896E4'X
	PARAMETER FOR$_F6778 = '001896EC'X
	PARAMETER FOR$_F6779 = '001896F4'X
	PARAMETER FOR$_F6780 = '001896FC'X
	PARAMETER FOR$_F6781 = '00189704'X
	PARAMETER FOR$_F6782 = '0018970C'X
	PARAMETER FOR$_F6783 = '00189714'X
	PARAMETER FOR$_F6784 = '0018971C'X
	PARAMETER FOR$_F6785 = '00189724'X
	PARAMETER FOR$_F6786 = '0018972C'X
	PARAMETER FOR$_F6787 = '00189734'X
	PARAMETER FOR$_F6788 = '0018973C'X
	PARAMETER FOR$_F6789 = '00189744'X
	PARAMETER FOR$_F6790 = '0018974C'X
	PARAMETER FOR$_F6791 = '00189754'X
	PARAMETER FOR$_F6792 = '0018975C'X
	PARAMETER FOR$_F6793 = '00189764'X
	PARAMETER FOR$_F6794 = '0018976C'X
	PARAMETER FOR$_F6795 = '00189774'X
	PARAMETER FOR$_F6796 = '0018977C'X
	PARAMETER FOR$_F6797 = '00189784'X
	PARAMETER FOR$_F6798 = '0018978C'X
	PARAMETER FOR$_F6799 = '00189794'X
	PARAMETER FOR$_F6800 = '0018979C'X
	PARAMETER FOR$_F6801 = '001897A4'X
	PARAMETER FOR$_F6802 = '001897AC'X
	PARAMETER FOR$_F6803 = '001897B4'X
	PARAMETER FOR$_F6804 = '001897BC'X
	PARAMETER FOR$_INVLOGNAM = '00189802'X
	PARAMETER FOR$_TOOMANPRC = '0018980A'X
	PARAMETER FOR$_INVDSTRSIZE = '00189812'X
	PARAMETER FOR$_DEFVALUSED = '0018A803'X
	PARAMETER FOR$_UNIPROCESS = '0018A80B'X
	PARAMETER FOR$_NOPARINIT = '0018A813'X
	PARAMETER FOR$_NOTRUNINPP = '0018A81B'X
	PARAMETER FOR$_NESTPPLOOP = '0018A823'X
	PARAMETER FOR$_UNAWAKSUB = '0018A82B'X
!DEC$ END OPTIONS
!
! ********************************************************************
! *                                                                  *
! *  Copyright 2001 Compaq Computer Corporation                      *
! *                                                                  *
! *  Compaq and the Compaq logo are trademarks of Compaq Information *
! *  Technologies Group, L.P.                                        *
! *                                                                  *
! *  Confidential computer software. Valid license from Compaq       *
! *  required for possession, use or copying. Consistent with FAR    *
! *  12.211 and 12.212, Commercial Computer Software, Computer       *
! *  Software Documentation, and Technical Data for Commercial Items *
! *  are licensed to the U.S. Government under vendor's standard     *
! *  commercial license.                                             *
! *                                                                  *
! ********************************************************************
!
 
!*** MODULE for_fp_class IDENT JDR1-001 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER FOR_K_FP_SNAN = '00000000'X
	PARAMETER FOR_K_FP_QNAN = '00000001'X
	PARAMETER FOR_K_FP_POS_INF = '00000002'X
	PARAMETER FOR_K_FP_NEG_INF = '00000003'X
	PARAMETER FOR_K_FP_POS_NORM = '00000004'X
	PARAMETER FOR_K_FP_NEG_NORM = '00000005'X
	PARAMETER FOR_K_FP_POS_DENORM = '00000006'X
	PARAMETER FOR_K_FP_NEG_DENORM = '00000007'X
	PARAMETER FOR_K_FP_POS_ZERO = '00000008'X
	PARAMETER FOR_K_FP_NEG_ZERO = '00000009'X
!DEC$ END OPTIONS
!
! ********************************************************************
! *                                                                  *
! *  Copyright 2001 Compaq Computer Corporation                      *
! *                                                                  *
! *  Compaq and the Compaq logo are trademarks of Compaq Information *
! *  Technologies Group, L.P.                                        *
! *                                                                  *
! *  Confidential computer software. Valid license from Compaq       *
! *  required for possession, use or copying. Consistent with FAR    *
! *  12.211 and 12.212, Commercial Computer Software, Computer       *
! *  Software Documentation, and Technical Data for Commercial Items *
! *  are licensed to the U.S. Government under vendor's standard     *
! *  commercial license.                                             *
! *                                                                  *
! ********************************************************************
!
 
!*** MODULE for_fpe_flags IDENT WCH1-006 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER FOR_K_FPE_CNT_UNDERFLOW = '00000001'X
	PARAMETER FOR_K_FPE_CNT_OVERFLOW = '00000002'X
	PARAMETER FOR_K_FPE_CNT_DIVIDE0 = '00000003'X
	PARAMETER FOR_K_FPE_CNT_INVALID = '00000004'X
	PARAMETER FOR_K_FPE_CNT_INEXACT = '00000005'X
	PARAMETER FOR_K_FPE_CNT_ARRAY_MAX = '00000005'X
	PARAMETER FPE_M_TRAP_UND = '00000001'X
	PARAMETER FPE_M_TRAP_OVF = '00000002'X
	PARAMETER FPE_M_TRAP_DIV0 = '00000004'X
	PARAMETER FPE_M_TRAP_INV = '00000008'X
	PARAMETER FPE_M_TRAP_INE = '00000010'X
	PARAMETER FPE_M_RESERVED_01 = '00000020'X
	PARAMETER FPE_M_RESERVED_02 = '00000040'X
	PARAMETER FPE_M_RESERVED_03 = '00000080'X
	PARAMETER FPE_M_MSG_OVF = '00000100'X
	PARAMETER FPE_M_MSG_UND = '00000200'X
	PARAMETER FPE_M_MSG_DIV0 = '00000400'X
	PARAMETER FPE_M_MSG_INV = '00000800'X
	PARAMETER FPE_M_MSG_INE = '00001000'X
	PARAMETER FPE_M_RESERVED_05 = '00002000'X
	PARAMETER FPE_M_RESERVED_06 = '00004000'X
	PARAMETER FPE_M_RESERVED_07 = '00008000'X
	PARAMETER FPE_M_ABRUPT_UND = '00010000'X
	PARAMETER FPE_M_ABRUPT_OVF = '00020000'X
	PARAMETER FPE_M_ABRUPT_DIV0 = '00040000'X
	PARAMETER FPE_M_ABRUPT_INV = '00080000'X
	PARAMETER FPE_M_ABRUPT_DMZ = '00100000'X
	PARAMETER FPE_M_NEAREST = '00200000'X
	PARAMETER FPE_M_CHOPPED = '00400000'X
	PARAMETER FPE_M_MINUS_INFINITY = '00800000'X
	PARAMETER FPE_M_DYNAMIC = '01000000'X
	PARAMETER FPE_M_RESERVED_13 = '02000000'X
	PARAMETER FPE_M_RESERVED_14 = '04000000'X
	PARAMETER FPE_M_RESERVED_15 = '08000000'X
	PARAMETER FPE_M_RESERVED_16 = '10000000'X
	PARAMETER FPE_M_RESERVED_17 = '20000000'X
	PARAMETER FPE_M_RESERVED_18 = '40000000'X
	PARAMETER FPE_M_RESERVED_19 = '80000000'X
	STRUCTURE /for_fpe_flags/
	    PARAMETER FPE_S_TRAP_UND = 1
	    PARAMETER FPE_V_TRAP_UND = 0
	    PARAMETER FPE_S_TRAP_OVF = 1
	    PARAMETER FPE_V_TRAP_OVF = 1
	    PARAMETER FPE_S_TRAP_DIV0 = 1
	    PARAMETER FPE_V_TRAP_DIV0 = 2
	    PARAMETER FPE_S_TRAP_INV = 1
	    PARAMETER FPE_V_TRAP_INV = 3
	    PARAMETER FPE_S_TRAP_INE = 1
	    PARAMETER FPE_V_TRAP_INE = 4
	    PARAMETER FPE_S_RESERVED_01 = 1
	    PARAMETER FPE_V_RESERVED_01 = 5
	    PARAMETER FPE_S_RESERVED_02 = 1
	    PARAMETER FPE_V_RESERVED_02 = 6
	    PARAMETER FPE_S_RESERVED_03 = 1
	    PARAMETER FPE_V_RESERVED_03 = 7
	    PARAMETER FPE_S_MSG_OVF = 1
	    PARAMETER FPE_V_MSG_OVF = 8
	    PARAMETER FPE_S_MSG_UND = 1
	    PARAMETER FPE_V_MSG_UND = 9
	    PARAMETER FPE_S_MSG_DIV0 = 1
	    PARAMETER FPE_V_MSG_DIV0 = 10
	    PARAMETER FPE_S_MSG_INV = 1
	    PARAMETER FPE_V_MSG_INV = 11
	    PARAMETER FPE_S_MSG_INE = 1
	    PARAMETER FPE_V_MSG_INE = 12
	    PARAMETER FPE_S_RESERVED_05 = 1
	    PARAMETER FPE_V_RESERVED_05 = 13
	    PARAMETER FPE_S_RESERVED_06 = 1
	    PARAMETER FPE_V_RESERVED_06 = 14
	    PARAMETER FPE_S_RESERVED_07 = 1
	    PARAMETER FPE_V_RESERVED_07 = 15
	    PARAMETER FPE_S_ABRUPT_UND = 1
	    PARAMETER FPE_V_ABRUPT_UND = 16
	    PARAMETER FPE_S_ABRUPT_OVF = 1
	    PARAMETER FPE_V_ABRUPT_OVF = 17
	    PARAMETER FPE_S_ABRUPT_DIV0 = 1
	    PARAMETER FPE_V_ABRUPT_DIV0 = 18
	    PARAMETER FPE_S_ABRUPT_INV = 1
	    PARAMETER FPE_V_ABRUPT_INV = 19
	    PARAMETER FPE_S_ABRUPT_DMZ = 1
	    PARAMETER FPE_V_ABRUPT_DMZ = 20
	    PARAMETER FPE_S_NEAREST = 1
	    PARAMETER FPE_V_NEAREST = 21
	    PARAMETER FPE_S_CHOPPED = 1
	    PARAMETER FPE_V_CHOPPED = 22
	    PARAMETER FPE_S_MINUS_INFINITY = 1
	    PARAMETER FPE_V_MINUS_INFINITY = 23
	    PARAMETER FPE_S_DYNAMIC = 1
	    PARAMETER FPE_V_DYNAMIC = 24
	    PARAMETER FPE_S_RESERVED_13 = 1
	    PARAMETER FPE_V_RESERVED_13 = 25
	    PARAMETER FPE_S_RESERVED_14 = 1
	    PARAMETER FPE_V_RESERVED_14 = 26
	    PARAMETER FPE_S_RESERVED_15 = 1
	    PARAMETER FPE_V_RESERVED_15 = 27
	    PARAMETER FPE_S_RESERVED_16 = 1
	    PARAMETER FPE_V_RESERVED_16 = 28
	    PARAMETER FPE_S_RESERVED_17 = 1
	    PARAMETER FPE_V_RESERVED_17 = 29
	    PARAMETER FPE_S_RESERVED_18 = 1
	    PARAMETER FPE_V_RESERVED_18 = 30
	    PARAMETER FPE_S_RESERVED_19 = 1
	    PARAMETER FPE_V_RESERVED_19 = 31
	    BYTE %FILL (4)
	END STRUCTURE	! for_fpe_flags
!DEC$ END OPTIONS
!
! ********************************************************************
! *                                                                  *
! *  Copyright 2001 Compaq Computer Corporation                      *
! *                                                                  *
! *  Compaq and the Compaq logo are trademarks of Compaq Information *
! *  Technologies Group, L.P.                                        *
! *                                                                  *
! *  Confidential computer software. Valid license from Compaq       *
! *  required for possession, use or copying. Consistent with FAR    *
! *  12.211 and 12.212, Commercial Computer Software, Computer       *
! *  Software Documentation, and Technical Data for Commercial Items *
! *  are licensed to the U.S. Government under vendor's standard     *
! *  commercial license.                                             *
! *                                                                  *
! ********************************************************************
!
 
!*** MODULE for_reent_codes IDENT SAR1-002 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER FOR_K_REENTRANCY_NONE = '00000000'X
	PARAMETER FOR_K_REENTRANCY_ASYNCH = '00000001'X
	PARAMETER FOR_K_REENTRANCY_THREADED = '00000002'X
	PARAMETER FOR_K_REENTRANCY_INFO = '00000003'X
!DEC$ END OPTIONS