Device support modifications

z/OS DFSMS device support provides hardware device-specific code, which allows tape drives, tape volumes, and DASD to interface with z/OS DFSMS. Specifically, it provides:

The interfacing exits to the input/output supervisor (IOS) and EXCP device support code
Error recovery procedure routines
Services to acquire and log statistical and error data
Services to acquire and display device states
Utilities for functions like initializing tapes

You can use the MVS DEVSERV command to request basic status information on a device, a group of devices, or storage control units. You can use the QTAPE parameter of the DEVSERV command to display tape device information. Use DEVSERV QTAPE to display the real device type and the emulated device type.

With the DEVSERV QTAPE MED (medium) option, you can display information for the device type, media type, and cartridge volume serial number.

The syntax of the DEVSERV QTAPE command with the MED option is as follows:

DS QT,xxxx,MED,nnn

xxxx: Represents a three-digit or a four-digit device number in hexadecimal format.
nnn: Stands for the number of devices, starting at the address xxxx, for which the DEVSERV command displays the MED information. The value nnn is optional and can be any decimal number from 1 to 256, with 1 as the default value.

Figure 1 shows the display content when you issue the DEVSERV QTAPE MED command.

Figure 1. DEVSERV QTAPE MED display content

 
    ----------------------------------------------  
    ----      DS QT MED Display Content      -----  
    ----------------------------------------------  
 
    IEE459I          DEVSERV QTAPE                   
    UNIT RDTYPE EDTYPE EXVLSR INVLSR RMEDIA EMEDIA WWID  X

 X  UNIT   - tape device address
    RDTYPE - real device type
    EDTYPE - emulated device type
    EXVLSR - external volume serial of cartridge
    INVLSR - internal volume serial of cartridge
    RMEDIA - real media type of the volume mounted on the drive
    EMEDIA - emulated media type of the volume mounted on the drive
    WWID   - world-wide identifier or world-wide unique cartridge identifier

Note:

EDTYPE, EXVLSR, INVLSR, RMEDIA, EMEDIA, and WWID are blank if information is not available.
Valid values for RMEDIA and EMEDIA are:
- 1=CST
- 2=EC-CST
- 3=3590 STD length tape
- 4=3590 EXT length tape
- 5=3592 Enterprise Tape Cartridge
- 6-W=3592 Enterprise WORM Tape Cartridge
- 7=3592 Enterprise Economy Tape Cartridge
- 8-W=3592 Enterprise Economy WORM Tape Cartridge
- 9=3592 Enterprise Extended Tape Cartridge
- 10-W=3592 Enterprise Extended WORM Tape Cartridge
RMEDIA and EMEDIA are blank when the media type is not defined or cannot be determined.

These examples show sample output and messages of the DEVSERV QTAPE command, and DEVSERV QTAPE with the MED option command.

Figure 2 shows the output of DS QT,962,MED when a 3592 Model E05 tape drive emulates a 3590 Model B1x tape drive.

Figure 2. DS QT,962,MED output

 
     IEE459I 11.32.31 DEVSERV QTAPE 608
     UNIT RDTYPE EDTYPE EXVLSR INVLSR RMEDIA EMEDIA  WWID
     0962 3592-2 3590-1                10-W    3     85804D003C00000BC211CA0C

Figure 3 shows the output of DS QT,940,MED when a 3592 Model E05 tape drive emulates a 3590 Model B1x tape drive.

Figure 3. DS QT,940 output

 
     IEE459I 11.32.31 DEVSERV QTAPE 608
     UNIT RDTYPE EDTYPE EXVLSR INVLSR RMEDIA EMEDIA WWID 
     0940 3592-2 3590-1 003700          9      3

Figure 4 shows the output of DS QT,DA0 when a 3592 Model E05 tape drive emulates a 3590 Model B1x tape drive.

Figure 4. DS QT,DA0 output

 
     IEE459I 17.04.39 DEVSERV QTAPE 502 
     UNIT DTYPE DSTATUS CUTYPE  DEVTYPE   CU-SERIAL   DEV-SERIAL ACL LIBID 
     0960 3590  ON-RDY 3592J70  3592E05*  0178-09F8A  0178-09F8A

Figure 5 displays the message that is issued when the input device address is valid, but the device is not a Model B1x, Model E1x, Model H1x, 3592 Model J, 3592 Model E05, or 3490E drive.

Figure 5. DS QT,B60,MED message

 
     IEE459I 11.32.31 DEVSERV QTAPE 608
     UNIT RDTYPE EDTYPE EXVLSR INVLSR RMEDIA EMEDIA WWID
     **** UNLISTED DEVICE(S) AND REASON CODES :
       0B60(10)  Y 
     **** (10) - UNSUPPORTED DEVICE TYPE

Y Reason Code 10, UNSUPPORTED DEVICE TYPE, is shown when the device type given is not a Model B1x, Model E1x, Model H1x, 3592 Model J, 3592 Model E05, or 3490E drive.

Figure 6 shows the message and reason code 11 that you receive if the input device address and device type are valid, but the device is not ready.

Figure 6. DS QT,DA0,MED message

 
     IEE459I 11.32.31 DEVSERV QTAPE 608
     UNIT RDTYPE EDTYPE EXVLSR INVLSR RMEDIA EMEDIA WWID
     **** UNLISTED DEVICE(S) AND REASON CODES :
       0DA0(11)  Z  
     **** (11) - DEVICE NOT READY

A bit DFVTJAG2 is added to the IHADFVT mapping macro that maps the data facilities vector table. When set, it indicates that all of the software support for the 3592 Model E05 drive is on the system. This bit will be set by the enabling module IECTEPTF if it is installed.

System-wide DEVSUPxx parmlib member options control and manage media type selection for Automatic Tape Library (ATL) partitioning: MEDIA5=xxxx, MEDIA6=xxxx, MEDIA7=xxxx, MEDIA8=xxxx, MEDIA9=xxxx, and MEDIA10=xxxx where xxxx is a 4-digit hexadecimal category code.

The IECUCBCX mapping macro is changed to support the 3592 Model E05 tape drive. The EPI values are:

X'12'--REALJAG2_EMUL3590

With MSGDISP macro interface, you can specify the message to be displayed and how to display it on magnetic tape devices that have displays. The parameter keyword, MEDIATYPE, can be used with the MOUNT and DEMOUNT keywords to indicate what media type to mount for scratch mounts on MTL devices. The value is specified as a quoted literal, unquoted literal, the address of a 1-byte field containing the value, or the name of the addressable field containing the value. Current valid values for MEDIATYPE are 1 through 10.

Currently there is a single byte limitation for the MEDIATYPE parameter keyword which passes an EBCDIC character representing the media type. This macro will be modified to allow specification of a value up to 10 via the MEDIATYPE keyword, but allowing for future media type values up to 255.

Valid and invalid specifications for MEDIA10 are described as follows:

VALID specifications

Literal (unquoted): MEDIATYPE=10
ADCON: MEDIATYPE=A(HEX10) where HEX10 is defined as X'0A'
Register: MEDIATYPE=(3) where Reg 3 first has to be loaded with the address of HEX10 (e.g., LA R3,HEX10)
RX Format: MEDIATYPE=HEX10

INVALID specifications

Quoted Literal: MEDIATYPE='10'
Unquoted Literal: MEDIATYPE=A
ADCON: MEDIATYPE=A(CharA) where CharA is defined as EBCDIC 'A'
Register: MEDIATYPE=(3) where Reg 3 is first loaded with the address of CharA
RX Format: MEDIATYPE=CharA