Error message not diplayed

[Robert J.M. Edis]

G'day Jeff

Have you tried using the following syntax?

THEN ERROR MESSAGE="DATE MUST BE BETWEEN " + ASCII(BEGDATE) + " AND " +
ASCII(ENDDATE) + "."

Are you using a real terminal or a terminal emulator?  If the latter, can
you scroll up and see any messages displayed before the screen was re-drawn?
The you heard the sound, does the screen prompt you to hit <Return> to
continue?
 
Just curious; why aren't you using the CENTURY() and ADDCENTURY() functions?

Regards,

Blue

 

-----Original Message-----
From: jlkeepers@mmm.com
To: powerh-l@lists.swau.edu
Sent: 1/7/00 10:54 AM
Subject: Error message not diplayed



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.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.