AS/400 HELP
"USERINFOa"
DISPLAY ONLINE USER STATISTICS
(Another version of USERINFO)
USERINFOa
displays a list of active online users
in alphabetical order . The following
is shown;
FIELD EXPLANATION
User name
Workstn id
CPU % As in WRKACTJOB
Job
MM/DD
HH:MM date & time the user signed
on to begin this session
Sts job status; DSPW, RUN
etc etc see NOTE3 below
Memory Memory allocated to handle current job
Input Cycles
The amount of times the enter key or a function key was pressed
Disk I/O
Disk I/O for this session
Open Files
Files that are open for this job
Call Stack Programs Number of programs running in this job
Job Log Entries
Total job log entries
for this job. If the last message for
this job was an Inquiry Message (an error exists and is waiting for a reply)
the job will be highlighted.
FUNCTION KEY
EXPLANATION
F4 toggles Allocated Memory & CPU%
F5 refreshes
screen.
F9 provides a
command entry screen
F10 resets CPU %
DISK I/O Input Cycles
After F10 press F5 to show new
stats.
USERINFOa uses
API QUSLJOB to get all interactive jobs into a user space.
API QUSRJOBI retrieves the detail information for each job. Format Jobl100 is new as of Ver 5.1 and
provides the CPU % DISK I/O and Input Cycles. (see note4) API QDMLOPNF get open files. API QWRCSTK gets call stack
jobs. API QMHLOBJ gets the last job log message and total messages in job
log. I first tried using QGYOLJBL to
get the last message but it would not release the memory used (see userinfo4 module) .
USERINFOa was
developed and compiled on a 170 at V5r1 and will not run at any lower
level.
PC INSTRUCTIONS:
Download "USERINFOA” to your PC.
Go to a DOS session and enter the following;
FTP SYSTEM (system =
your AS/400’s name or IP address)
Enter a valid user id and password
CD QGPL
LCD C:\DIRECTORY (directory= the directory on your pc where you
downloaded “userinfoa.savf”
QUOTE
SITE NAMEFMT 1
BIN
PUT
USERINFOA.SAVF
QUOTE RCMD
RSTLIB SAVLIB(USERINFOA) DEV(*SAVF) SAVF(QGPL/USERINFOA)
Note: If there is a security problem restoring all
objects with the command above, sign on
to your as/400 as Qsecofr and run RSTLIB
from the command line.
AS/400
INSTRUCTIONS:
ADDLIBLE USERINFOA
UIA
Note: if you ran the original USERINFO you must remove USERINFO library list
entry (RMVLIBLE USERINFO) before
running USERINFOA
NOTE: API
QUSRJOBI (especially with the new format JOBL1000) provides a wealth of information.
You may want to modify USERINFOA with one or more of the other fields. The
F4 toggle function cam
easily be modified to show the field info you want. I strongly recommend
you print a copy of QUSRJOBI and look at all the job performance info available
NOTE2: The CPU% is
not as quick as WRKACTJOB in showing jobs in a loop
NOTE3: A job with
a status of LCKW will be highlighted
with its fields in reverse image
NOTE4: I use the
term INPUT CYCLES. IBM uses NUMBER OF INTERACTIVE TRANSACTIONS. This field is
available in format JOBI0200 and JOBL1000.
It can be reset to zero only in JOBL1000
Version
available showing users in alpha
order $10. cda
AS/400
INSTRUCTIONS:
ADDLIBLE USERINFOA
UIA