      *******************************************************
      *** ERROR MESSAGES USED BY ONLINE MTS PROGRAMS.     ***
      ***                                                 ***
      *** LAST MODIFIED 09/26/94                          ***
      *** MODIFIED BY: ABLMSC                             ***
      ***                                                 ***
      *******************************************************
       01  W9999-END-MESSAGE.
           05  W9999-END-MESSAGE-TEXT.
               10  FILLER              PIC X(12) VALUE
                   'CESF LOGOFF '.
               10  FILLER              PIC X(39) VALUE
                   '    THANK YOU.  PRESS ENTER TO LOGOFF O'.
               10  FILLER              PIC X(40) VALUE
                   'R ENTER A NEW TRANSACTION ID '.
               10  FILLER              PIC X(40) VALUE
                   '                                        '.
               10  FILLER              PIC X(40) VALUE
                   '                                        '.
               10  FILLER              PIC X(93) VALUE SPACES.
               10  FILLER              PIC X(39) VALUE
                   '                             '.
               10  FILLER              PIC X(999) VALUE SPACES.


       01  W9999-SEC-MESSAGE.
           05  W9999-SEC-MESSAGE-TEXT.
               10  FILLER              PIC X(25) VALUE
                   '    SECURITY VIOLATION - '.
               10  FILLER              PIC X(25) VALUE
                   'YOU ARE NOT AUTHORIZED TO'.
               10  FILLER              PIC X(25) VALUE
                   ' USE THIS SYSTEM         '.
               10  FILLER              PIC X(25) VALUE
                   '        SEE MTS SYSTEM AD'.
               10  FILLER              PIC X(25) VALUE
                   'MINISTRATOR FOR ACCESS   '.


       01  W9999-BAD-MESSAGE.
           05  W9999-BAD-MESSAGE-TEXT.
               10  W9999-BAD-PARA      PIC X(10) VALUE SPACES.
               10  FILLER              PIC X(68) VALUE
                   ' ..HANDLE ERROR...HANDLE ERROR...HANDLE ERROR'.

       01  W9999-MTS-MESSAGES.
           05  W9999-MSG-001.
               10  FILLER              PIC X(39) VALUE
                   'M001 - ENTER DATA AND PRESS PF5 TO ADD '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-002.
               10  FILLER              PIC X(39) VALUE
                   'M002 - INVALID PFKEY; TRY AGAIN    '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-003.
               10  FILLER              PIC X(39) VALUE
                   'M003 - PRESS PF10/11 TO VIEW, PF8 TO DE'.
               10  FILLER              PIC X(39) VALUE
                   'LETE, OR OTHER PF KEY TO TRANSFER.     '.
           05  W9999-MSG-004.
               10  FILLER              PIC X(39) VALUE
                   'M004 - BOTTOM OF DATA REACHED          '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-005.
               10  FILLER              PIC X(39) VALUE
                   'M005 - TOP OF DATA REACHED             '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-006.
               10  FILLER              PIC X(39) VALUE
                   'M006 - INVALID OPTION SELECTED - TRY AG'.
               10  FILLER              PIC X(39) VALUE
                   'AIN.                                   '.
           05  W9999-MSG-007.
               10  FILLER              PIC X(39) VALUE
                   'M007 - SELECT DESIRED OPTION           '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-008.
               10  FILLER              PIC X(39) VALUE
                   'M008 - INVALID BUSINESS UNIT CODE      '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-009.
               10  FILLER              PIC X(39) VALUE
                   'M009 - INVALID DIVISION CODE           '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-010.
               10  FILLER              PIC X(39) VALUE
                   'M010 - INVALID REGION CODE             '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-011.
               10  FILLER              PIC X(39) VALUE
                   'M011 - INVALID PRODUCT LINE CODE       '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-012.
               10  FILLER              PIC X(39) VALUE
                   'M012 - PRESS F2 AGAIN TO CONFIRM DELETE'.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-013.
               10  FILLER              PIC X(39) VALUE
                   'M013 - INVALID EXPENSE TYPE/SUB-TYPE  '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-014.
               10  FILLER              PIC X(39) VALUE
                   'M014 - SYSTEM ERROR - DUPLICATE FCSTID '.
               10  FILLER              PIC X(39) VALUE
                   '  CONTACT MIS SUPPORT                  '.
           05  W9999-MSG-015.
               10  FILLER              PIC X(39) VALUE
                   'M015 - SUCCESSFUL ADD.                 '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-016.
               10  FILLER              PIC X(39) VALUE
                   'M016 - DUPLICATE FCST ID.  TRY AGAIN   '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-017.
               10  FILLER              PIC X(39) VALUE
                   'M017 - ENTER REQUIRED DATA.            '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-018.
               10  FILLER              PIC X(39) VALUE
                   'M018 - INVALID COMBINATION FOR REGION A'.
               10  FILLER              PIC X(39) VALUE
                   'ND DIVISION                            '.
           05  W9999-MSG-019.
               10  FILLER              PIC X(39) VALUE
                   'M019 - ENTER REQUIRED DATA FOR BOTH REG'.
               10  FILLER              PIC X(39) VALUE
                   'ION AND DIVISION                       '.
           05  W9999-MSG-020.
               10  FILLER              PIC X(39) VALUE
                   'M020 - DO NOT ENTER LOGON ID FOR GLOBAL'.
               10  FILLER              PIC X(39) VALUE
                   ' MESSAGES                              '.
           05  W9999-MSG-021.
               10  FILLER              PIC X(39) VALUE
                   'M021 - VALIDATION COMPLETE; NO ERRORS F'.
               10  FILLER              PIC X(39) VALUE
                   'OUND.                                  '.
           05  W9999-MSG-022.
               10  FILLER              PIC X(39) VALUE
                   'M022 - DATA DOES NOT EXIST; USE PF5 TO '.
               10  FILLER              PIC X(39) VALUE
                   'ADD MESSAGES, THEN UPDATE.             '.
           05  W9999-MSG-023.
               10  FILLER              PIC X(39) VALUE
                   'M023 - UPDATE SUCCESSFUL               '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-024.
               10  FILLER              PIC X(39) VALUE
                   'M024 - FIRST PAGE DISPLAYED            '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-025.
               10  FILLER              PIC X(39) VALUE
                   'M025 - NEXT PAGE DISPLAYED             '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-026.
               10  FILLER              PIC X(39) VALUE
                   'M026 - LAST PAGE DISPLAYED             '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-027.
               10  FILLER              PIC X(39) VALUE
                   'M027 - PREVIOUS PAGE DISPLAYED         '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-028.
               10  FILLER              PIC X(39) VALUE
                   'M028 - REFRESH SUCCESSFUL              '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-029.
               10  FILLER              PIC X(39) VALUE
                   'M029 - FUNCTION NOT AUTHORIZED FOR LOGO'.
               10  FILLER              PIC X(39) VALUE
                   'N ID.                                  '.
           05  W9999-MSG-030.
               10  FILLER              PIC X(39) VALUE
                   'M030 - INVALID LOGON ID                '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-031.
               10  FILLER              PIC X(39) VALUE
                   'M031 - FORECAST ID INVALID. IT HAS ALRE'.
               10  FILLER              PIC X(39) VALUE
                   'ADY BEEN ASSIGNED TO A PROJECT         '.
           05  W9999-MSG-032.
               10  FILLER              PIC X(39) VALUE
                   'M032 - FORECAST ID NOT FOUND.  TRY AGAI'.
               10  FILLER              PIC X(39) VALUE
                   'N                                      '.
           05  W9999-MSG-033.
               10  FILLER              PIC X(39) VALUE
                   'M033 - PRESS F5 TO UPDATE; ENTER TO VAL'.
               10  FILLER              PIC X(39) VALUE
                   'IDATE.                                 '.
           05  W9999-MSG-034.
               10  FILLER              PIC X(39) VALUE
                   'M034 - DATA VALIDATION OK.             '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-035.
               10  FILLER              PIC X(39) VALUE
                   'M035 - PRODUCT LINE HAS ALREADY BEEN AS'.
               10  FILLER              PIC X(39) VALUE
                   'SIGNED TO ANOTHER SEQUENCE NUMBER.     '.
           05  W9999-MSG-036.
               10  FILLER              PIC X(39) VALUE
                   'M036 - LOGON-ID CAN NOT BE SPACES      '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-037.
               10  FILLER              PIC X(39) VALUE
                   'M037 - THERE IS NO DATA FOR THIS LOGON '.
               10  FILLER              PIC X(39) VALUE
                   'ID                                     '.
           05  W9999-MSG-038.
               10  FILLER              PIC X(39) VALUE
                   'M038 - ENTER DATA AND PRESS F7 TO UPDAT'.
               10  FILLER              PIC X(39) VALUE
                   'E                                      '.
           05  W9999-MSG-039.
               10  FILLER              PIC X(39) VALUE
                   'M039 - THERE IS NO DATA TO DELETE      '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-040.
               10  FILLER              PIC X(39) VALUE
                   'M040 - DATA ALREADY EXISTS             '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-041.
               10  FILLER              PIC X(39) VALUE
                   'M041 - DATA WAS NOT CHANGED, NO NEED TO'.
               10  FILLER              PIC X(39) VALUE
                   ' UPDATE                                '.
           05  W9999-MSG-042.
               10  FILLER              PIC X(39) VALUE
                   'M042 - DATA UPDATED SUCCESSFULLY       '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-043.
               10  FILLER              PIC X(39) VALUE
                   'M043 - ENTER DATA AND PRESS F6 TO ADD  '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-044.
               10  FILLER              PIC X(39) VALUE
                   'M044 - DELETE PROCESSED SUCCESSFULLY   '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-045.
               10  FILLER              PIC X(39) VALUE
                   'M045 - PRODUCT LINE FIELDS ARE INVALID '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-046.
               10  FILLER              PIC X(39) VALUE
                   'M046 - PO NUMBER ALREADY EXISTS.       '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-047.
               10  FILLER              PIC X(39) VALUE
                   'M047 - ENTER FORECAST-ID               '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-048.
               10  FILLER              PIC X(39) VALUE
                   'M048 - CHANGE DATA AND PRESS F6 TO UPDA'.
               10  FILLER              PIC X(39) VALUE
                   'TE                                     '.
           05  W9999-MSG-049.
               10  FILLER              PIC X(39) VALUE
                   'M049 - DATA RETRIEVED.                 '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-050.
               10  FILLER              PIC X(39) VALUE
                   'M050 - PRESS F7 TO CONFIRM DELETE      '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-051.
               10  FILLER              PIC X(39) VALUE
                   'M051 - AMOUNT INVALID                  '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-052.
               10  FILLER              PIC X(39) VALUE
                   'M052 - AMOUNT MUST BE <= 9999.9        '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-053.
               10  FILLER              PIC X(39) VALUE
                   'M053 - FORECAST-ID INVALID. TRY AGAIN  '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-054.
               10  FILLER              PIC X(39) VALUE
                   'M054 - ENTER LOGON-ID AND/OR REGION. PR'.
               10  FILLER              PIC X(39) VALUE
                   'ESS ENTER OR A PF KEY.                 '.
           05  W9999-MSG-055.
               10  FILLER              PIC X(39) VALUE
                   'M055 - DESCRIPTION CAN NOT BE SPACE    '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-056.
               10  FILLER              PIC X(39) VALUE
                   'M056 - DATA DOES NOT EXIST             '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-057.
               10  FILLER              PIC X(39) VALUE
                   'M057 - PRESS F6 TO UPDATE              '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-058.
               10  FILLER              PIC X(39) VALUE
                   'M058 - INVALID DELETE PERIOD           '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-059.
               10  FILLER              PIC X(39) VALUE
                   'M059 - INVALID CURRENT FISCAL PERIOD   '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-060.
               10  FILLER              PIC X(39) VALUE
                   'M060 - PROJECT NUMBER DOES NOT EXIST   '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-061.
               10  FILLER              PIC X(39) VALUE
                   'M061 - ENTER A PROJECT NUMBER.         '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-062.
               10  FILLER              PIC X(39) VALUE
                   'M062 - TEXT IS REQUIRED FOR NON-ZERO AM'.
               10  FILLER              PIC X(39) VALUE
                   'OUNT FIELDS                            '.
           05  W9999-MSG-063.
               10  FILLER              PIC X(39) VALUE
                   'M063 - INVALID PRODUCT LINE CODE       '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-064.
               10  FILLER              PIC X(39) VALUE
                   'M064 - INVALID SUB PRODUCT LINE CODE   '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-065.
               10  FILLER              PIC X(39) VALUE
                   'M065 - INVALID DATE FIELD              '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-066.
               10  FILLER              PIC X(39) VALUE
                   'M066 - ENTER A PRODUCT LINE CODE       '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-067.
               10  FILLER              PIC X(39) VALUE
                   'M067 - ACTUAL AMOUNT NOT ZERO; DELETE N'.
               10  FILLER              PIC X(39) VALUE
                   'OT ALLOWED.                            '.
           05  W9999-MSG-068.
               10  FILLER              PIC X(39) VALUE
                   'M068 - THE PRODUCT LINE CODE MUST MATCH'.
               10  FILLER              PIC X(39) VALUE
                   ' THE PRODUCT LINE OF THE FORECAST      '.
           05  W9999-MSG-069.
               10  FILLER              PIC X(39) VALUE
                   'M069 - SECURITY CHECK FAILED, CHECK THE'.
               10  FILLER              PIC X(39) VALUE
                   ' PRODUCT LINE ACCESS AUTHORITY         '.
           05  W9999-MSG-070.
               10  FILLER              PIC X(39) VALUE
                   'M070 - END OF MESSAGES. PRESS PF8 TO DE'.
               10  FILLER              PIC X(39) VALUE
                   'LETE MESSAGES OR PRESS ANOTHER PF KEY  '.
           05  W9999-MSG-071.
               10  FILLER              PIC X(39) VALUE
                   'M071 - RECORD NOT FOUND. TRY OTHER KEY '.
               10  FILLER              PIC X(39) VALUE
                   'VALUES.                                '.
           05  W9999-MSG-072.
               10  FILLER              PIC X(39) VALUE
                   'M072 - LOCATION CODE IS REQUIRED       '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-073.
               10  FILLER              PIC X(39) VALUE
                   'M073 - DATA IS REQUIRED                '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-074.
               10  FILLER              PIC X(39) VALUE
                   'M074 - NO MORE DIVISIONS FOUND.        '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-075.
               10  FILLER              PIC X(39) VALUE
                   'M075 - NO PREVIOUS DIVISIONS FOUND     '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-076.
               10  FILLER              PIC X(39) VALUE
                   'M076 - INVALID LOCATION CODE.          '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-077.
               10  FILLER              PIC X(39) VALUE
                   'M077 - NO DATA WAS FOUND FOR THIS DIVIS'.
               10  FILLER              PIC X(39) VALUE
                   'ION                                    '.
           05  W9999-MSG-078.
               10  FILLER              PIC X(39) VALUE
                   'M078 - INVALID DATE FORMAT             '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-079.
               10  FILLER              PIC X(39) VALUE
                   'M079 - MONTH MUST BE BETWEEN 1 AND 12  '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-080.
               10  FILLER              PIC X(39) VALUE
                   'M080 - DAY VALUE OUT OF RANGE FOR MONTH'.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-081.
               10  FILLER              PIC X(39) VALUE
                   'M081 - THE YEAR SHOULD BE BETWEEN 1900 '.
               10  FILLER              PIC X(39) VALUE
                   'AND 2099                               '.
           05  W9999-MSG-082.
               10  FILLER              PIC X(39) VALUE
                   'M082 - PRESS PF8 AGAIN TO CONFIRM DELET'.
               10  FILLER              PIC X(39) VALUE
                   'E OR CHOOSE ANOTHER PFKEY              '.
           05  W9999-MSG-083.
               10  FILLER              PIC X(39) VALUE
                   'M083 - NO MORE PRODUCT LINES FOUND     '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-084.
               10  FILLER              PIC X(39) VALUE
                   'M084 - NO PREVIOUS PRODUCT LINES FOUND '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-085.
               10  FILLER              PIC X(39) VALUE
                   'M085 - NO DATA WAS FOUND FOR PRODUCT LI'.
               10  FILLER              PIC X(39) VALUE
                   'NE.                                    '.
           05  W9999-MSG-086.
               10  FILLER              PIC X(39) VALUE
                   'M086 - SUM OF THE PERCENT MUST BE 100.0'.
               10  FILLER              PIC X(39) VALUE
                   '%.                                     '.
           05  W9999-MSG-087.
               10  FILLER              PIC X(39) VALUE
                   'M087 - THERE ARE STILL LINES AVAILABLE '.
               10  FILLER              PIC X(39) VALUE
                   'FOR USE.                               '.
           05  W9999-MSG-088.
               10  FILLER              PIC X(39) VALUE
                   'M088 - THERE ARE DUPLICATE KEYS. VERIFY'.
               10  FILLER              PIC X(39) VALUE
                   ' INPUT VALUES.                         '.
           05  W9999-MSG-089.
               10  FILLER              PIC X(39) VALUE
                   'M089 - ENTER EITHER A FORECAST ID OR A '.
               10  FILLER              PIC X(39) VALUE
                   'PRODUCT LINE CODE                      '.
           05  W9999-MSG-090.
               10  FILLER              PIC X(39) VALUE
                   'M090 - INVALID SEQUENCE NUMBER         '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-091.
               10  FILLER              PIC X(39) VALUE
                   'M091 - YOU ARE AT THE RIGHT BOUNDARY   '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-092.
               10  FILLER              PIC X(39) VALUE
                   'M092 - YOU ARE AT THE LEFT BOUNDARY    '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-093.
               10  FILLER              PIC X(39) VALUE
                   'M093 - POSITION THE CURSOR ON THE FOREC'.
               10  FILLER              PIC X(39) VALUE
                   'AST ID AND PRESS PF4 TO UPDATE ACCRUALS'.
           05  W9999-MSG-094.
               10  FILLER              PIC X(39) VALUE
                   'M094 - YOU CAN NOT SELECT MORE THAN 1 F'.
               10  FILLER              PIC X(39) VALUE
                   'IELD AMONG DEPT, CONTROLLER & PROJECT #'.
           05  W9999-MSG-095.
               10  FILLER              PIC X(39) VALUE
                   'M095 - THE PRODUCT LINE ON THE PO MUST '.
               10  FILLER              PIC X(39) VALUE
                   'EQUAL THE PRODUCT LINE ON THE PROJECT  '.
           05  W9999-MSG-096.
               10  FILLER              PIC X(39) VALUE
                   'M096 - SELECT LINE(S) FIRST BY TYPING  '.
               10  FILLER              PIC X(39) VALUE
                   '''X'' IN ACT FIELD(S).                 '.
           05  W9999-MSG-097.
               10  FILLER              PIC X(39) VALUE
                   'M097 - INVALID KEY VALUE SELECTED, UNAB'.
               10  FILLER              PIC X(39) VALUE
                   'LE TO TRANSFER.                        '.
           05  W9999-MSG-098.
               10  FILLER              PIC X(39) VALUE
                   'M098 - REGION CHANGE WAS SUCCESSFUL    '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-099.
               10  FILLER              PIC X(39) VALUE
                   'M099 - THE RECORDS SELECTED WERE SUCCES'.
               10  FILLER              PIC X(39) VALUE
                   'SFULLY MOVED TO THE PROJECT.           '.
           05  W9999-MSG-100.
               10  FILLER              PIC X(39) VALUE
                   'M100 - THE SALES TAX RATE IN PER CENT S'.
               10  FILLER              PIC X(39) VALUE
                   'HOULD ALWAYS BETWEEN 0% AND 100%       '.
           05  W9999-MSG-101.
               10  FILLER              PIC X(39) VALUE
                   'M101 - FOR NON ''15XX'' PRODUCTS, THE FOR'.
               10  FILLER              PIC X(39) VALUE
                   'ECAST ID SHOULD BE ALWAYS ZERO         '.
           05  W9999-MSG-102.
               10  FILLER              PIC X(39) VALUE
                   'M102 - SELECT A VALUE FROM THE LIST OR '.
               10  FILLER              PIC X(39) VALUE
                   'ENTER A NEW KEY VALUE.                 '.
           05  W9999-MSG-103.
               10  FILLER              PIC X(39) VALUE
                   'M103 - PERCENT MUST BE BETWEEN 0 AND 10'.
               10  FILLER              PIC X(39) VALUE
                   '0.                                     '.
           05  W9999-MSG-104.
               10  FILLER              PIC X(39) VALUE
                   'M104 - ENTER EITHER THE PROJECT NUMBER '.
               10  FILLER              PIC X(39) VALUE
                   'OR THE PO NUMBER                       '.
           05  W9999-MSG-105.
               10  FILLER              PIC X(39) VALUE
                   'M105 - VALID VALUES ARE ''N'' OR ''Y'' '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-106.
               10  FILLER              PIC X(39) VALUE
                   'M106 - ACTUALS FOR CURR FY OR PRJ HDR E'.
               10  FILLER              PIC X(39) VALUE
                   'XIST. TO DELETE, CONTACT SYS ADMIN.    '.
           05  W9999-MSG-107.
               10  FILLER              PIC X(39) VALUE
                   'M107 - NO CODE SELECTED                '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-108.
               10  FILLER              PIC X(39) VALUE
                   'M108 - CODE RETRIEVED                  '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-109.
               10  FILLER              PIC X(39) VALUE
                   'M109 - F9 ONLY AVAILABLE IN ADD OR UPDA'.
               10  FILLER              PIC X(39) VALUE
                   'TE MODE                                '.
           05  W9999-MSG-110.
               10  FILLER              PIC X(39) VALUE
                   'M110 - POSITION THE CURSOR ON THE FOREC'.
               10  FILLER              PIC X(39) VALUE
                   'AST ID AND PRESS PF5 TO TRANSFER       '.
           05  W9999-MSG-111.
               10  FILLER              PIC X(39) VALUE
                   'M111 - AUTHORIZED BUDGET MUST BE SUM OF'.
               10  FILLER              PIC X(39) VALUE
                   ' FEE, TAX AND OTHER SUB TOTALS.        '.
           05  W9999-MSG-112.
               10  FILLER              PIC X(39) VALUE
                   'M112 - VALUE SHOULD BE NUMERIC         '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-113.
               10  FILLER              PIC X(07) VALUE
                   'M113 - '.
               10  W9999-MSG-113-A     PIC X(13).
               10  FILLER              PIC X(19) VALUE
                   ' CAN NOT BE SPACE  '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-114.
               10  FILLER              PIC X(39) VALUE
                   'M114 - BOTH PRODUCT LINE CODE AND REGIO'.
               10  FILLER              PIC X(39) VALUE
                   'N CODE ARE REQUIRED.                   '.
           05  W9999-MSG-115.
               10  FILLER              PIC X(39) VALUE
                   'M115 - TABLE CODE DOES NOT EXIST IN THE'.
               10  FILLER              PIC X(39) VALUE
                   ' OVERHEAD PERCENTAGE TABLE             '.
           05  W9999-MSG-116.
               10  FILLER              PIC X(39) VALUE
                   'M116 - POSITION CURSOR ON PRODLN, EXPTY'.
               10  FILLER              PIC X(39) VALUE
                   'P, OR SUBTYP LINE FIRST. THEN PRESS F9 '.
           05  W9999-MSG-117.
               10  FILLER              PIC X(39) VALUE
                   'M117 - SPECIAL PRINT VALUES EXIST. PRES'.
               10  FILLER              PIC X(39) VALUE
                   'S  F6-SPECIAL  OR  ENTER-SUBMIT REPORT '.
           05  W9999-MSG-118.
               10  FILLER              PIC X(39) VALUE
                   'M118 - PROJECT NUMBER NOT FOUND FOR PRO'.
               10  FILLER              PIC X(39) VALUE
                   'DUCT LINE ENTERED.                     '.
           05  W9999-MSG-119.
               10  FILLER              PIC X(39) VALUE
                   'M119 - INVALID DEPARTMENT              '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-120.
               10  FILLER              PIC X(39) VALUE
                   'M120 - FCSTID ALREADY EXISTS. PRESS F5 '.
               10  FILLER              PIC X(39) VALUE
                   'AGAIN TO CREATE NEW FCSTID.            '.
           05  W9999-MSG-121.
               10  FILLER              PIC X(39) VALUE
                   'M121 - SYSTEM WILL OVERRIDE WITH NEW FC'.
               10  FILLER              PIC X(39) VALUE
                   'STID. PRESS F5 AGAIN TO CONFIRM ADD    '.
           05  W9999-MSG-122.
               10  FILLER              PIC X(39) VALUE
                   'M122 - DELETE NOT ALLOWED, DATA EXISTS '.
               10  FILLER              PIC X(10) VALUE
                   'IN TABLE:'.
               10  W9999-MSG-122-A     PIC X(29) VALUE SPACES.
           05  W9999-MSG-123.
               10  FILLER              PIC X(39) VALUE
                   'M123 -  PROJECT NUMBER MUST BE DIFFEREN'.
               10  FILLER              PIC X(39) VALUE
                   'T THAN THE CURRENT PROJECT NUMBER.     '.
           05  W9999-MSG-124.
               10  FILLER              PIC X(39) VALUE
                   'M124 -  PROJECT NUMBER ALREADY EXISTS F'.
               10  FILLER              PIC X(39) VALUE
                   'OR PRODUCT LINE.  PRESS PF5 TO UPDATE  '.
           05  W9999-MSG-125.
               10  FILLER              PIC X(39) VALUE
                   'M125 - HISTORY PROJECT NUMBER NOT FOUND'.
               10  FILLER              PIC X(39) VALUE
                   '.                                      '.
           05  W9999-MSG-126.
               10  FILLER              PIC X(39) VALUE
                   'M126 - POSITION THE CURSOR ON THE DETAI'.
               10  FILLER              PIC X(39) VALUE
                   'L LINE AND PRESS PFKEY TO TRANSFER     '.
           05  W9999-MSG-127.
               10  FILLER              PIC X(39) VALUE
                   'M127 - KEY HAS BEEN CHANGED; RE-ENTER O'.
               10  FILLER              PIC X(39) VALUE
                   'PTION                                  '.
           05  W9999-MSG-128.
               10  FILLER              PIC X(39) VALUE
                   'M128 - ENTER DATA AND PRESS PF4 TO ADD '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-129.
               10  FILLER              PIC X(39) VALUE
                   'M129 - ENTER A VALID PROJECT NUMBER/PRO'.
               10  FILLER              PIC X(39) VALUE
                   'DUCT LINE  OR  FCST-ID.                '.
           05  W9999-MSG-130.
               10  FILLER              PIC X(39) VALUE
                   'M130 - FORECAST DOES NOT EXIST.        '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-131.
               10  FILLER              PIC X(39) VALUE
                   'M131 - MOVE FUNCTION NOT AVAILABLE BEFO'.
               10  FILLER              PIC X(39) VALUE
                   'RE INQUIRING ON A PROJECT.             '.
           05  W9999-MSG-132.
               10  FILLER              PIC X(39) VALUE
                   'M132 - ACTUALS NOT FOUND               '.
               10  FILLER              PIC X(39) VALUE
                   '                                       '.
           05  W9999-MSG-133.
               10  FILLER              PIC X(39) VALUE
                   'M133 - VALIDATION OK.  PRESS F7 TO UPDA'.
               10  FILLER              PIC X(39) VALUE
                   'TE LOGON ID FOR EXPENSE TYPE/PROD LINE '.
           05  W9999-MSG-134.
               10  FILLER              PIC X(39) VALUE
                   'M134 - ENTER DATA AND PRESS F7 TO ADD A'.
               10  FILLER              PIC X(39) VALUE
                   ' NEW LINE                              '.
           05  W9999-MSG-135.
               10  FILLER              PIC X(39) VALUE
                   'M135 - INVALID FISCAL PERIOD - FORMAT I'.
               10  FILLER              PIC X(39) VALUE
                   'S ''PD/FY''                            '.
           05  W9999-MSG-136.
               10  FILLER              PIC X(39) VALUE
                   'M136 - FISCAL PERIOD MUST BE WITHIN THE'.
               10  FILLER              PIC X(39) VALUE
                   ' CURRENT FISCAL YEAR                   '.
           05  W9999-MSG-137.
               10  FILLER              PIC X(39) VALUE
                   'M137 - FISCAL PERIOD MUST BE LESS THAN '.
               10  FILLER              PIC X(39) VALUE
                   'OR EQUAL TO THE CURRENT FISCAL PERIOD  '.
           05  W9999-MSG-138.
               10  FILLER              PIC X(39) VALUE
                   'M138 - KEY CHANGE NOT ALLOWED DURING UP'.
               10  FILLER              PIC X(39) VALUE
                   'DATE/ADD.  PRESS ENTER TO RE-INQUIRE   '.
           05  W9999-MSG-139.
               10  FILLER              PIC X(39) VALUE
                   'M139 - THE MAXIMUM NUMBER OF LINES HAVE'.
               10  FILLER              PIC X(39) VALUE
                   ' BEEN SELECTED.  PRESS F5 TO MOVE LINES'.
           05  W9999-MSG-140.
               10  FILLER              PIC X(39) VALUE
                   'M140 - YOU MAY ONLY SELECT 1 LINE FOR T'.
               10  FILLER              PIC X(39) VALUE
                   'HE SPLIT FUNCTION                      '.
           05  W9999-MSG-141.
               10  FILLER              PIC X(39) VALUE
                   'M141 - CHANGE DATA AND PRESS ENTER TO U'.
               10  FILLER              PIC X(39) VALUE
                   'PDATE.                                 '.
           05  W9999-MSG-142.
               10  FILLER              PIC X(39) VALUE
                   'M142 - DELETE NOT ALLOWED.  FORECAST HA'.
               10  FILLER              PIC X(39) VALUE
                   'S ALREADY BEEN ASSIGNED TO A PROJECT.  '.
           05  W9999-MSG-143.
               10  FILLER              PIC X(39) VALUE
                   'M143 - KEY CHANGE NOT ALLOWED.  FCST HA'.
               10  FILLER              PIC X(39) VALUE
                   'S ALREADY BEEN ASSIGNED TO A PROJECT.  '.
