It may appear long, but it's simply a list of INSERT statements then a COMPILE.DICT command. Beware that the column names list varies.
Code: Select all
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM) VALUES ('KEY','D','0','Class\ID','40L','S');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM) VALUES ('DTC','D','1','Created on','20L','S');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM) VALUES ('CREATOR','D','2','Created by','20T','S');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM) VALUES ('PREVDTD','D','3','Last deleted on','20L','S');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM) VALUES ('PREVDELETOR','D','4','Last deleted by','20T','S');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM,ASSOC) VALUES ('DTM','D','5','Modified on','20L','M','MODS');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM,ASSOC) VALUES ('MODIFIER','D','6','Modified by','20T','M','MODS');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM,ASSOC) VALUES ('REASON','D','7','Reason for modification','38T','M','MODS');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM) VALUES ('CLASS','I','FIELD(KEY,"\",1,1)','Class','10L','S');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM) VALUES ('INSTANCE','I','FIELD(KEY,"\",2,99)','Instance ID','40T','S');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC,NAME,FORMAT,SM,ASSOC) VALUES ('DATE_MOD','I','SUBSTRINGS(DTM,1,10)','Date modified','10R','M','MODS');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC) VALUES ('MODS','PH','DTM MODIFIER REASON');
INSERT INTO DICT DS_AUDIT(ID,CODE,LOC) VALUES ('@','PH','ID.SUP KEY DTC CREATOR PREVDTD PREVDELETOR MODS BY CLASS BY INSTANCE');
COMPILE.DICT DS_AUDIT