create-trg.p
| 1 |
TRIGGER PROCEDURE FOR CREATE OF customer. |
|---|---|
| 2 |
DEFINE SHARED VAR create-trg-cnt AS INTEGER NO-UNDO. |
| 3 |
DEFINE SHARED VAR create-trg-cnt-max AS INTEGER NO-UNDO. |
| 4 |
create-trg-cnt = create-trg-cnt + 1. |
| 5 |
IF create-trg-cnt > create-trg-cnt-max THEN DO: |
| 6 |
MESSAGE 'Reject create'. |
| 7 |
create-trg-cnt = 0. |
| 8 |
RETURN ERROR. |
| 9 |
END. |
| 10 |
ELSE |
| 11 |
MESSAGE "Allow create". |