Type ASSEMBLE
Source Lines : 1,371
Fixes Applied : 6
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [HRC065DK]

Module

       DMKCQP

Function

       TO RETURN TO THE REQUESTOR INFORMATION FOR
       THE QUERY PAGING, PRIORITY, SYSTEM, LINKS, DUMP, HOLD, REAL,
       FREE, PROCESSOR, ALL, OR TERMINAL COMMAND.

Attributes

       REENTRANT, PAGEABLE, CALLED VIA SVC

Operation

       1. ISSUE SVC 16 TO RETURN THE SAVEAREA, THUS, WHEN EXIT
          WILL RETURN DIRECTLY TO DMKCFM COMMAND PROCESSING
          INSTEAD OF DMKCFMQU.
       2. THE PROPER ROUTINE IS ENTERED VIA A BRANCH TABLE.
          REGISTER 6 IS SET UP BY DMKCFMQU TO INDEX TO THE
          PROPER BRANCH INSTRUCTION.
       3. EACH ROUTINE SCANS THE APPROPRIATE CONTROL BLOKS TO
          PICK UP THE INFORMATION NEEDED FOR THE REQUEST AND FORMATS
          THE MESSAGE TO BE RETURNED TO THE USER.
           STEPS 4 AND 5 DELETED ... NO LONGER USED; PROCESSING
           MOVED TO MODULE DMKCQR.
       6. SYSTEM - CALL DMKSCNFD TO LOCATE THE RADDR ARGUMENT. IF
           NONE IS FOUND, CALL DMKERMSG TO SEND ERROR MESSAGE
           DMKCQP021E. IF ONE FOUND, CALL DMKCVTHB TO CONVERT THIS
           ADDRESS TO BINARY. IF THE CONVERT FAILS, CALL DMKERMSG
           TO SEND ERROR MESSAGE DMKCQP021E. IF THE CONVERT WAS
           GOOD, CALL DMKSCNRU TO LOCATE THE RDEVBLOK ADDRESS FOR
           THIS DEVICE. IF THE RDEVBLOK CAN'T BE FOUND, CALL DMKERMSG
           TO SEND ERROR MESSAGE DMKCQP040E. IF BLOCK IS FOUND AND IT
           IS A DASDI DEVICE WHICH IS A CP-VOLUME CALL DMKFREE FOR
           A MESSAGE BUFFER AREA. PROCEED TO GET THE NAMES OF ALL
           USERS WHO ARE LINKED TO THIS VOLUME. AS THE MESSAGE
           OUTPUT LINES FILL CALL DMKQCNWT TO WRITE THE LINE TO THE
           USER. IF THE DEVICE IS NOT CP-OWNED TREAT THE REQUEST AS
           IF IT WERE FOR A SINGLE DEVICE.
           STEPS 7 AND 8 DELETED.  MOVED TO DMKCQR.
       9.  'DEVICE CLASS' - SET A FLAG IN SAVEWRK1 TO INDICATE
           WHICH TYPE OF REQUEST WAS RECEIVED. IF IT IS A STORAGE
           REQUEST, OBTAIN THE REAL STORAGE SIZE AND CALL DMKCVTBD
           TO CONVERT TO DECIMAL. PUT THIS IN THE MESSAGE AND CALL
           DMKQCNWT TO OUTPUT IT. FOR DEVICE TYPE REQUEST, SCAN
           THE REAL DEVICE BLOCKS AND WHEN A MATCH OCCURS ON THE
           REQUESTED DEVICE CLASS BUILD THE MESSAGE ACCORDING TO THE
           TYPE OF DEVICE AND ITS STATUS. THEN CALL DMKQCNWT TO
           OUTPUT THE MESSAGE. CHECK RDEVNRDY FLAG. IF ON, CALL
           DMKQCNWT AND OUTPUT INT REQ MESSAGE. CONTINUE DOING THIS
           UNTIL ALL RDEVBLOKS HAVE BEEN SCANNED.
           STEP 10 DELETED; PROCESSING MOVED TO DMKCQR.
       11. LINK - CALL DMKCVTHB TO CONVERT VADDR TO BINARY. IF
           ERROR DURING CONVERT CALL DMKERMSG TO ISSUE ERROR
           MESSAGE DMKCQP022E. IF VADDR IS VALID CALL DMKSCNVU TO
           LOCATE THE VIRTUAL DEVICE BLOCK. IF THE DEVICE IS NOT
           FOUND CALL DMKERMSG TO ISSUE ERROR MESSAGE DMKCQP040E. IF
           ADDRESS IS CORRECT CHECK THAT DEVICE IS DASDI. IF NOT
           DASDI ISSUE ERROR MESSAGE DMKCQP006E. IF ALL OF THE ABOVE
           REQUIREMENTS ARE MET, PROCEED TO FIND EACH USER ON THE
           SYSTEM THAT IS USING THE SAME DISK EXTENT, ON THE SAME
           CP-VOLUME THAT THIS USER HAS. CALL DMKQCNWT TO OUTPUT
           THE RESPONSE LINE. CONTINUE SCANNING ALL VDEVBLOKS IN THE
           SYSTEM UNTIL THE VDEVBLOKS ARE EXHAUSTED.

       12. TDSK - USE THE SAME LOOP AS QUERY LINKS ONLY PICK UP
           THE VIRTUAL DISKS MARKED AS TDSK ALLOCATED.
           THE VIRTUAL TDSKS INDICATE THE NUMBER OF CYLINDERS
           THE STACK ROUTINE IS USED TO STACK THE OUTPUT LINE.

       13. PROCESSOR - CALL DMKCVTBH TO CONVERT EACH ONLINE PROCESSOR
           ADDRESS TO PRINTABLE HEXADECIMAL THEN BUILD PROCESSOR
           ONLINE MESSAGE.  IN AP MODE, THE MAIN PROCESSOR WILL BE
           GIVEN FIRST.

Calls to Other Routines

       DMKSCNFD - TO LOCATE THE NEXT ARGUMENT IN THE COMMAND BUFFER
       DMKSCNAU - TO FIND THE VMBLOK FOR A SPECFIC USERID
       DMKSCNVU - TO FIND CONTROL BLOKS FOR A VIRTUAL DEVICE
       DMKSCNRU - TO FIND CONTROL BLOKS FOR A REAL DEVICE
       DMKSCNRD - GET ADDRESS OF REAL DEVICE.
       DMKSCNRA - TO GET CCU ADDRESS OF REAL DEVICE
       DMKSCNRN - TO GET THE NAME OF THE DEVICE.
       DMKSCNVD - GET THE VIRTUAL DEVICE ADDRESS.
       DMKCVTHB - TO CONVERT HEXADECIMAL ADDRESS TO BINARY
       DMKCVTDB - TO CONVERT A DECIMAL NUMBER TO BINARY.
       DMKCVTBD - TO CONVERT A BINARY NUMBER TO DECIMAL
       DMKCVTBH - TO CONVERT A BINARY NUMBER TO HEXADECIMAL
       DMKFREE  - TO OBTAIN MEMORY FROM FREE STORAGE
       DMKFRET  - TO RETURN MEMORY TO FREE STORAGE
       DMKQCNWT - TO OUTPUT MESSAGES TO THE TERMINAL
       DMKERMSG - TO SEND ERROR MESSAGES TO THE TERMINAL.
       DMKRSPUR - TO FORMAT ACTIVE FILE MESSAGE
       DMKCFCSC - SCAN OPERAND FOR RANGE OF ADDRESSES