חסימת משתמשים מלכתוב תווים מסוימים (אותיות\מספרים)

תוכל לכתוב טריגר CHECK_FIELD לשדה ולבדוק באמצעות STRPIECE אם הוקש אות לא רצויה.
למשל, אני מסנן כתובות דוא"ל בצורה הזו
STRPIECE (PHONEBOOK.EMAIL, '@', 2, 1) = "
אם התוצאה ריקה, אז כנראה *לא* מופיע @ בשדה. אתה רוצה את ההיפך.

אם אתה עובד עם גרסה 17 אז יש דרך אחרת. אני כותב קוד כאן ישירות לכן יכולה להיות שגיאת תחביר.

:LEN = STRLEN (:$.@);
:A = 0;
LABEL 1;
:A = :A + 1;
ERRMSG 1 WHERE SUBSTR (:$.@, :A, 1) IN ('$', '%', '@', '~');
LOOP 1 WHERE :A < :LEN;

או בעברית –
לשמור את אורך המחרוזת של השדה הנוכחי
לאפס מונה
תווית
להוסיף אחד למונה
להציג הודעת שגיאה אם האות התורנית במחרוזת נמצאת בקבוצת האותיות האסורות
לחזור בחזרה לתוית אם המונה פחות מאורך המחרוזת

הוסיפו את הפונקציה SUBSTR בגרסה 17. יש לה יתרון עצום על פני STRIND – הפרמטרים יכולים להיות משתנים.

אין לי נסיון עם הפוקנציה הזו אך נראה לי שאתה צריך לשמור את התוצאה בתוך משתנה (לא RETVAL) ולהציג את הודעת השגיאה בהתאם.
תנסה משהו כזה
ERRMSG 994 FROM DUMMY
WHERE ISNUMERIC ׂ(:$.@) = 1