We work with many iSeries with many 5250 sessions, logged with different users for security reasons for the same machine, at the same time. It is very important to know easily the mane of the machine, the user etc...
Here is a command WW (Where, Who) which gives the essentials information of the session we work with.
The command source: CMD PROMPT('WW') /* Where am I ? */ the CL source attached /* variables used */ DCL &USER *CHAR 10 DCL &JOB *CHAR 10 DCL &DATE *CHAR 6 DCL &TIME *CHAR 6 DCL &MSG *CHAR 80 DCL &NBR *CHAR 6 DCL &SYSNAM *CHAR 8 RTVJOBA JOB(&JOB) USER(&USER) NBR(&NBR) RTVNETA SYSNAME(&SYSNAM) RTVSYSVAL QDATE &DATE RTVSYSVAL QTIME &TIME CHGVAR &MSG VALUE('SYSTEM:' *cat &SYSNAM + *BCAT 'USER:' *cat &USER + *BCAT 'SCREEN:' *cat &JOB + *BCAT 'JOB:' *cat &NBR + *BCAT 'DATE:' *cat &DATE + *CAT ':' *cat &HEURE) /* display the informations */ SNDPGMMSG MSG(&MSG) ENDPGM
This was first published in July 2001