Tape data information (TDI), mapped by macro CBRTDI, is used to
pass information about the composite Peer-to-Peer VTS library that
is specified on the CBRXLCS PTPDATA request. Depending on the PTPDATA
request, either the library's operating mode information or the
library's device information is returned in TDI. Here is the
format for the tape device information.
*********************************************************************
* *
* TAPE DATA INFORMATION MAPPING *
* *
*********************************************************************
SPACE 1
TDI DSECT ,
SPACE 1
*********************************************************************
* *
* TDI HEADER *
* *
*********************************************************************
TDIHDR DS 0F TDI HEADER
TDIID DS CL4 TDI IDENTIFIER EBCDIC 'TDI '
TDILENG DS F LENGTH OF TDI
* TDI HEADER + DATA HEADER + DATA
* (LENGTH OF STORAGE TO BE FREED)
TDIVER DS XL1 VERSION OF TDI
TDIREV DS XL1 REVISION LEVEL OF TDI
TDISPNUM DS XL1 SUBPOOL IN WHICH TDI WAS OBTAINED
* IF NOT SPECIFIED, SUBPOOL ZERO USED
DS CL1 RESERVED
TDIDHDR@ DS A ADDRESS OF MODE OR DEVICE DATA
TDILNGTH EQU *-TDIHDR LENGTH OF TDI MACRO HEADER
SPACE 1
********************************************************************
* *
* DATA HEADER FOR MODE CONTROL SETTINGS *
* *
********************************************************************
TDIMODE DSECT MODE SETTING DATA MAPPING
TDIMSLEN DS F DATA MSG LENGTH (LENGTH OF THIS DSECT
* PLUS LENGTH OF MODE CONTROL DATA ENTRIES)
TDIMSNUM DS F NUMBER OF MODE CONTROL DATA ENTRIES
* (IF AN AX0 IS NOT AVAILABLE, AN ENTRY
* IS NOT RETURNED.)
TDIMSDLN DS F LENGTH OF ONE MODE CONTROL DATA ENTRY
TDIMSADR DS A ADDRESS OF 1ST MODE CONTROL DATA ENTRY
TDIMAX0S DS XL1 NUMBER OF AX0'S CONFIGURED
TDIMAX0P DS XL1 AX0 ID THAT PROCESSED THIS REQUEST
DS XL2 RESERVED
TDIMDHDR EQU *-TDIMODE LENGTH OF TDI MODE SETTING DATA HEADER
SPACE 1
********************************************************************
* *
* MODE CONTROL DATA ENTRY *
* *
********************************************************************
TDIMODDT DSECT MODE CONTROL DATA ENTRY
TDIMAX0I DS XL1 AX0 IDENTIFIER
TDIIOMOD DS BL1 I/O SELECTION CRITERIA
TDIOBALN EQU B'10000000' BALANCED IO SELECTION CRITERIA
TDIOPREF EQU B'01000000' PREFERRED IO SELECTION CRITERIA
TDIOPRIM EQU B'00100000' PRIMARY IO SELECTION CRITERIA
TDICPYMD DS BL1 COPY MODE AND COPY OPERATIONS
TDIIMMED EQU B'10000000' COPYMODE ON=IMMEDIATE/OFF=DEFERRED
TDIENABL EQU B'00001000' COPYOPER ON=ENABLED/OFF=DISABLED
TDIACCES DS BL1 SPECIAL ACCESS CONTROL
TDIRDMOD EQU B'10000000' READ ONLY ACCESS MODE
TDIRWDIS EQU B'01000000' READ/WRITE DISCONNECTED ACCESS MODE
TDIWTPRT EQU B'00100000' WRITE PROTECT ACCESS MODE
TDIDMPTV DS XL1 DEFERRED MODE PRIORITY THRESHOLD
TDIVDLID DS XL1 PRIMARY/PREFERRED IO DISTRIBUTED LIBRARY
* ID
TDICEDTV DS XL1 CE DEFAULT FOR DEFERRED MODE PRIORITY
* THRESHOLD VALUE
DS CL3 RESERVED
TDIDEVRG DS XL1 DEVICE RANGE
* X'10' 16 VIRTUAL DEVICES CONFIGURED
* X'20' 32 VIRTUAL DEVICES CONFIGURED
TDICESET DS BL1 CE DEFAULT SETTINGS
TDICEBAL EQU B'10000000' BALANCED IO SELECTION CRITERIA
TDICEPRF EQU B'01000000' PREFERRED IO SELECTION CRITERIA
TDICECPY EQU B'00010000' COPYMODE ON=IMMEDIATE/OFF=DEFERRED
* LOWER NIBBLE MAY CONTAIN CE SPECIFIED IO
* DISTRIBUTED LIBRARY ID IF CE ESTABLISHED
* PREFERRED IO SELECTION CRITERIA
TDICPYCT DS F DEFERRED COPY OPERATION COUNT
TDIMELEN EQU *-TDIMODDT LENGTH OF ONE TDI MODE ENTRY
SPACE 1
********************************************************************
* *
* DATA HEADER FOR DEVICE INFORMATION *
* *
********************************************************************
TDIDVICE DSECT DEVICE DATA MAPPING
TDIMDLEN DS F DATA MSG LENGTH (LENGTH OF THIS DSECT
* PLUS LENGTH OF DEVICE DATA ENTRIES)
TDINVTD DS F NUMBER OF DEVICE DATA ENTRIES
TDIDDLEN DS F LENGTH OF ONE DEVICE DATA ENTRY
TDIDDADR DS A ADDRESS OF 1ST DEVICE DATA ENTRY
TDIDVHDR EQU *-TDIDVICE LENGTH OF TDI DEVICE HEADER
SPACE 1
********************************************************************
* *
* DEVICE DATA ENTRY *
* *
********************************************************************
TDIDEVDT DSECT DEVICE DATA ENTRY
TDIVDVID DS XL2 VIRTUAL DEVICE IDENTIFIER
* AX0 IDENTIFIER/DEVICE NUMBER COMBINATION
TDIIOID DS XL1 I/O VTS IDENTIFIER
TDIVOLSR DS CL6 MOUNTED VOLUME
TDIVFLAG DS BL1 VOLUME FLAGS
TDIWRITM EQU B'10000000' AT LEAST ONE WRITE COMMAND SUCCESSFUL
* FOR THE MOUNTED VOLUME
DS CL6 RESERVED
TDIDVLEN EQU *-TDIDEVDT LENGTH OF ONE TDI DEVICE ENTRY
SPACE 1
********************************************************************
* *
* HEADER CONSTANTS *
* *
********************************************************************
TDIIDC EQU C'TDI ' TDI IDENTIFIER
TDIVERV EQU 2 VERSION
TDIREVV EQU 0 REVISION LEVEL