1 TRIGGER PROCEDURE FOR CREATE OF JournalDescription.
3 DEF BUFFER LastJournal
FOR JournalDescription.
4 FIND LAST LastJournal
NO-LOCK NO-ERROR.
5 ASSIGN JournalDescription.JournalCode
=
6 IF AVAILABLE LastJournal
THEN LastJournal.JournalCode
+ 1 ELSE 1.
