SUBROUTINE H08.UT.H08.CR.EVENTS(X.EXEC,X.DICT,X.FILE,X.ID,X.REC)

• SUBROUTINE H08.UT.H08.CR.EVENTS(X.EXEC,X.DICT,X.FILE,X.ID,X.REC)

• X.EXEC=2

• IF X.DICT=’’ THEN

• X.REC<4>=UPCASE(@LOGNAME)

• X.REC<5>=DATE()

• X.REC<6>=TIME()

• IF X.REC<1>=’’ THEN

• X.REC<1>=X.REC<4>

• X.REC<2>=X.REC<5>

• X.REC<3>=X.REC<6>

• END

• END

• RETURN

• :BASIC CUSTOM.SOURCE H08.UT.H08.CR.EVENTS

• :CATALOG CUSTOM.SOURCE H08.UT.H08.CR.EVENTS FORCE

• :CREATE.TRIGGER H08.CR.EVENTS H08.UT.H08.CR.EVENTS UPDATE