G
George Potemkin
Guest
> $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.
Continue reading...
Continue reading...