Type ASSEMBLE
Source Lines : 659
Fixes Applied : 3
Most Recent Version : Thursday, December 14, 1978
Last Fix ID : [R13360DK]
Module
DMKCQH
Function
TO RETURN TO THE REQUESTOR INFORMATION FOR THE FOLLOWING
QUERY FUNCTIONS :
QUERY RDR, PRT, PUN (WITH OPTIONS )
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 THE INVOKER.
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.
4. READER -
PUNCH -
PRINTER - SET A FLAG IN SAVEWRK1 TO INDICATE THE TYPE OF
REQUEST. CALL DMKSCNFD TO LOCATE THE ALL, TBL OR SPOOLID
ARGUMENT. IF NO ARGUMENT IS FOUND LIST THE SHORT FORM
OF FILE-ID INFORMATION. IF SPOOLID IS FOUND, CALL
DMKCVTDB TO CONVERT THE SPOOLID TO BINARY. IF THE CONVERT
IS BAD, CALL DMKERMSG TO SEND THE DMKCQH027E ERROR
MESSAGE. ELSE SEARCH THE SFBLOKS FOR THIS USERID
AND/OR SPOOLID. WHEN A SFBLOK IS FOUND, EXTRACT THE NEEDED
INFORMATION FROM IT TO BUILD THE MESSAGE.
IF TBL, BRING THE FIRST DASD BUFFER INTO STORAGE AND
EXTRACT THE REQUIRED INFORMATION. CALL DMKQCNWT
TO OUTPUT THE MESSAGE. IF 'ALL' OR 'TBL' REQUEST, KEEP
SCANNING THE SFBLOKS UNTIL THERE ARE NO MORE AND THEN
EXIT. IF A SPOOLID REQUEST AND THE SPOOLID WAS NOT FOUND,
CALL DMKERMSG TO SEND ERROR MESSAGE DMKCQH042E.
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
DMKPGTVG - GET A SYSTEM VIRTUAL PAGE FOR SPLINK BUFFER
DMKPGTVR - GIVE BACK THE SYSTEM VIRTUAL PAGE
DMKRPAGT - READ IN THE FIRST DASD BUFFER OF A SPOOL FILE