Type ASSEMBLE
Source Lines : 1,756
Fixes Applied : 16
Most Recent Version : Thursday, December 14, 1978
Last Fix ID : [HRC011DK]
Module
DMKIOE
Attributes
SERIALLY REUSEABLE, RESIDENT, ENTERED VIA SVC
Operation
I. BUILD AN ERRBLOK FOR THE ERROR CONDITION
1. IF THE IOERBLOK ADDRESS DOESN'T EXIST, RETURN
TO CALLER.
2. IF A CHANNEL ERROR IS INDICATED IN THE CSW, DO
THE FOLLOWING:
. WRITE A CHANNEL ERROR MESSAGE TO THE OPERATOR
(DMKCCH604I) AND RELEASE THE IOERBLOK.
. IF THIS IS AN UNCORRECTABLE CHANNEL ERROR, WRITE
A PERMANENT ERROR MSG. TO THE OPERATOR (DMKCCH606I)
AND RESET THE VIRTUAL MACHINE BEFORE GOING TO THE
RECORDER.
. PUT THE DATE AND TIME IN THE CCH RECORD.
. ANALYSE THE MCH/CCH CYLINDER AND THE RECORDING
IN PROGRESS FLAG.
* IF CYLINDER IS FULL OR NOT INITIALIZED,
RELEASE THE CCH RECORD AND RETURN TO
CALLER WITH A NON-ZERO RETURN CODE.
* IF RECORDING IS IN PROGRESS, QUE CCH
REQUEST AND RETURN TO CALLER.
* IF RECORDING IS NOT IN PROGRESS, CALL
THE RECORDER (DMKIOFC1) AND RECORD
CCH RECORD.
3. DETERMINE IF INTENSIVE RECORDING IS ACTIVATED FOR A
CLASS 'F' USER.
4. IF THIS IS NOT A CP OR DIAGNOSE GENERATED REQUEST,
RETURN TO CALLER.
5. DETERMINE IF ENVIRONMENTAL DATA IS PRESENT
IN THE SENSE DATA FOR A DASD DEVICE. IF PRESENT,
BUILD AND FORMAT A MISCELLANEOUS DATA RECORD (MDR)
FOR THE DASD'S HARDWARE COUNTERS BEFORE GOING TO
STEP 8.
6. IF THIS IS NOT A PERMANENT I/O ERROR, RELEASE THE
IOERBLOK AND RETURN TO THE CALLER.
7. BUILD AND FORMAT OUTBOARD RECORD (OBR) FOR UNIT
CHECK CONDITION.
8. RELEASE THE IOERBLOK AND SETUP THE INTERFACE TO
THE RECORDER.
9. ANALYSE THE ERROR RECORDING CYLINDERS AND
THE RECORDING IN PROGRESS FLAG.
. IF THE CYLINDERS ARE FULL OR NOT INITIALIZED,
RELEASE THE OBR/MDR RECORD AND RETURN TO CALLER.
. IF RECORDING IS IN PROGRESS, QUE REQUEST AND
RETURN TO CALLER.
. IF RECORDING IS NOT IN PROGRESS, QUE CPEXBLOK TO
ACTIVATE RECORDER AND RETURN TO CALLER.
Calls to Other Routines
DMKFREE - TO ALLOCATE FREE STORAGE FOR ERRBLOK
DMKFRET - TO RETURN ALLOCATED STORAGE FOR THE
ERRBLOK/SDRBLOK
DMKDSPCH - EXIT TO DISPATCHER IF RECORDING IS ACTIVE
DMKSTKCP - STACK CPEXBLOK FOR RECORDER
DMKIOFOB - GO RECORD OBR RECORD