Guardian Procedure Calls Reference Manual (G06.25+)

Guardian Procedure Calls (C)
Guardian Procedure Calls Reference Manual—522629-013
3-36
CHECKDEFINE Procedure
•
If the named DEFINE does not exist in the primary at the time of the call, then
CHECKDEFINE will cause deletion of the DEFINE of the given name in the backup
process if one exists. Otherwise, the named DEFINE will be copied to the backup,
replacing the backup’s version of the DEFINE if it has one.
•
If the define-name parameter is supplied, but the first two bytes have the value
255 (-1 when treated as a word), then all DEFINEs in the backup process will be
deleted.
•
Note that since all DEFINEs are propagated to the backup process when it is
created, use of CHECKDEFINE is not necessary unless one or more DEFINEs are
changed.
•
If a call to CHECKDEFINE causes a DEFINE in the backup to be altered, deleted,
or added, then the context-change count for the backup process is incremented.
Example
STRING .EXT define^name[0:23];
LITERAL success = 0;
.
.
define^name ':=' ["=mydefine "];
status := CHECKDEFINE ( define^name );
IF status <> success THEN ... ;