Hi Guys!
I'm working in a project to use a tool that read any file types and generate alerts based in their content but I need a list of errors from Progress.
Is there this content outside from Progress Client?
> Is there this content outside from Progress Client?
ProTop has this functionality and much more already built in.
promsgs file in binary format has all the messages.
$DLC/prohelp/msgdata contains the error messages in text format.
> Is there this content outside from Progress Client?
rodrigo,
the promsgs file has all the error message formats.
in that file, records are 81 bytes long, in order by message number with no gaps.
(but a few messages use multiple records)
> $DLC/prohelp/msgdata contains the error messages in text format.
prohelp/_msgs.p can read these files.
Or use:
FUNCTION MsgText RETURNS CHARACTER(ipMsgNum AS INTEGER).
DEFINE VARIABLE vMsgNum AS INTEGER NO-UNDO.
DEFINE VARIABLE vMsgText AS CHARACTER NO-UNDO.
ASSIGN vMsgText = SEARCH("prohelp/msgdata/msg1")
vMsgText = SUBSTRING(vMsgText, 1, LENGTH(vMsgText) - 1)
vMsgNum = TRUNCATE((ipMsgNum - 1) / 50, 0) + 1
vMsgText = vMsgText + STRING(vMsgNum)
FILE-INFO:FILE-NAME = vMsgText
. /* ASSIGN */
/* If MsgNum is too high for current Progress version: */
IF FILE-INFO:FULL-PATHNAME EQ ? THEN
RETURN "(" + STRING(ipMsgNum) + ")".
INPUT FROM VALUE(FILE-INFO:FULL-PATHNAME).
REPEAT:
ASSIGN vMsgNum = ?
vMsgText = ?.
IMPORT vMsgNum vMsgText ^.
IF vMsgNum EQ ipMsgNum THEN
LEAVE.
END.
INPUT CLOSE.
RETURN vMsgText.
END FUNCTION. /* MsgText */
And of course I have a program that reads the promsgs file.