DELETE MODIFY_NOTICE;
REDEFINE PROCEDURE MODIFY_NOTICE
!
DECLARE N BYTE
  VALID IF N GE 1 AND N LE 32.
!
READY CDD$TOP.SYSTEM.NOTICE.NOTICE SHARED MODIFY
REPEAT 1000
    BEGIN
     N = *."Message number to modify (Control-Z to exit)"
     MODIFY ALL OF NOTICE WITH MESSAGE_NUMBER = N AND START_DATE NE "           "
    END
FINISH NOTICE
!
END-PROCEDURE

DELETE NOTICE;
REDEFINE DOMAIN NOTICE
  USING CDD$TOP.SYSTEM.NOTICE.NOTICE_RECORD
  ON SYS$NOTICE:NOTICES.DAT
  FORM IS NOTICE IN USER1:[NOTICE.SOURCE]NOTICE.FLB;

DELETE NOTICE_FREQUENCY_TABLE;
REDEFINE TABLE
NOTICE_FREQUENCY_TABLE
0:"Always"
1:"Daily"
2:"Once"
ELSE "Unknown"
END_TABLE

DELETE NOTICE_RECORD;
REDEFINE RECORD
NOTICE_RECORD
01 DATA.
  02 MESSAGE_NUMBER	BYTE
     QUERY_NAME IS NUM
     VALID IF NUM GE 1 AND NUM LE 32.
  02 START_DATE		PIC X(11).
  02 END_DATE		PIC X(11).
  02 FREQUENCY		BYTE
     QUERY_NAME IS FREQ
     VALID IF FREQ GE 0 AND FREQ LE 2.
  02 USERS		PIC X(80).
  02 SUBJECT		PIC X(80).
  02 FILENAME		PIC X(80).
;