z/OS DFSMS Software Support for IBM System Storage TS1140, TS1130, and TS1120 Tape Drives (3592)
Previous topic | Next topic | Contents | Contact z/OS | Library | PDF


OAM macro changes

z/OS DFSMS Software Support for IBM System Storage TS1140, TS1130, and TS1120 Tape Drives (3592)
SC23-6854-00

Table 1 describes changes to OAM mapping macros and installation exit parameter lists in support of 3592 Model E05 tape drives.

Table 1. OAM mapping macro changes
The macro that maps has these changes.
CBRTDSI the tape device selection information (TDSI)
TDSEFMT2 EQU 7 READ/WRITE on 
   ENTERPRISE FORMAT 2 (EFMT2) DEVICE
TDSMED9  EQU 9 MEDIA9
   - ENTERPRISE EXTENDED TAPE CARTRIDGE
TDSMED10 EQU 10 MEDIA10
   - ENTERPRISE EXTENDED WORM TAPE CARTRIDGE
CBRTVI the tape volume information
TVIEFMT2 EQU 7 READ/WRITE on 
   ENTERPRISE FORMAT 2 (EFMT2) DEVICE
TVIMED9 EQU 9 MEDIA9 
   - ENTERPRISE EXTENDED TAPE CARTRIDGE
TVIMED10 EQU 10 MEDIA10
   - ENTERPRISE EXTENDED WORM TAPE CARTRIDGE
TVISCRM9 EQU C'S9'
   Volume is MEDIA9 SCRATCH 
TVISCRMA EQU C'SA'
   Volume is MEDIA10 SCRATCH 
TVIMEDTY has a new value for 
   MEDIA9 which is X'09' 
TVIMEDTY has a new value for 
   MEDIA10 which is X'0A' 
CBRUXCPL the change use attribute installation exit parameter list
UXCEFMT2 EQU 7 READ/WRITE on 
   ENTERPRISE FORMAT 2 (EFMT2) DEVICE
UXCMED9  EQU 9 MEDIA9 
   - ENTERPRISE EXTENDED TAPE CARTRIDGE
UXCMED10 EQU 10 MEDIA10
   - ENTERPRISE EXTENDED WORM TAPE CARTRIDGE
CBRUXEPL the cartridge entry installation exit parameter list
UXEEFMT2 EQU 7 READ/WRITE on 
   ENTERPRISE FORMAT 2 (EFMT2) DEVICE
UXEMED9  EQU 9 MEDIA9
   - ENTERPRISE EXTENDED TAPE CARTRIDGE
UXEMED10 EQU 10 MEDIA10
   - ENTERPRISE EXTENDED WORM TAPE CARTRIDGE
CBRUXJPL the cartridge eject installation exit parameter list
UXJEFMT2 EQU 7 READ/WRITE on 
   ENTERPRISE FORMAT 2 (EFMT2) DEVICE
UXJMED9  EQU 9 MEDIA9 
   - ENTERPRISE EXTENDED TAPE CARTRIDGE
UXJMED10 EQU 10 MEDIA10
   - ENTERPRISE EXTENDED WORM TAPE CARTRIDGE
CBRUXNPL the volume not in library installation exit parameter list
UXNEFMT2 EQU 7 READ/WRITE on 
   ENTERPRISE FORMAT 2 (EFMT2) DEVICE
UXNMED9 EQU 9 MEDIA9  
   - ENTERPRISE EXTENDED TAPE CARTRIDGE
UXNMED10 EQU 10 MEDIA10
   - ENTERPRISE EXTENDED WORM TAPE CARTRIDGE

The CBRUXVNL installation exit is enhanced with these new job-related information fields:

UXNSUPPT DS    XL1          SUPPORT FLAGS                   
UXNJINFO EQU   X'80'        ON IF JOB INFORMATION PROVIDED
*                              (JOB STEP SETUP INVOCATION)  

UXNJOB   DS    0CL120       JOB INFORMATION 
UXNJOBNM DS    CL8          JOB NAME        
UXNSTPNM DS    CL8          STEP NAME       
UXNPRGNM DS    CL8          PROGRAM NAME    
UXNDDNM  DS    CL8          DD NAME         
UXNDSN   DS    CL44         DATASET NAME    
UXNUNIT  DS    CL8          UNIT NAME       
UXNDISP  DS    0CL17        DISPOSITION (DISP=...)               
UXNDISP1 DS    CL3            1ST SUBPARAMETER, STATUS           
UXNDISP2 DS    CL7            2ND SUBPARAMETER, NORMAL           
UXNDISP3 DS    CL7            3RD SUBPARAMETER, ABNORMAL         
*                                                                
UXNFLAGS DS    XL1          JOB INFORMATION FLAGS                
UXNCATLG EQU   X'80'        ON IF VOLSER OBTAINED FROM CATALOG 
         DS    CL2          RESERVED                             
UXNDEVTP DS    CL4          DEVICE TYPE FROM CATALOG             
*                             (PROVIDED IF UXNCATLG IS ON)  

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014