Type ASSEMBLE
Source Lines : 1,071
Fixes Applied : 13
Most Recent Version : Saturday, December 9, 1978
Last Fix ID : [HRC065DK]
Module
DMKCQG
Function
TO RETURN TO THE REQUESTOR INFORMATION FOR YHE FOLLOWING
QUERY FUNCTIONS :
QUERY VIRTUAL (DASD TAPE UR ETC. )
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 RETURNING TO 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,5,6,7,8, AND 9 DELETED. MOVED TO DMKCQR.
10. VIRTUAL - CALL DMKSCNFD TO LOCATE THE TYPE OF VIRTUAL
REQUEST. IF NONE FOUND, ASSUME ALL. MATCH THE REQUEST TO
A LIST OF VALID VIRTUAL REQUEST. THE CLASS CODE IN THE
LIST WILL BE USED IN SETTING UP THE VARIOUS MESSAGES.
IF STORAGE WAS REQUESTED, THE STORAGE SIZE FROM THE
VMBLOK IS CONVERTED TO PRINTABLE CHARACTERS AND DMKQCNWT
IS CALLED TO OUTPUT THE STORAGE MESSAGE. FOR THE I/O
REQUESTS, THE VIRTUAL DEVICE BLOKS ARE SCANNED. WHEN THE
CLASS OF DEVICE MATCHES THE REQUEST, THE FORMAT ROUTINE
BUILDS AN APPROPRIATE MESSAGE ACCORDING TO THE DEVICE
TYPE AND ITS STATUS. THEN A CALL TO DMKQCNWT IS MADE TO
SEND THE MESSAGE TO THE TERMINAL. THIS CONTINUES UNTIL ALL
DEVICES HAVE BEEN SCANNED. IF THE ARGUMENT DOESN'T COMPARE
TO ANY ENTRY IN THE LIST, IT IS ASSUMED TO BE A VIRTUAL
ADDRESS. A CALL IS MADE TO DMKCFCSC TO SCAN OPERAND TO
SEE IF IT IS A RANGE OF ADDRESSES. IF YES, THE
ADDRESSES ARE VALIDITY CHECKED, CONVERTED TO BINARY
(DMKCVTHB) AND SAVED FOR LATER USE. IF ONLY A SINGLE
ADDRESS HAS BEEN SPECIFIED, A CALL TO DMKCVTHB IS
MADE TO CONVERT THE ADDRESS TO BINARY. IF THE CONVERT
IS BAD, CALL DMKERMSG TO SEND ERROR MESSAGE DMKCQG022E.
FOR A GOOD CONVERT, CALL DMKSCNVU TO LOCATE THE VIRTUAL
DEVICE BLOCKS. IF THE BLOCKS ARE NOT FOUND, CALL
DMKERMSG TO SEND ERROR MESSAGE DMKCQG040E. IF THE
DEVICE IS FOUND, FORMAT THE RESPONSE ACCORDING TO THE
DEVICE TYPE, CALL DMKQCNWT TO SEND THE RESPONSE AND EXIT.
12. STEP 12 DELETED, MOVED TO CQH
13. IF THE REQUEST IS NOT FOUND IN THE LIST, ASSUME THE
REQUEST TO BE A VADDR OR USERID. FIRST CHECK IF IT IS
A VALID DEVICE ADDRESS. A CALL IS MADE TO DMKCFCSC TO
SCAN OPERAND TO SEE IF IT IS A RANGE OF ADDRESSES.
IF YES, THE ADDRESSES ARE VALIDITY CHECKED, CONVERTED
TO BINARY (DMKCVTHB) AND SAVED FOR LATER USE. IF ONLY
A SINGLE ADDRESS HAS BEEN SPECIFIED, A CALL TO DMKCVTHB
IS MADE TO CONVERT THE ADDRESS TO BINARY. IN BOTH CASES,
THE RESPONSE IS FORMATTED ACCORDING TO THE DEVICE TYPE,
AND A CALL IS MADE TO DMKQCNWT TO SEND THE RESPONSE.
IF NOT A DEVICE ADDRESS, ASSUME A USERID. CALL DMKSCNAU
TO LOCATE THE USERID VMBLOK ADDRESS. IF NOT FOUND, CALL
DMKERMSG TO SEND ERROR MESSAGE DMKCQG045E. IF OK, FORMAT
THE USERID AND LINE ADDRESS, CALL DMKQCNWT TO SEND THE
RESPONSE AND EXIT. WHEN PROCESSING A RANGE OF ADDRESSES,
A SEPARATE RESPONSE IS FORMATTED AND ISSUED FOR EACH
ADDRESS IN THE RANGE.
Calls to Other Routines
DMKSCNFD - TO LOCATE THE NEXT ARGUMENT IN THE COMMAND BUFFER
DMKSCNAU - TO FIND THE VMBLOK FOR A SPECIFIC USERID
DMKSCNVU - TO FIND CONTROL BLOKS FOR A VIRTUAL DEVICE
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 STORAGE FOR REGISTER SAVE
DMKFRET - TO RETURN STORAGE TO THE SYSTEM
DMKQCNWT - TO OUTPUT MESSAGES TO THE TERMINAL
DMKSCNRN - TO GET REAL DEVICE NAME
DMKERMSG - TO OUTPUT ERROR MESSAGES TO THE TERMINAL.
DMKSCNRD - TO GET THE ADDRESS OF A DEVICE.
DMKSCNVN - TO GET A DEVICE NAME.
DMKCVTDT - TO GET THE DATE AND TIME.
DMKCFCSC - SCAN OPERAND FOR RANGE OF ADDRESSES