Type ASSEMBLE
Source Lines : 968
Fixes Applied : 2
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [R09251DK]

Module

       DMKTHI - GIVE DATA ON UTILIZATION OF AND CONTENTION FOR
             MAJOR SYSTEM RESOURCES

Function

       TO HANDLE THE 'INDICATE' CONSOLE FUNCTION

Attributes

       SERIALLY REUSABLE, PAGEABLE, CALLED VIA SVC

Operation

       1.  CALL DMKSCNFD TO CHECK FOR ARGUMENTS, IF NONE FOUND
           ASSUME PROCESSING FOR INDICATE ONLY

           IF 'LOAD' OR DEFAULT OF NO PARAMETER FOUND GOTO PART 2

           IF 'I/O' FOUND GO TO SECTION WHICH LOOKS FOR RUNNABLE
           USERS IN I/O WAIT STATE, PART 3.

           IF 'PAGING' FOUND GO TO SECTIONS TO HANDLE  'IND PAGING'
           FUNCTIONS, PARTS 4 AND 5.

           IF 'USER' FOUND HANDLE USER RESOURCE REQUEST FUNCTION
           PART 6.

           IF 'QUEUES' FOUND DISPLAY CURRENT MULTIPROGRAMMING SET
           PART 7.

           IF INVALID PARAMS FOUND SEND CANNED ERROR MSGS AND EXIT

       2.  INDICATE LOAD PROCESSING:
           USING REPLY MESSAGE DSECT GET BUFFER FOR REPLY AND
           MOVE IN THE SKELETON REPLY MESSAGE, THEN PATCH REPLY
           WITH INDICATE COMPONENT VALUES AS FOLLOWS:
           PICK UP SMOOTHED WAIT STATE NUMBERS FROM SCHEDULER,
           CONVERT TO PERCENTAGE IN PRINTABLE HEX. AND MOVE INTO
           REPLY. GET SMOOTHED NUMBERS OF USERS IN Q1 AND Q2 FROM
           DMKSCH CONVERT TO HEX AND MOVE INTO MESSAGE.
           GET SMOOTHED CORE UTILIZATION AND SCHEDULER CONTENTION
           RATIO NUMBERS, CONVERT TO HEX AND MOVE INTO REPLY
           CALL DMKQCNWT TO SEND REPLY TO USER, FREE BUFFER AND EXIT

       3.  INDICATE I/O PROCESSING:
           USING REPLY MESSAGE DSECT GET BUFFER FOR REPLY AND
           BUILD REPLY FIELD BY FIELD AS FOLLOWS:
           SCAN VMBLOK CHAIN LOOKING FOR IN Q NOT RUNNABLE
           USERS WHO ARE IN I/O WAIT. WHEN ONE IS FOUND
           PICK UP FROM HIS VMBLOK THE VIRTUAL ADDRESS OF THE DEVICE
           FOR WHICH HE LAST ISSUED A VIRTUAL I/O REQUEST. CALL
           DMKSCNVU TO LOCATE THE VIRTUAL DEVICE BLOCK ADDRESS
           AND THENCE THE POINTER TO THE CORRESPONDING REAL
           DEVICE ADDRESS. THEN USEDMKSCNRD
           TO GET THE FULL REAL DEVICE ADDRESS AND DMKCVTBH
           TO CONVERT THE RESULT TO EBCDIC HEX FOR INSERTION IN THE
           REPLY MESSAGE. ADD THE USERID FOR WHOM THE I/O IS
           BEING PERFORMED.

           EACH LINE OF THE REPLY MESSAGE MAY CONTAIN A MAXIMUM
           OF 5 FIELDS (USERID AND REAL DEVICE ADDRESS IN EACH FIELD)
           AS EACH LINE IS FILLED IT IS STACKED IN A BUFFER ONTO
           THE USER'S VMBLOK IN A CHAIN WHOSE ANCHOR POINT IS THE
           VMSTKO FIELD OF THE VMBLOK. WHEN THE LAST VMBLOK HAS
           BEEN SCANNED, THE LAST PARTIALLY FILLED REPLY LINE
           IS STACKED UP AND AN EXIT IS MADE.

       4.   INDICATE PAGING PROCESSING:
           USING A REPLY MESSAGE DSECT OBTAIN THE APPROPRIATE SIZED
           BUFFER AND BUILD AS MANY AS 5 FIELDS INTO REPLY AS FOLLOWS
           WHEN THE 'PAGING' PARAMETER IS ENCOUNTERED, A CALL TO
           DMKSCNFD IS MADE TO CHECK FOR THE 'WAIT' OR 'ALL PARAMETER
           IF NEITHER ARE FOUND, THE DEFAULT IS 'WAIT' FOR WHICH
           PROCESSING IS AS FOLLOWS:
           THE VMBLOK CHAIN IS SCANNED LOOKING FOR IN Q
           USERS, WHO ARE NOT RUNNABLE AND ARE IN PAGE WAIT. WHEN
           ONE IS FOUND, A FIELD IS ADDED TO THE REPLY MESSAGE
           CONTAINING THE USERID AND A COUNT OF THE NUMBER OF PAGES
           RESIDENT ON DRUM AND ON DISK.

       5.  INDICATE PAGING ALL PROCESSING:
           WHEN THE 'PAGING ALL' PARAMTERS ARE FOUND, THE REPLY
           MESSAGE CONSTRUCTED CONTAINS INFORMATION ON THE PAGE
           RESIDENCY COUNTS OF ALL USERS LOGGED ONTO THE SYSTEM.

           EACH LINE OF REPLY TO THE 'INDICATE PAGING ALL' COMMAND
           MAY CONTAIN A MAXIMUM OF 4 FIELDS, EACH CONTAINING THE
           USERID AND 3CHAR. DRUM RESIDENCY AND DISK RESIDENCY
           PAGE COUNT SEPARATED BY A COLON; THE STACK
           PROCEEDURE IS USED AS BEFORE TO ACCUMULATE THE
           REPLY MESSAGES.

        6. INDICATE USER COMMAND PROCESSING:
           WHEN THE 'USER' PARAMETER IS ENCOUNTERED, THEN THE '*' IS
           ALLOWED BY ANY CLASS OF USER, AND IS THE DEFAULT. HOWEVER
           ONLY PRIVILEGED CLASSE USERS E ARE
           ALLOWED TO ACCESS VMBLOK DATA FROM OTHER USERS
           OF THE SYSTEM. DATA ACCORDING TO THE CONTENTS
           DESCRIBED ABOVE ARE CONVERTED TO DECIMAL AND
           STACKED ON THE USERS VMBLOK FOR REPLY.

       7.  INDICATE QUEUES COMMAND PROCESSING:
           THE'QUEUES' PARAMETER MAY ONLY BE USED BY PRIVILEGED USERS
           A SCAN IS MADE OF THE RUNLIST AND ELIGIBLE LISTS AND
           DATA RELATING TO THOSE USERS ARE DISPLAYED. THE DATA
           INCLUDE USERID, QUEUE INDICATOR (Q1,Q2,E1,E2), STATUS
           INDICATOR (RU, RA, PG, IO, EX, PS, OR --),
           PAGES RESIDENT AND MOST RECENT WORKING SET SIZE ESTIMATE.
           THE STACK SUBROUTINE IS USED TO ADD THE REPLY BUFFERS TO
           THE REQUESTOR'S VMBLOK. SUBSEQUENTLY DMKCFM OUTPUTS THE
           MESSAGES AND FREES UP THE BUFFER SPACE.

Calls to Other Routines

       DMKCVTBD - TO CONVERT BINARY TO EBCDIC DECIMAL
       DMKCVTBH - TO CONVERT BINARY TO EBCDIC HEX
       DMKQCNWT - TO WRITE INDICATE RESPONSE TO USER
       DMKSCNFD - TO LOOK FOR INDICATE PARAMETERS IN COMMAND FIELDS
       DMKSCNVU - VIRTUAL DEVICE BLOCKS FROM VIRTUAL ADDRESS
       DMKSCNRD - FULL REAL DEVICE ADDRESS FROM REAL DEVICE BLOCK
       DMKFREE  - TO OBTAIN STORAGE FOR REPLY MESSAGES
       DMKFRET  - TO RELEASE STORAGE
       DMKERMSG - TO WRITE ERROR MESSAGES
       DMKTMRPT - TO OBTAIN CURRENT UP TO DATE VALUE OF VMVTIME