Kbase P125358: How to update CRC value on _FILE-TRIG.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
20/01/2009 |
|
Status: Unverified
GOAL:
How to change _FILE-TRIG._TRIG-CRC using 4GL
GOAL:
How to update CRC value on _FILE-TRIG.
FACT(s) (Environment):
Progress 9.x
OpenEdge 10.x
All Supported Operating Systems
FIX:
run the following code:
DEFINE BUFFER ftbuf FOR _file-trig.
DEFINE VARIABLE savevnt LIKE _file-trig._event.
REPEAT PRESELECT EACH _file-trig WHERE _file-trig._trig-crc NE ?:
FIND NEXT _file-trig.
DISPLAY "Compiling:" _file-trig._proc-name.
COMPILE VALUE(_file-trig._proc-name) SAVE NO-ERROR.
IF NOT COMPILER:ERROR THEN
DO:
RCODE-INFO:FILE-NAME = _proc-name.
CREATE ftbuf.
ASSIGN
ftbuf._proc-name = _file-trig._proc-name
ftbuf._file-recid = _file-trig._file-recid
savevnt = _file-trig._event
ftbuf._override = _file-trig._override
ftbuf._trig-crc = RCODE-INFO:CRC-VALUE.
DELETE _file-trig.
ASSIGN
ftbuf._event = savevnt.
END.
ELSE MESSAGE "Couldn't compile:" _file-trig._proc-name VIEW-AS
ALERT-BOX.
END.