!*** MODULE $MAILMSGDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! This SDL File Generated by VAX-11 Message V04-00 on 10-FEB-2012 14:34:54.63 ! ! ! VERSION: 'X-14' ! ! * * ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1992 - 1996 BY * ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ! * ALL RIGHTS RESERVED. * ! * * ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! * TRANSFERRED. * ! * * ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! * CORPORATION. * ! * * ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * * ! ++ ! ! FACILITY: VMS SYSTEM MACRO LIBRARIES ! ! ABSTRACT: ! ! THIS FILE CONTAINS THE MDL SOURCE FOR MAIL MESSAGES ! ! ENVIRONMENT: ! ! N/A ! ! ! ! AUTHOR: THE VMS GROUP CREATION DATE: 8-JUN-1978 ! ! MODIFICATION HISTORY: ! ! X-14 RKS020909 RANJAN KUMAR SARANGI 09-FEB-2009 ! MODIFIED DIRHD0 MESSAGE FORMAT FOR MAIL HEADER ! ALIGNMENT(PTR-75-120-515). ! ! X-13 SD070507 SAMWEDANA DEVPA 05-JUL-2007 ! MODIFIED DIRHD0 MESSAGE FORMAT. ! ! X-12 SG088 SHEELA GAYATRI 20-FEB-1996 ! ADD KEYNOTDEF & INVKEYNAM MESSAGES. ! ! X-11 SG082 SHEELA GAYATRI 09-FEB-1996 ! ADD ILLEDTNAM MESSAGE. REMOVE X-10. ! ! X-10 SG067 SHEELA GAYATRI 13-NOV-1995 ! ADD CDASUPPORT MESSAGE FOR EAGLE/THETA FOR MAIL/OLD ! SUPPORT FOR DDIF/DTIF FILES. THIS MESSAGE WILL ! BECOME REDUNDANT IN GRYPHON, WHEN SUPPORT FOR ! DDIF/DTIF FILE PROCESSING IS ADDED. ! ! X-9 ROP1002 ROBERT POSNIAK 7-JUN-1995 ! ADD SHOWNOSIG, SHOWSIG AND BADLOGVAL MESSAGES. ! ! X-8 MB0020 MARINA BUCKLEY 12-OCT-1994 ! MODIFY THE TEXT OF THE CODERR FATAL ERROR. ! ! X-7 MB0011 MARINA BUCKLEY 16-JUN-1994 ! ADD MAIL$_LISTTOOLONG ERROR MESSAGE TO BE RETURNED ! FROM CALLABLE MAIL ROUTINE MAIL$SEND_ADD_ADDRESS IF ! USER CALLS IT MULTIPLE TIMES RESULTING IN AN ADDRESS ! LIST THAT EXCEEDS THE MAXIMUM. ! ! X-6 TNS004 TOM SCARPELLI 11-APR-1994 ! ADD I18N CHANGES. ! ! X-5 RAB RICHARD A. BISHOP 17-AUG-1993 ! PICK UP MAIL$_DELETED AND MAIL$_FFMTMSG FROM VAX: ! ! X-22 CCD027 CAREY DONAT 11-AUG-1993 ! REMOVE FROM MIDDLE OF FFMTMSG ! ! X-21 CCD027 CAREY DONAT 13-JUL-1993 ! ADD FFMTMSG INFORMATIONAL MESSAGE FOR FOREIGN FILES ! WHERE TRANLATOR EXISTS ! ! X-20 CCD007 CAREY DONAT 08-FEB-1993 ! ADD DELETED MESSAGE FOR COMPRESS TEMP FILE SUCCESSFULLY ! DELETED ! ! ***** OLD AUDIT TRAIL FOLLOWS ! ! X-6 LAF0001 LISA A. FARLEY 02-JUL-1992 ! FIX FOR QAR #3161. ADDED MESSAGE INVRANGE TO LET THE ! USER KNOW WHEN THE RANGE SPECIFIED FOR A DELETE IS ! INVALID. ! ! X-5 MFS0069 MARK F. SCANLON 26-JUN-1992 ! QAR 2682. REMOVED FAO FROM MESSAGE NAMTOOBIG. ! ! X-4 RAB RICHARD A. BISHOP 21-MAY-1992 ! MERGE ANOTHER SYMBVOL FROM THE VAX/VMS COPY: ! ! X-19 DAC060 DAVE CANTOR 15-APR-1992 ! CORRECTED TEXT OF NOUSERSPEC AT REQUEST OF DOC. GROUP ! ! X-18 DAC058 DAVE CANTOR 02-APR-1992 ! SUPPLY ERROR MESSAGE FOR DCL COMMAND $ MAIL FILENAME ! FOLLOWED BY NO ADDRESSEE SUPPLIED. (NOUSERSPEC) ! ! X-3 RAB RICHARD A. BISHOP 29-JAN-1992 ! MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS. ! SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION ! OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), WHAT ! FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK. ! ! =============================================================== ! ! X-17 DRB0084 DAWN R. BANKS 8-AUG-1991 ! ADD MESSAGES TO SUPPORT DDIF/DTIF DOTS PACKING. ! ! X-16 ROP0423 ROBERT POSNIAK 17-MAR-1988 ! CHANGE THE TEXT OF FORMSG. ! ! X-15 ROP0342 ROBERT POSNIAK 10-AUG-1987 ! ADD SHOW220, SHOW 225. ! ! X-14 ROP0321 ROBERT POSNIAK 23-JUL-1987 ! ADD NOACCPTMSG MESSAGE. ! ! X-13 ROP0297 ROBERT POSNIAK 2-MAR-1987 ! MAKE DIRHD0 TAKE AS A PARAMETER THE NUMBER OF ! SPACES BETWEEN DATE AND SUBJECT FIELDS. ! ! X-12 ROP0283 ROBERT POSNIAK 24-FEB-1987 ! ADD MAILFOLD AND WASTEFOLD MESSAGES. ! ! X-11 ROP0249 ROBERT POSNIAK 9-FEB-1987 ! MAKE MAIL COPY OF THE SHARED MESSAGES ! USED BY THE MAIL FACILITY. ! ! X-10 ROP0205 ROBERT POSNIAK 14-NOV-1986 ! ADD SHOW210 AND SHOW215. ! ! X-9 ROP0195 ROBERT POSNIAK 11-NOV-1986 ! ADD YES. ! ! X-8 ROP0179 ROBERT POSNIAK 27-OCT-1986 ! ADD UPGRADE FOR ROLLING UPGRADE IN PROGRESS. ! ! X-7 ROP ! ADD ERRACTRNS ! ! X-6 ROP ! ADD SHOW200, SHOW205 ! ADD FORMSG, NOTFORMSG ! ! X-5 ROP ! FIX SHOW10 TO USE ONLY DESCRIPTORS. REMOVE RECLSTAT ! ADD PROMPT. CHANGE INFO50 TO TAKE A DESCRIPTOR AS ! INPUT. ADD INFO12,INFO14, CRENEWFILE. ! ADD SHOW15,SHOW25, AND SHOW35 TO DISPLAY PRINT ! QUEUE/FORM AND FORWARD ! ! X-4 ROP ! ADD MSGSENT, MSGSENTAT ! ! X-3 ROP ! ADD ILLTPRT,INVITMVAL ! ! X-2 ROP ! TAKE QUOTES OUT OF ILLPERNAM MESSAGE. ! ! V04-000 RP 28-OCT-1985 ! NEW MESSAGE FOR WRONG FILE. ADD ERROR ERACTED ! ! V03-015 ROP0004 ROBERT POSNIAK 6-JUN-1984 ! NEW MESSGE FOR OVERSIZED RECORD. NEW MESSAGE FOR ! REENTERING LINE. ! ! V03-014 BLS0272 BENN SCHREIBER 18-FEB-1984 13:36:12 ! NEW MESSAGE FOR INCORRECT PROTOCOL VERSION. ! ! V03-013 BLS0263 BENN SCHREIBER 5-FEB-1984 ! NEW MESSAGE FOR CAPTIVE ACCOUNT TRYING TO SPAWN. ! ! V03-012 BLS0255 BENN SCHREIBER 28-DEC-1983 ! NEW MESSAGES FOR SHOW KEY, AND FOR TIME IN NOTIFY MESSAGE ! ! V03-011 BLS0250 BENN SCHREIBER 8-DEC-1983 ! NEW MESSAGE FOR EDITOR NOT CALLABLE. NEW MESSAGE FOR ! ISAM FILE FOUND WHEN SEQUENTIAL EXPECTED. ! ! V03-010 BLS0246 BENN SCHREIBER 28-NOV-1983 ! NEW MESSAGE ASKING IF WANT TO CREATE NEW FOLDER. ! ! V03-009 BLS0229 BENN SCHREIBER 16-JUL-1983 ! NEW MESSAGE "you have new mail". ! ! V03-008 BLS0227 BENN SCHREIBER 1-JUL-1983 ! NEW MESSAGES FOR SENDERR AND NOSUCHUSR THAT INCLUDE ! THE NODE NAME. ! ! V03-007 BLS0225 BENN SCHREIBER 17-JUN-1983 ! NEW MESSAGE FOR BETTER PERSONAL NAME CHECKING ! ! V03-006 BLS0222 BENN SCHREIBER 15-MAY-1983 ! NEW MESSAGE FOR RECLAIMING SPACE ! ! V03-005 BLS0220 BENN SCHREIBER 30-APR-1983 ! NEW MESSAGES FOR NEW FEATURES ! ! V03-004 BLS0217 BENN SCHREIBER 12-APR-1983 ! CHANGE TEXT OF DELSPACE. ADD NEW MESSAGE FOR NON-EXISTANT ! FOLDER SELECTED. ADD MESSAGE FOR EXTERNAL MESSAGE TEXT. ! ! V03-003 BLS0211 BENN SCHREIBER 13-MAR-1983 ! NEW MESSAGES FOR ISAM FILES, AND TEXT THAT USED TO ! BE EMBEDDED IN THE PROGRAM. ! ! V03-002 BLS0202 BENN SCHREIBER 5-JAN-1983 ! NEW MESSAGES FOR ILLEGAL STRING LENGTH AND ILLEGAL ! CHARACTER IN STRING ! ! V03-001 BLS0177 BENN SCHREIBER 24-JUN-1982 ! NEW MESSAGE FOR USER WHO HAS DISMAIL SET. NEW MESSAGE ! IF LOOP DETECTED IN FORWARDING VIA LOGICAL NAMES OR ! SET FORWARD. ! ! -- ! ! DEFINE MAIL RELATED ERROR/STATUS VALUES ! ! ! DEFINE ERROR MESSAGES ! PARAMETER MAIL$_FACILITY = '0000007E'X PARAMETER MAIL$_CODERR = '007E800C'X PARAMETER MAIL$_UPGRADE = '007E8014'X PARAMETER MAIL$_UAFGETERR = '007E801A'X PARAMETER MAIL$_UAFOPNERR = '007E8022'X PARAMETER MAIL$_NOSUCHUSR = '007E802A'X PARAMETER MAIL$_NOTREADIN = '007E8032'X PARAMETER MAIL$_LOGLINK = '007E803A'X PARAMETER MAIL$_CREPRIJOB = '007E8042'X PARAMETER MAIL$_SENDERR = '007E804A'X PARAMETER MAIL$_NOMOREMSG = '007E8052'X PARAMETER MAIL$_NOMSGS = '007E805A'X PARAMETER MAIL$_USERSPEC = '007E8062'X PARAMETER MAIL$_SENDABORT = '007E806A'X PARAMETER MAIL$_EDITPROC = '007E8072'X PARAMETER MAIL$_INVCMD = '007E807A'X PARAMETER MAIL$_NOTFOUND = '007E8082'X PARAMETER MAIL$_NETIOERR = '007E808A'X PARAMETER MAIL$_USERDSABL = '007E8092'X PARAMETER MAIL$_FORWLOOP = '007E809A'X PARAMETER MAIL$_NAMTOOBIG = '007E80A2'X PARAMETER MAIL$_ILLCHAR = '007E80AA'X PARAMETER MAIL$_DATIMUSED = '007E80B2'X PARAMETER MAIL$_NOTISAM = '007E80BA'X PARAMETER MAIL$_DELMSG = '007E80C2'X PARAMETER MAIL$_DELWASTE = '007E80CA'X PARAMETER MAIL$_NOFOLDER = '007E80D2'X PARAMETER MAIL$_NOTEXIST = '007E80DA'X PARAMETER MAIL$_NOTSUBDIR = '007E80E2'X PARAMETER MAIL$_ILLSUBDIR = '007E80EA'X PARAMETER MAIL$_ILLFOLNAM = '007E80F2'X PARAMETER MAIL$_NOMSGPRI = '007E80FA'X PARAMETER MAIL$_ALTPRIJOB = '007E8102'X PARAMETER MAIL$_ILLPERNAM = '007E810A'X PARAMETER MAIL$_NOSUCHUSRAT = '007E8112'X PARAMETER MAIL$_SENDERRAT = '007E811A'X PARAMETER MAIL$_CONABORT = '007E8122'X PARAMETER MAIL$_NOTCALEDT = '007E812A'X PARAMETER MAIL$_FILECONFUSED = '007E8132'X PARAMETER MAIL$_CAPTIVE = '007E813A'X PARAMETER MAIL$_IVPROTVAL = '007E8142'X PARAMETER MAIL$_RECTOBIG = '007E814A'X PARAMETER MAIL$_ILLCTXADR = '007E8152'X PARAMETER MAIL$_WRONGCTX = '007E815A'X PARAMETER MAIL$_FAILGETVM = '007E8162'X PARAMETER MAIL$_INVITMCOD = '007E816A'X PARAMETER MAIL$_MISREQITM = '007E8172'X PARAMETER MAIL$_INVITMLEN = '007E817A'X PARAMETER MAIL$_FILEOPEN = '007E8182'X PARAMETER MAIL$_NOFILEOPEN = '007E818A'X PARAMETER MAIL$_CONITMCOD = '007E8192'X PARAMETER MAIL$_NOMORECTX = '007E819A'X PARAMETER MAIL$_WRONGFILE = '007E81A2'X PARAMETER MAIL$_ILLTPRT = '007E81AA'X PARAMETER MAIL$_INVITMVAL = '007E81B2'X PARAMETER MAIL$_ERACTED = '007E81BA'X PARAMETER MAIL$_FORMSG = '007E81C2'X PARAMETER MAIL$_NOTFORMSG = '007E81CA'X PARAMETER MAIL$_ERRACTRNS = '007E81D2'X PARAMETER MAIL$_BADVALUE = '007E81DA'X PARAMETER MAIL$_CLOSEDEL = '007E81E2'X PARAMETER MAIL$_FILNOTDEL = '007E81EA'X PARAMETER MAIL$_OPENIN = '007E81F2'X PARAMETER MAIL$_OPENOUT = '007E81FA'X PARAMETER MAIL$_PARSEFAIL = '007E8202'X PARAMETER MAIL$_READERR = '007E820A'X PARAMETER MAIL$_SEARCHFAIL = '007E8212'X PARAMETER MAIL$_SYSERROR = '007E821A'X PARAMETER MAIL$_NOSYSNAM = '007E8222'X PARAMETER MAIL$_NOSYSPRV = '007E822A'X PARAMETER MAIL$_PROTOCOL = '007E8232'X PARAMETER MAIL$_NOACCPTMSG = '007E823A'X PARAMETER MAIL$_DOTSPACK = '007E8242'X PARAMETER MAIL$_DOTSUNPACK = '007E824A'X PARAMETER MAIL$_NOUSERSPEC = '007E8252'X PARAMETER MAIL$_INVRANGE = '007E825A'X PARAMETER MAIL$_LISTTOOLONG = '007E8262'X PARAMETER MAIL$_SELECTED = '007EBE83'X PARAMETER MAIL$_DELMSGS = '007EBE8B'X PARAMETER MAIL$_CVTFILE = '007EBE93'X PARAMETER MAIL$_DELSPACE = '007EBE9B'X PARAMETER MAIL$_NEWFOLDER = '007EBEA3'X PARAMETER MAIL$_RECLPLSWAIT = '007EBEAB'X PARAMETER MAIL$_REENTER = '007EBEB3'X PARAMETER MAIL$_DELETED = '007EBEBB'X PARAMETER MAIL$_FFMTMSG = '007EBEC3'X PARAMETER MAIL$_MOREMSG = '007EDDC0'X PARAMETER MAIL$_DIRHD0 = '007EDDC8'X ! SD070507!RKS020909 PARAMETER MAIL$_DIRHD10 = '007EDDD0'X PARAMETER MAIL$_DIRHD20 = '007EDDD8'X PARAMETER MAIL$_DIRDEL10 = '007EDDE0'X PARAMETER MAIL$_ISUB10 = '007EDDE8'X PARAMETER MAIL$_ISUB20 = '007EDDF0'X PARAMETER MAIL$_ISUB30 = '007EDDF8'X PARAMETER MAIL$_PRESRET = '007EDE00'X PARAMETER MAIL$_YOUHAVENEW = '007EDE08'X PARAMETER MAIL$_MAIL10 = '007EDE10'X PARAMETER MAIL$_MAIL20 = '007EDE18'X PARAMETER MAIL$_WANTOSEND = '007EDE20'X PARAMETER MAIL$_NOTIFY10 = '007EDE28'X PARAMETER MAIL$_NOTIFY20 = '007EDE30'X PARAMETER MAIL$_JOBENTERED = '007EDE38'X PARAMETER MAIL$_SHOW10 = '007EDE40'X PARAMETER MAIL$_SHOW20 = '007EDE48'X PARAMETER MAIL$_SHOW30 = '007EDE50'X PARAMETER MAIL$_SHOW40 = '007EDE58'X PARAMETER MAIL$_SHOW50 = '007EDE60'X PARAMETER MAIL$_SHOW60 = '007EDE68'X PARAMETER MAIL$_SHOW70 = '007EDE70'X PARAMETER MAIL$_SHOW80 = '007EDE78'X PARAMETER MAIL$_SHOW90 = '007EDE80'X PARAMETER MAIL$_SHOW100 = '007EDE88'X PARAMETER MAIL$_SHOW110 = '007EDE90'X PARAMETER MAIL$_EDIT10 = '007EDE98'X PARAMETER MAIL$_INFO10 = '007EDEA0'X PARAMETER MAIL$_INFO20 = '007EDEA8'X PARAMETER MAIL$_INFO30 = '007EDEB0'X PARAMETER MAIL$_SEND = '007EDEB8'X PARAMETER MAIL$_REPLY = '007EDEC0'X PARAMETER MAIL$_SHOW120 = '007EDEC8'X PARAMETER MAIL$_SHOW130 = '007EDED0'X PARAMETER MAIL$_INFO50 = '007EDED8'X PARAMETER MAIL$_SHOW140 = '007EDEE0'X PARAMETER MAIL$_SHOW150 = '007EDEE8'X PARAMETER MAIL$_SHOW160 = '007EDEF0'X PARAMETER MAIL$_ISUB50 = '007EDEF8'X PARAMETER MAIL$_MAIL30 = '007EDF00'X PARAMETER MAIL$_RETCONT = '007EDF08'X PARAMETER MAIL$_NEWSEQ = '007EDF10'X PARAMETER MAIL$_MAILDIR = '007EDF18'X PARAMETER MAIL$_MAILFILE = '007EDF20'X PARAMETER MAIL$_MAILFOLDER = '007EDF28'X PARAMETER MAIL$_MAIL40 = '007EDF30'X PARAMETER MAIL$_CRENEWFOLD = '007EDF38'X PARAMETER MAIL$_NONEWMAIL = '007EDF40'X PARAMETER MAIL$_SHOWKEY10 = '007EDF48'X PARAMETER MAIL$_SHOWKEY20 = '007EDF50'X PARAMETER MAIL$_SHOWKEY30 = '007EDF58'X PARAMETER MAIL$_SHOWKEY40 = '007EDF60'X PARAMETER MAIL$_SHOWKEY50 = '007EDF68'X PARAMETER MAIL$_SHOWKEY60 = '007EDF70'X PARAMETER MAIL$_SHOWKEY70 = '007EDF78'X PARAMETER MAIL$_NOTIFY30 = '007EDF80'X PARAMETER MAIL$_NOTIFY40 = '007EDF88'X PARAMETER MAIL$_NOPARENT = '007EDF90'X PARAMETER MAIL$_FILEMPTY = '007EDF98'X PARAMETER MAIL$_NONEFOUND = '007EDFA0'X PARAMETER MAIL$_NOMOREREC = '007EDFA8'X ! ! THE FOLLOWING MESSAGE IS USED FOR COMMUNICATION ! BETWEEN MAILSHR AND MAILSHRP. IT DOES NOT NEED TO BE DOCUMENTED. ! PARAMETER MAIL$_USERFWD = '007EDFB0'X PARAMETER MAIL$_PROMPT = '007EDFB8'X PARAMETER MAIL$_INFO12 = '007EDFC0'X PARAMETER MAIL$_INFO14 = '007EDFC8'X PARAMETER MAIL$_INFO16 = '007EDFD0'X PARAMETER MAIL$_INFO18 = '007EDFD8'X PARAMETER MAIL$_CRENEWFILE = '007EDFE0'X PARAMETER MAIL$_SHOW15 = '007EDFE8'X PARAMETER MAIL$_SHOW25 = '007EDFF0'X PARAMETER MAIL$_SHOW35 = '007EDFF8'X PARAMETER MAIL$_FORWARD = '007EE000'X PARAMETER MAIL$_SHOW200 = '007EE008'X PARAMETER MAIL$_SHOW205 = '007EE010'X PARAMETER MAIL$_SHOW210 = '007EE018'X PARAMETER MAIL$_SHOW215 = '007EE020'X PARAMETER MAIL$_CLOSEIN = '007EE028'X PARAMETER MAIL$_CLOSEOUT = '007EE030'X PARAMETER MAIL$_INVQUAVAL = '007EE038'X PARAMETER MAIL$_WRITEERR = '007EE040'X PARAMETER MAIL$_SHOW220 = '007EE048'X PARAMETER MAIL$_SHOW225 = '007EE050'X PARAMETER MAIL$_HPROMPT = '007EE058'X PARAMETER MAIL$_SHOWNOSIG = '007EE060'X PARAMETER MAIL$_SHOWSIG = '007EE068'X PARAMETER MAIL$_BADLOGVAL = '007EE070'X PARAMETER MAIL$_MSGTEXT = '007EFD01'X PARAMETER MAIL$_MSGINFO = '007EFD09'X PARAMETER MAIL$_MSGSENT = '007EFD11'X PARAMETER MAIL$_MSGSENTAT = '007EFD19'X PARAMETER MAIL$_YES = '007EFD21'X PARAMETER MAIL$_COPIEDR = '007EFD29'X PARAMETER MAIL$_CREATED = '007EFD31'X PARAMETER MAIL$_RENAMED = '007EFD39'X PARAMETER MAIL$_TEXT = '007EFD41'X ! ! THE FOLLOWING TWO ARE FOLDER NAMES CREATED BY MAIL ! PARAMETER MAIL$_MAILFOLD = '007EFD49'X PARAMETER MAIL$_WASTEFOLD = '007EFD51'X PARAMETER MAIL$_ILLEDTNAM = '007EFD5A'X PARAMETER MAIL$_KEYNOTDEF = '007EFD62'X PARAMETER MAIL$_INVKEYNAM = '007EFD6A'X !DEC$ END OPTIONS