I needed a way to keep track of which users are assigned to or are using certain devices on our LAN. I wrote an initial program, shown in 2, that stores certain information in the device description. Information such as the user ID, the date, and the time are stored in the text description for the device the user is signing on to. I can then have a program go through the device descriptions and help me keep track of which devices are being used, by whom, and how often. That way, I can see if we're using our hardware to its best advantage.

I needed a way to keep track of which users are assigned to or are using certain devices on our LAN. I wrote an initial program, shown in Figure 2, that stores certain information in the device description. Information such as the user ID, the date, and the time are stored in the text description for the device the user is signing on to. I can then have a program go through the device descriptions and help me keep track of which devices are being used, by whom, and how often. That way, I can see if we're using our hardware to its best advantage.

- Dave Jackson

TechTalk: A way to store information about how your workstation devices are being used.

Figure 2: Initial Program to Keep Track of Who Is Signing On to a Device

 /*=============================================================*/ /* To compile: */ /* */ /* CRTCLPGM PGM(XXX/SGN001CL) SRCFILE(XXX/QCLSRC) */ /* */ /*=============================================================*/ PGM DCL VAR(&XDEV) TYPE(*CHAR) LEN(10) DCL VAR(&XUSR) TYPE(*CHAR) LEN(10) DCL VAR(&XDTE) TYPE(*CHAR) LEN(6) DCL VAR(&XTIM) TYPE(*CHAR) LEN(6) RTVJOBA JOB(&XDEV) USER(&XUSR) RTVSYSVAL SYSVAL(QDATE) RTNVAR(&XDTE) RTVSYSVAL SYSVAL(QTIME) RTNVAR(&XTIM) CHGDEVDSP DEVD(&XDEV) TEXT(&XDEV *BCAT &XUSR *CAT + %SST(&XDTE 1 2) *CAT '/' *CAT %SST(&XDTE + 3 2) *CAT '/' *CAT %SST(&XDTE 5 2) *BCAT + %SST(&XTIM 1 2) *CAT ':' *CAT %SST(&XTIM + 3 2) *CAT ':' *CAT %SST(&XTIM 5 2)) MONMSG MSGID(CPF2618) ENDPGM