project BLF > class Housekeeping > method SetMessage
Description
Write error messages. This method is defined so that the standard call to SetMessage from the rest of the component code can be used.
Parameters
icMessage | input | character | The actual message, can contain $1, $2, ... for values that are situation-dependent. |
icArguments | input | character | chr(2) seperated list of values to replace $1, $2, ... in the message with. These values should not be translatable. |
icFieldName | input | character | dummy parameter for keeping this method compatible with business.SetMessage |
icFieldValue | input | character | dummy parameter for keeping this method compatible with business.SetMessage |
icType | input | character | dummy parameter for keeping this method compatible with business.SetMessage |
iiSeverity | input | integer | dummy parameter for keeping this method compatible with business.SetMessage |
icRowid | input | character | dummy parameter for keeping this method compatible with business.SetMessage |
icFcMsgNumber | input | character | |
icFcExplanation | input | character | |
icFcIdentification | input | character | |
icFcContext | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/housekeeping.p)
/* replace the non-translatable arguments */
do viCnt = 1 to 9:
if num-entries(icArguments,chr(2)) < viCnt
or entry(viCnt,icArguments,chr(2)) = ?
then assign icMessage = replace (icMessage,
"$":U + string(viCnt),
"").
else assign icMessage = replace (icMessage,
"$":U + string(viCnt),
entry(viCnt,icArguments,chr(2))).
end.
output to value (session:temp-dir + "Housekeeping-errors.txt":U) append.
put unformatted string(now) " " icMessage skip.
output close.