如何登录OpenEdge进程?

如果您只想记录一些简单的消息,可以将输出重定向到一个文件。使用 OUTPUT TO

OUTPUT TO VALUE("logfile.txt").

PUT UNFORMATTED "Message 1" SKIP.
PUT UNFORMATTED "Message 2" SKIP.
PUT UNFORMATTED "Message 3" SKIP.

OUTPUT CLOSE.

Message 1
Message 2
Message 3

这个 PUT UNFORMATTED 语句向文件发送字符串。这个 SKIP 关键字添加换行符。这个 OUTPUT CLOSE

如果要添加到现有文件中,请使用 APPEND 上 OUTPUT 声明:

OUTPUT TO VALUE("logfile.txt") APPEND.

doc 关于伐木,尤其是 LOG-MANAGER 命令和 4GLTrace 日志条目类型。

日志管理器 一般来说,对于“系统”类型信息非常有用—有很多跟踪和调试数据可用。它还可以用于应用程序日志记录 WRITE-MESSAGE 方法;虽然这样做是很粗糙的,所以如果您想使用它,您可能需要在它周围编写一个包装器(例如,用于过滤日志级别)。

如果你使用的是合理的最新版本,你可以看看 https://docs.progress.com/bundle/openedge-abl-develop-services/page/ABL-application-logging.html 它为这个(以及更多)提供了一个包装器。

/* logger.p
 *
 * to instantiate:
 *
 *      run logger.p persistent
 *
 * three ways to call it from your code:
 *
 *   publish "logMsg" ( msgLevel, messageText ).        // requires no knowledge in the caller, no error if logger.p has not first been run persistently
 *   run doLogMsg ( msgLevel, messageText ).            // requires no knowledge in the caller, error if logger.p is not run first
 *   logMsg( msgLevel, messageText ).                   // requires forward declaration in the caller
 */


subscribe to "setLogName" anywhere run-procedure "setLogName".
subscribe to "logMsg"     anywhere run-procedure "doLogMsg".

define variable logMsgLevel    as integer   no-undo initial 3.
define variable logMsgFileName as character no-undo initial "application.log".

define stream logStream.

/* install self as a session super-procedure
 */

session:add-super-procedure( this-procedure ).

return.


/* housekeeping
 */

procedure setLogName:
  define input parameter logName as character no-undo.
  logMsgFileName = logName.
  return.
end.


procedure setLogLevel:
  define input parameter logLevel as integer no-undo.
  logMsgLevel = logLevel.
  return.
end.


/* to use this function directly from another procedure you must first declare it in that procedure:
 *
 *      function logMsg returns logical ( input msgLevel as integer, input msgText as character ) in super.
 */

function logMsg returns logical ( input msgLevel as integer, input msgText as character ):
  run doLogMsg( msgLevel, msgText ).
  return true.
end.


/* procedures do not need to be forward declared but we can not have a function and a procedure with the same name
 */

procedure doLogMsg:

  define input parameter msgLevel as integer   no-undo.
  define input parameter msgText  as character no-undo.

  if msgLevel <= logMsgLevel then
    do:
      output stream logStream to value( logMsgFileName ) append.
      put    stream logStream unformatted today " " string( time, "hh:mm:ss" ) " " msgText skip.
      output stream logStream close.
    end.

  return.

end.

试验台示例:

/* test logger.p
 */

/* run doLogMsg ( 3, "test a" ).  */

/* logMsg( 3, "test b" ).         */



function logMsg returns logical ( input msgLevel as integer, input msgText as character ) in super.     /* usually this is in a include file in the procedure header */

publish "logMsg" ( 3, "test 1" ).

run ./logger.p persistent.              /* loads logger.p into memory... */

run setLogName ( "test.log" ).

publish "logMsg" ( 3, "test 2" ).

run doLogMsg ( 3, "test 3" ).

logMsg( 3, "test 4" ).