| File | 191 |
|---|---|
| Statement | FIND / PROCESS
|
| Task | Retrieve information about Entire Systems Management Adapter users and enable a user to be cancelled from the Entire Systems Management Adapter. |
| Code | Text |
|---|---|
| 600 | Unknown function. |
| 649 | Entire Systems Management Adapter User not found or cannot be cancelled. |
| Dictionary Field Name | Format/
Length/ Desc/Mu |
Description |
|---|---|---|
| ADABAS-EXTENDED-ID | (B28) | Pseudo extended Adabas user ID. |
| ADABAS-ID | (B4) | Pseudo Adabas user ID. |
| D | ||
| CPU | (N5.2) | Amount of CPU consumed (format: SSSSS.HH). |
| FUNCTION | (A8) | Possible options: |
| D | CANCEL Cancel user with the specified NATPROC-ID. | |
| LASTERR Get last error message. | ||
| If no function is specified, a list of ESA users is given. | ||
| FULL-SCAN | (A3) | FULL-SCAN is considered for FUNCTION = ' ' only (display list of ESA users). If FULL-SCAN is set to YES, all internal ESA tasks are returned additionally. If NO or blank is supplied, only ESA users are returned. |
| D | ||
| INTERNAL-TASK | (A3) | Possible values: |
| D | YES if data of internal ESA task is returned. | |
| NO if data of NATPROC-USER is returned. | ||
| IO-COUNT | (N7) | Number of I/O operations so far. |
| JOB-ID | (A8) | TSN of internal task in alpha format. |
| D | ||
| LAST-ACTIVITY | (N5) | Time elapsed since last activity (in seconds). |
| D | ||
| NATPROC-ID | (A10) | The unique internal ID in the Entire Systems Management Adapter. Value 'TASK' is returned for an internal task. |
| D | ||
| TASK-ID | (A16) | ID of the internal task is returned. This is the name of the load module. |
| D | ||
| USER-ID | (A8) | Possible values: |
| D | userid The user ID. | |
| -------- The user is not logged on. |
FIND NATPROC-USERS WITH NODE = 199
AND FULL-SCAN = 'YES'
AND FUNCTION = ' '
*
IF ERROR-CODE EQ 0
IF #FIRST EQ 1
WRITE 'LogonID ESY Task-ID TSN LastAct CPU used'
'IO count INTERNAL'
WRITE '________ ____ ________________ _____ _______ ________'
' ________ ________'
ASSIGN #FIRST = 0
END-IF
*
WRITE USER-ID NATPROC-ID TASK-ID JOB-ID LAST-ACTIVITY (NL=6)
CPU (NL=4.2) IO-COUNT (NL=7) INTERNAL-TASK
...The following output is created:
LogonID ESY Task-ID TSN LastAct CPU used IO count INTERNAL ________ ____ ________________ _____ _______ ________ ________ ________ TSOS TASK ESYCONS 3UG0 6 481.37 51 YES TSOS TASK ESYEVTM 3809 0 65.46 38 YES TSOS TASK ESYMAIN 3807 0 185.95 230 YES TSOS TASK ESYSERV 3808 27 203.93 2783 YES TSOS TASK ESYSERV 381I 0 274.54 621 YES TSOS NAT NOMXTS0006300038 381E 0 67.31 0 YES TSOS NAT NOM02S0006300038 381G 0 24.32 0 YES TSOS NAT NOM03S0006300038 381H 0 162.89 0 YES TSOS 0010 37 15.44 0 NO TSOS 0011 11 241.62 208 NO DC1 0017 0 0.02 0 NO WOS 0007 27 137.48 0 NO