OpenEdge中LASTKEY函数使用问题：调用WrtToLogfile后值丢失

问题根源 #

老式Progress ABL里，LASTKEY是全局系统变量，记录用户最后一次输入的按键代码。任何涉及终端I/O、用户交互的操作都会更新这个变量——哪怕是日志写入函数，如果内部隐含了终端输出、调用了触发键盘缓冲读取的底层逻辑，都会覆盖UPDATE操作留下的按键值。你遇到的情况就是WrtToLogfile执行过程中修改了LASTKEY的全局状态。

解决方案 #

1. 提前保存LASTKEY值（最直接的临时修复） #

在调用日志函数前，立刻把LASTKEY的值存入临时变量，后续逻辑用这个变量而非直接读取LASTKEY：

DEFINE VARIABLE iSavedLastKey AS INTEGER NO-UNDO.

/* 执行UPDATE后马上保存按键值 */
UPDATE ... .
iSavedLastKey = LASTKEY.

/* 调用日志函数，此时即使它修改LASTKEY也不影响 */
RUN WrtToLogfile(INPUT "更新操作完成").

/* 后续用保存的变量判断按键 */
IF iSavedLastKey = 10 THEN DO: /* 处理回车按键 */
    /* 你的业务逻辑 */
END.

2. 排查WrtToLogfile的实现（根治方案） #

如果有权限查看WrtToLogfile的完整代码，检查是否存在以下会修改LASTKEY的操作：

• 不必要的终端输出语句（比如DISPLAY、MESSAGE）
• 调用了READ、PROMPT-FOR等用户交互函数
• 底层系统API调用（比如操作键盘缓冲的接口）

如果发现这类代码，移除或调整——日志函数的核心是写入日志，不需要触发用户交互或终端I/O操作。

3. 老式架构下的LASTKEY使用规范 #

在非事件驱动的老式ABL架构中，LASTKEY的全局特性决定了它很容易被意外覆盖，务必遵循：

• 在依赖LASTKEY的操作完成后立即读取并保存，不要拖延到其他函数调用之后
• 避免在通用工具函数（比如日志、公共组件）中修改LASTKEY的全局状态

内容的提问来源于stack exchange，提问作者Allan Green