AS400用户不活动 - 捕获用户上次活动以来的分钟数（QINACTITV）_编程开发

AS400用户不活动 - 捕获用户上次活动以来的分钟数（QINACTITV）

创始人

2024-11-11 05:31:18

0次

以下是一个示例代码，用于捕获AS400用户上次活动以来的分钟数：

PGM

/* 声明变量 */
DCL        &USER      *CHAR    10
DCL        &SESSION   *CHAR    10
DCL        &LASTACT   *DEC      7 0
DCL        &MINUTES   *DEC      5 0

/* 获取当前用户和会话信息 */
RTVJOBA    USER(&USER) SESSION(&SESSION)

/* 获取用户上次活动时间（分钟数） */
RTVUSRPRF  USRPRF(&USER) RTNCOD(&LASTACT)

/* 计算分钟数 */
CHGVAR     &MINUTES (%SST(&LASTACT 1 3) * 60 + %SST(&LASTACT 4 2))

/* 显示结果 */
SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('AS400用户' || &USER || '不活动时间为' || &MINUTES || '分钟。')

ENDPGM

这个示例程序使用CL语言来获取当前用户和会话信息，并使用RTVUSRPRF命令来获取用户上次活动时间（分钟数）。然后，它使用CHGVAR命令来计算总分钟数，并使用SNDPGMMSG命令来显示结果。

请注意，这只是一个示例代码，可能需要根据您的实际要求进行修改和调整。

上一篇：As400系统回复列表条目问题

下一篇：AS400中的十进制问题

AS400用户不活动 - 捕获用户上次活动以来的分钟数（QINACTITV）

相关内容

热门资讯