Error message not diplayed

[jlkeepers@mmm.com]

Fellow PowerHouse users,

I am working on a quick screen in PH 8.19.c2 and am experienceing an
unusual anomaly.  If a user enters incorrect data into a field, an error
message should show up stating why the entry is bad.  The default PH errors
are showing fine, but the error message I coded doesn't show up.  All I get
is a beep!  Can anyone help?  Below is the code I have in place.

Thanks,
Jeff

TEMP WRK-DATE DATE CENTURY EXCLUDE OCCURS WITH PAL-HOURS-DETL

FIELD WRK-DATE FORMAT MMDDYY SEPARATOR '-' CENTURY EXCLUDE

PROCEDURE EDIT WRK-DATE
  BEGIN
;--------------------------------------------------------------------------
-
;1998/12/07 - Y2K - Change code to work for WRK-DATE
   LET WRK-YEAR = ASCII(FIELDVALUE)[1:2]
   IF WRK-YEAR > '49'
      THEN LET WS-WRK-DATE = NCONVERT('19' + ASCII(FIELDVALUE,6))
   IF WRK-YEAR < '50'
      THEN LET WS-WRK-DATE = NCONVERT('20' + ASCII(FIELDVALUE,6))
   IF WS-WRK-DATE LT BEG-DATE OR WS-WRK-DATE GT END-DATE
      THEN ERROR = "DATE MUST BE BETWEEN " + BEGDATE + " AND " + ENDDATE +
"."
  END
;
PROCEDURE PROCESS WRK-DATE
  BEGIN
;--------------------------------------------------------------------------
-
;1998/12/07 - Y2K - Add PROCESS procedure to set value of PAL-DATE
      LET PAL-DATE = ASCII(WRK-DATE,6)
  END
;


= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.